Symbol Description Uses
ustar 80


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 2685 TRBFLX 
      sustar(i) = sustar(i) + aitr*ustar(i)
./pkg/kpp/kpp_calc.F 178 KPP_CALC 
      _RL ustar ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy                )
./pkg/kpp/kpp_calc.F 402 KPP_CALC 
     O     ustar, bo, bosol,
./pkg/kpp/kpp_calc.F 506 KPP_CALC 
     I       work1, shsq, dVsq, ustar
./pkg/kpp/kpp_forcing_surf.F 118 KPP_FORCING_SURF 
      _RL ustar ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy                )
./pkg/kpp/kpp_forcing_surf.F 161 KPP_FORCING_SURF 
            ustar(i,j) = p0
./pkg/kpp/kpp_forcing_surf.F 18 KPP_FORCING_SURF 
     O     ustar, bo, bosol,
./pkg/kpp/kpp_forcing_surf.F 190 KPP_FORCING_SURF 
           ustar(i,j) = SQRT( phepsi * p5 * drF(1) )
./pkg/kpp/kpp_forcing_surf.F 193 KPP_FORCING_SURF 
           ustar(i,j) = SQRT( tempVar2 )
./pkg/kpp/kpp_forcing_surf.F 319 KPP_FORCING_SURF 
     &       MAX ( ustar(i,j), phepsi ) )
./pkg/kpp/kpp_forcing_surf.F 340 KPP_FORCING_SURF 
         tempVar2 = ustar(i,j) *
./pkg/kpp/kpp_routines.F 1153 BLMIX 
     I       ustar, bfsfc, hbl, stable, casea, diffus, kbl
./pkg/kpp/kpp_routines.F 1183 BLMIX 
      _RL ustar (imt)
./pkg/kpp/kpp_routines.F 1234 BLMIX 
     I        sigma, hbl, ustar, bfsfc,
./pkg/kpp/kpp_routines.F 1277 BLMIX 
     &        max(ustar(i)**4,phepsi)
./pkg/kpp/kpp_routines.F 1327 BLMIX 
     I        sigma, hbl, ustar, bfsfc,
./pkg/kpp/kpp_routines.F 1380 BLMIX 
     I        sigma, hbl, ustar, bfsfc,
./pkg/kpp/kpp_routines.F 190 KPPMIX 
     I     , dvsq, dbloc, Ritop, ustar, bo, bosol
./pkg/kpp/kpp_routines.F 207 KPPMIX 
     I       ustar, bfsfc, hbl, stable, casea, diffus, kbl
./pkg/kpp/kpp_routines.F 24 KPPMIX 
     I       kmtj, shsq, dvsq, ustar, msk
./pkg/kpp/kpp_routines.F 269 BLDEPTH 
     I     , dvsq, dbloc, Ritop, ustar, bo, bosol
./pkg/kpp/kpp_routines.F 334 BLDEPTH 
      _RL ustar   (imt)
./pkg/kpp/kpp_routines.F 472 BLDEPTH 
     I        sigma, casea, ustar, bfsfc,
./pkg/kpp/kpp_routines.F 612 BLDEPTH 
            hekman = cekman * ustar(i) / max(abs(Coriol(i)),phepsi)
./pkg/kpp/kpp_routines.F 613 BLDEPTH 
            hmonob = cmonob * ustar(i)*ustar(i)*ustar(i)
./pkg/kpp/kpp_routines.F 710 WSCALE 
     I     sigma, hbl, ustar, bfsfc,
./pkg/kpp/kpp_routines.F 737 WSCALE 
      _RL ustar(imt)
./pkg/kpp/kpp_routines.F 772 WSCALE 
            udiff = ustar(i) - umin
./pkg/kpp/kpp_routines.F 792 WSCALE 
            u3 = ustar(i) * ustar(i) * ustar(i)
./pkg/kpp/kpp_routines.F 794 WSCALE 
            wm(i) = vonk * ustar(i) * u3 / tempVar
./pkg/kpp/kpp_routines.F 92 KPPMIX 
      _RL ustar    (imt   )
./pkg/thsice/thsice_calc_thickn.F 202 THSICE_CALC_THICKN 
      _RL  ustar, cpchr
./pkg/thsice/thsice_calc_thickn.F 381 THSICE_CALC_THICKN 
          ustar = 5. _d -2
./pkg/thsice/thsice_calc_thickn.F 384 THSICE_CALC_THICKN 
     &     ustar = SQRT(0.00536 _d 0*v2oc(i,j))
./pkg/thsice/thsice_calc_thickn.F 385 THSICE_CALC_THICKN 
          ustar=max(5. _d -3,ustar)
