ZBk820309 919.0Be  w3iogomd.F90W3IOGOMDVEROGRIDSTR @@#@#W3FLGRDUPDT%NY#W3FLGRDUPDT%NX#NDSO#NDSEN#FLGRD#FLGR2#FLGD #FLG2     Dp p pp p Dp p pp p D  pp p  D  pp p #@  #W3READFLGRD%NY #W3READFLGRD%NX #NDSI#NDSO#NDSS#NDSEN#COMSTR#FLG1D#FLG2D#IAPROC#NAPOUT#IERR     @   @@ D pp p  Dp p pp p  D#@ #W3FLGRDFLAG%NY#W3FLGRDFLAG%NX#NDSO#NDSS#NDSEN#FLDOUT#FLG1D#FLG2D #IAPROC!#NAPOUT"#IERR#      @ D  pp p  D  p p pp p ! "D##@$#W3OUTG%NSEAL%#W3OUTG%NK&#W3OUTG%NTH'#A(#FLPART)#FLOUTG*#FLOUTG2+ % P& ' @( p5r&p5r'p5r'5r&&p5r%5r'5r&5r%pp ) * +#@,#CALC_U3STOKES%NY-#CALC_U3STOKES%NX.#CALC_U3STOKES%NSEAL/#CALC_U3STOKES%NK0#CALC_U3STOKES%NTH1#A2#USS_SWITCH3 - . / 0 1 2 Vp5r0p5r1p5r15r0&p5r/5r15r05r/pp 3#@4#CALC_WBT%NY5#CALC_WBT%NX6#CALC_WBT%NSEAL7#CALC_WBT%NK8#CALC_WBT%NTH9#A: 5 6 7 P8 9 : Zp5r8p5r9p5r95r8&p5r75r95r85r7pp#@;#W3IOGO%NSEA<#INXOUT=#NDSOG>#IOTST?#IMOD@ @< =1 @> D? @@fn#fnbuapp(W3IOGOMD@FLDOUTvW3FLGRDUPDT+@W3FLGRDUPDT%NY+W3GDATMD=NY+@W3FLGRDUPDT%NX+W3GDATMD=NX!@aW3FLGRDUPDT%NDSO"Q@aW3FLGRDUPDT%NDSEN"aW3FLGRDUPDT%FLGRD"EaW3FLGRDUPDT%FLGR2!aW3FLGRDUPDT%FLGD!aW3FLGRDUPDT%FLG2!W3READFLGRD+@W3READFLGRD%NY+W3GDATMD=NY+@W3READFLGRD%NX+W3GDATMD=NX!E@aW3READFLGRD%NDSI!@aW3READFLGRD%NDSO!@aW3READFLGRD%NDSS" @aW3READFLGRD%NDSEN#E PaW3READFLGRD%COMSTR" aW3READFLGRD%FLG1D") aW3READFLGRD%FLG2D# @aW3READFLGRD%IAPROC# @aW3READFLGRD%NAPOUT!] @aW3READFLGRD%IERR W3FLGRDFLAG+7 @W3FLGRDFLAG%NY+W3GDATMD=NY+w @W3FLGRDFLAG%NX+W3GDATMD=NX! @aW3FLGRDFLAG%NDSO! @aW3FLGRDFLAG%NDSS"7@aW3FLGRDFLAG%NDSEN#wPaW3FLGRDFLAG%FLDOUT"aW3FLGRDFLAG%FLG1D"[aW3FLGRDFLAG%FLG2D#@aW3FLGRDFLAG%IAPROC#O@aW3FLGRDFLAG%NAPOUT!@aW3FLGRDFLAG%IERR?W3OUTG&@W3OUTG%NSEAL+W3GDATMD#N@W3OUTG%NK+W3GDATMD$@W3OUTG%NTH+W3GDATMDDaW3OUTG%A@aW3OUTG%FLPARTR@aW3OUTG%FLOUTG@aW3OUTG%FLOUTG2CALC_U3STOKES-@CALC_U3STOKES%NY+W3GDATMD=NY-,@CALC_U3STOKES%NX+W3GDATMD=NX-l@CALC_U3STOKES%NSEAL+W3GDATMD*@CALC_U3STOKES%NK+W3GDATMD+@CALC_U3STOKES%NTH+W3GDATMD ,DaCALC_U3STOKES%A)p@aCALC_U3STOKES%USS_SWITCHCALC_WBT(X@CALC_WBT%NY+W3GDATMD=NY(@CALC_WBT%NX+W3GDATMD=NX(@CALC_WBT%NSEAL+W3GDATMD%@CALC_WBT%NK+W3GDATMD&X@CALC_WBT%NTH+W3GDATMDDaCALC_WBT%A2W3IOGO%@W3IOGO%NSEA+W3GDATMDNLaW3IOGO%INXOUT@aW3IOGO%NDSOG@aW3IOGO%IOTST@aW3IOGO%IMOD