Symbol Description Uses
pass_wspeed 10



File Line number Procedure Code
./pkg/atm2d/ATM2D_VARS.h 196 NO PROCEDURE
     &                        pass_qnet, pass_fu, pass_fv, pass_wspeed,
./pkg/atm2d/ATM2D_VARS.h 205 NO PROCEDURE
       _RL pass_wspeed(1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! wind speed -> ocean (m/s)
./pkg/atm2d/atm2d_read_pickup.F 51 ATM2D_READ_PICKUP
        CALL READ_REC_3D_RL(fn,prec,1,pass_wspeed,   9, nIter0, myThid)
./pkg/atm2d/atm2d_write_pickup.F 161 ATM2D_WRITE_PICKUP_NOW
      CALL WRITE_REC_3D_RL( fn,prec,1,pass_wspeed,   9,myIter,myThid )
./pkg/atm2d/init_atm2d.F 347 INIT_ATM2D
          pass_wspeed(i,j)= 0. _d 0
./pkg/atm2d/norm_ocn_fluxes.F 50 NORM_OCN_FLUXES
            pass_wspeed(i,j)= sum_wspeed(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 66 NORM_OCN_FLUXES
            IF ( pass_wspeed(i,j) .LT. 0. _d 0)
./pkg/atm2d/norm_ocn_fluxes.F 67 NORM_OCN_FLUXES
     &         pass_wspeed(i,j) = 0. _d 0
./pkg/atm2d/put_ocnvars.F 100 PUT_OCNVARS
           wind(i,j,1,1)= pass_wspeed(i,j)
./pkg/atm2d/put_ocnvars.F 67 PUT_OCNVARS
            wSpeed_ocn(i,j) = pass_wspeed(i,j)