./pkg/thsice/thsice_calc_thickn.F 387 THSICE_CALC_THICKN 
          Fbot(i,j) = cpchr*(tFrz(i,j)-tOce(i,j))*ustar
./pkg/thsice/thsice_get_exf.F 203 THSICE_GET_EXF 
        ustar(i,j)  = 0. _d 0
./pkg/thsice/thsice_get_exf.F 295 THSICE_GET_EXF 
          ustar(i,j) = rdn(i,j)*wsm
./pkg/thsice/thsice_get_exf.F 326 THSICE_GET_EXF 
     &              )*czol/(ustar(i,j)*ustar(i,j))
./pkg/thsice/thsice_get_exf.F 391 THSICE_GET_EXF 
           ustar(i,j)  = rd(i,j)*sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 97 THSICE_GET_EXF 
      _RL ustar (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/bulk_force/bulkf_formula_lanl.F 161 BULKF_FORMULA_LANL 
              ustar=rdn*usm
./pkg/bulk_force/bulkf_formula_lanl.F 167 BULKF_FORMULA_LANL 
                 huol   = czol/ustar**2 *(tstar/t0 +
./pkg/bulk_force/bulkf_formula_lanl.F 185 BULKF_FORMULA_LANL 
                 ustar = rd*usm
./pkg/bulk_force/bulkf_formula_lanl.F 190 BULKF_FORMULA_LANL 
              tau   = rhoa*ustar**2
./pkg/bulk_force/bulkf_formula_lanl.F 83 BULKF_FORMULA_LANL 
      _RL ustar              ! friction velocity [m/s]
./pkg/bulk_force/bulkf_formula_lay.F 182 BULKF_FORMULA_LAY 
              ustar=rdn*wsm
./pkg/bulk_force/bulkf_formula_lay.F 191 BULKF_FORMULA_LAY 
     &                    )*czol/(ustar*ustar)
./pkg/bulk_force/bulkf_formula_lay.F 221 BULKF_FORMULA_LAY 
                 ustar = rd*wsm
./pkg/bulk_force/bulkf_formula_lay.F 92 BULKF_FORMULA_LAY 
      _RL ustar              ! friction velocity [m/s]
./pkg/cheapaml/cheapaml.F 300 CHEAPAML 
              ustar=rdn*usm
./pkg/cheapaml/cheapaml.F 306 CHEAPAML 
                 huol   = czol/ustar**2 *(tstar/t0 +
./pkg/cheapaml/cheapaml.F 325 CHEAPAML 
                 ustar = rd*usm
./pkg/cheapaml/cheapaml.F 91 CHEAPAML 
        _RL ustar,tstar,qstar,ht,hu,hq
./pkg/exf/exf_bulkformulae.F 184 EXF_BULKFORMULAE 
      _RL ustar (1:sNx,1:sNy)   ! friction velocity [m/s]
./pkg/exf/exf_bulkformulae.F 312 EXF_BULKFORMULAE 
            ustar(i,j) = rdn(i,j)*wsm
./pkg/exf/exf_bulkformulae.F 317 EXF_BULKFORMULAE 
            ustar(i,j) = sqrt(windStress/atmrho)
./pkg/exf/exf_bulkformulae.F 334 EXF_BULKFORMULAE 
           ustar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 366 EXF_BULKFORMULAE 
     &              )*czol/(ustar(i,j)*ustar(i,j))
./pkg/exf/exf_bulkformulae.F 437 EXF_BULKFORMULAE 
             ustar(i,j) = rd(i,j)*sh(i,j,bi,bj)
./pkg/exf/exf_wind.F 155 EXF_WIND 
            ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA
./pkg/exf/exf_wind.F 156 EXF_WIND 
            IF ( ustar .EQ. 0. _d 0 ) THEN
./pkg/exf/exf_wind.F 158 EXF_WIND 
            ELSE IF ( ustar .LT. ustofu11 ) THEN
./pkg/exf/exf_wind.F 160 EXF_WIND 
             tmp2 = SQRT(tmp1*tmp1 + ustar*ustar/cquadrag_1)
./pkg/exf/exf_wind.F 164 EXF_WIND 
             tmp2 = ustar*ustar/clindrag_1*exf_half
./pkg/exf/exf_wind.F 166 EXF_WIND 
             tmp3 = SQRT( ustar*ustar/clindrag_1*
./pkg/exf/exf_wind.F 167 EXF_WIND 
     &            (ustar*ustar/clindrag_1*0.25 _d 0 - tmp1*tmp1*tmp1 )
./pkg/exf/exf_wind.F 51 EXF_WIND 
      _RL     usSq, recip_sqrtRhoA, ustar