Symbol Description Uses
us 28


File Line number Procedure Code
./pkg/bulk_force/bulkf_formula_lanl.F 122 BULKF_FORMULA_LANL 
              if (us.eq.0. _d 0) then
./pkg/bulk_force/bulkf_formula_lanl.F 123 BULKF_FORMULA_LANL 
                us = sqrt(uw*uw + vw*vw)
./pkg/bulk_force/bulkf_formula_lanl.F 125 BULKF_FORMULA_LANL 
              usm = max(us,umin)
./pkg/bulk_force/bulkf_formula_lanl.F 178 BULKF_FORMULA_LANL 
                tau   = tau*us/usm
./pkg/bulk_force/bulkf_formula_lanl.F 179 BULKF_FORMULA_LANL 
                csha   = rhoa*cpair*us*rh*rd
./pkg/bulk_force/bulkf_formula_lanl.F 180 BULKF_FORMULA_LANL 
                clha   = rhoa*lath*us*re*rd
./pkg/bulk_force/bulkf_formula_lanl.F 218 BULKF_FORMULA_LANL 
                 ust = rhoa*exf_BulkCdn(usm)*us*uw
./pkg/bulk_force/bulkf_formula_lanl.F 219 BULKF_FORMULA_LANL 
                 vst = rhoa*exf_BulkCdn(usm)*us*vw
./pkg/bulk_force/bulkf_formula_lanl.F 26 BULKF_FORMULA_LANL 
      _RL us                 ! wind speed
./pkg/bulk_force/bulkf_formula_lanl.F 7 BULKF_FORMULA_LANL 
     I                           uw, vw, us, Ta, Qa, nc, tsf_in,
./pkg/fizhi/fizhi_gwdrag.F 161 GWDRAG 
      call STRIPIT ( uz,us,im*jm,im*jm,istrip,Lm,n )
./pkg/fizhi/fizhi_gwdrag.F 170 GWDRAG 
      call GWDD ( ps,us,vs,ts,
./pkg/fizhi/fizhi_gwdrag.F 72 GWDRAG 
      _RL us(istrip,Lm), vs(istrip,Lm), ts(istrip,Lm)
./pkg/exf/exf_bulkformulae.F 177 EXF_BULKFORMULAE 
      _RL     us
./pkg/exf/exf_bulkformulae.F 279 EXF_BULKFORMULAE 
                us = sqrt(ustmp)
./pkg/exf/exf_bulkformulae.F 280 EXF_BULKFORMULAE 
                cw = uwind(i,j,bi,bj)/us
./pkg/exf/exf_bulkformulae.F 281 EXF_BULKFORMULAE 
                sw = vwind(i,j,bi,bj)/us
./pkg/exf/exf_bulkformulae.F 283 EXF_BULKFORMULAE 
                us = 0. _d 0
./pkg/exf/exf_bulkformulae.F 287 EXF_BULKFORMULAE 
              sh = max(us,umin)
./pkg/exf/exf_bulkformulae.F 310 EXF_BULKFORMULAE 
                us = 0. _d 0
./pkg/exf/exf_bulkformulae.F 314 EXF_BULKFORMULAE 
                us   = sqrt(tmp1 + tmp2)
./pkg/exf/exf_bulkformulae.F 320 EXF_BULKFORMULAE 
                us   = (tmp4 + tmp5)**(1/3) +
./pkg/exf/exf_bulkformulae.F 324 EXF_BULKFORMULAE 
              if ( us .ne. 0 ) then
./pkg/exf/exf_bulkformulae.F 325 EXF_BULKFORMULAE 
                 rdn = ustar/us
./pkg/exf/exf_bulkformulae.F 330 EXF_BULKFORMULAE 
              sh    = max(us,umin)
./pkg/exf/exf_bulkformulae.F 430 EXF_BULKFORMULAE 
                  tau    = tau*us/sh
./pkg/exf/exf_bulkformulae.F 463 EXF_BULKFORMULAE 
              ustress(i,j,bi,bj) = atmrho*tmpbulk*us*
./pkg/exf/exf_bulkformulae.F 465 EXF_BULKFORMULAE 
              vstress(i,j,bi,bj) = atmrho*tmpbulk*us*