0k820309 919.02Be  w3dispmd.F90W3DISPMD y121   @6. @@ @z p&ppypz @z p&ppypz @ #@#SI#H #K #CG    @  D  D  #@ #W #H#K#CG#EPS#NMAX#ICON @    D D    D#@#SI#H#K#CG    D D #@#@#LIU_FORWARD_DISPERSION%NY#LIU_FORWARD_DISPERSION%NX#LIU_FORWARD_DISPERSION%NK#H_ICE#VISC#H_WDEPTH #SIGMA!#K_SOLUTION"#CG##ALPHA$    @  @  @   @! p5r5r D@" p5r5r D@# p5r5r D@$ p5r5r#@%#LIU_REVERSE_DISPERSION%NY&#LIU_REVERSE_DISPERSION%NX'#H_ICE(#VISC)#H_WDEPTH*#KWN+#GET_CG,#FREQ-#CG.#ALPHA/ & ' (  @)  *  +  ,D- D. D/ fn#fnsNAR1D1rDFAC@N1MAXECG1EWN1+@DSIEkwWAVNU1@aWAVNU1%SI"@aWAVNU1%Hb@aWAVNU1%K@aWAVNU1%CGWAVNU2u@aWAVNU2%W@aWAVNU2%H@aWAVNU2%K5@aWAVNU2%CGu@aWAVNU2%EPS@aWAVNU2%NMAX@aWAVNU2%ICON5WAVNU3@aWAVNU3%SI@aWAVNU3%H;@aWAVNU3%K{@aWAVNU3%CGYDISTAB' LIU_FORWARD_DISPERSION6* @LIU_FORWARD_DISPERSION%NY+W3GDATMD=NY6j @LIU_FORWARD_DISPERSION%NX+W3GDATMD=NX3 @LIU_FORWARD_DISPERSION%NK+W3GDATMD- @aLIU_FORWARD_DISPERSION%H_ICE,* @aLIU_FORWARD_DISPERSION%VISC0j @aLIU_FORWARD_DISPERSION%H_WDEPTH- aLIU_FORWARD_DISPERSION%SIGMA2> aLIU_FORWARD_DISPERSION%K_SOLUTION* aLIU_FORWARD_DISPERSION%CG-f aLIU_FORWARD_DISPERSION%ALPHA' =LIU_REVERSE_DISPERSION67@LIU_REVERSE_DISPERSION%NY+W3GDATMD=NY6w@LIU_REVERSE_DISPERSION%NX+W3GDATMD=NX-@aLIU_REVERSE_DISPERSION%H_ICE,@aLIU_REVERSE_DISPERSION%VISC07@aLIU_REVERSE_DISPERSION%H_WDEPTH+w@aLIU_REVERSE_DISPERSION%KWN.@aLIU_REVERSE_DISPERSION%GET_CG,@aLIU_REVERSE_DISPERSION%FREQ*7@aLIU_REVERSE_DISPERSION%CG-w@aLIU_REVERSE_DISPERSION%ALPHA