Symbol Description Uses
wspeed Temp. for wind speed 14



File Line number Procedure Code
./pkg/bulk_force/bulkf_forcing.F 99 BULKF_FORCING
     &            wspeed(i,j,bi,bj), Tair(i,j,bi,bj), Qair(i,j,bi,bj),
./pkg/bulk_force/BULKF.h 32 NO PROCEDURE
     &       uwind, vwind, runoff, wspeed,
./pkg/bulk_force/BULKF.h 49 NO PROCEDURE
      _RL wspeed  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/thsice/thsice_get_bulkf.F 68 THSICE_GET_BULKF
     I        uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj),
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 222 TURBIO
      _RL  wspeed(istrip)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 680 TURBIO
       wspeed(i) = sqrt(u(i,nlay)*u(i,nlay) + v(i,nlay)*v(i,nlay))
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 681 TURBIO
       if(wspeed(i) .lt. 1.e-20) wspeed(i) = 1.e-20
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 787 TURBIO
     I   nland, timstp, types, rainls, raincon,  newsnow,  wspeed,
./pkg/fizhi/fizhi_turb.F 222 TURBIO
      _RL  wspeed(istrip)
./pkg/fizhi/fizhi_turb.F 656 TURBIO
       wspeed(i) = sqrt(u(i,nlay)*u(i,nlay) + v(i,nlay)*v(i,nlay))
./pkg/fizhi/fizhi_turb.F 657 TURBIO
       if(wspeed(i) .lt. 1.e-20) wspeed(i) = 1.e-20
./pkg/fizhi/fizhi_turb.F 763 TURBIO
     I   nland, timstp, types, rainls, raincon,  newsnow,  wspeed,