| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
188 |
EXF_BULKFORMULAE |
_RL ustar (1:sNx,1:sNy) ! friction velocity [m/s] |
|
./pkg/exf/exf_bulkformulae.F |
325 |
EXF_BULKFORMULAE |
ustar(i,j) = rdn(i,j)*wsm |
|
./pkg/exf/exf_bulkformulae.F |
330 |
EXF_BULKFORMULAE |
ustar(i,j) = SQRT(windStress/atmrho_loc(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
333 |
EXF_BULKFORMULAE |
ustar(i,j) = SQRT(windStress/atmrho) |
|
./pkg/exf/exf_bulkformulae.F |
350 |
EXF_BULKFORMULAE |
ustar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
382 |
EXF_BULKFORMULAE |
& )*czol/(ustar(i,j)*ustar(i,j)) |
|
./pkg/exf/exf_bulkformulae.F |
448 |
EXF_BULKFORMULAE |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
179 |
EXF_WIND |
ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA |
|
./pkg/exf/exf_wind.F |
180 |
EXF_WIND |
IF ( ustar .EQ. 0. _d 0 ) THEN |
|
./pkg/exf/exf_wind.F |
182 |
EXF_WIND |
ELSE IF ( ustar .LT. ustofu11 ) THEN |
|
./pkg/exf/exf_wind.F |
184 |
EXF_WIND |
tmp2 = SQRT(tmp1*tmp1 + ustar*ustar/cquadrag_1) |
|
./pkg/exf/exf_wind.F |
188 |
EXF_WIND |
tmp2 = ustar*ustar/clindrag_1*exf_half |
|
./pkg/exf/exf_wind.F |
190 |
EXF_WIND |
tmp3 = SQRT( ustar*ustar/clindrag_1* |
|
./pkg/exf/exf_wind.F |
191 |
EXF_WIND |
& (ustar*ustar/clindrag_1*0.25 _d 0 - tmp1*tmp1*tmp1 ) |
|
./pkg/exf/exf_wind.F |
62 |
EXF_WIND |
_RL usSq, recip_sqrtRhoA, ustar |
|
./pkg/fizhi/fizhi_turb.F |
2255 |
TRBFLX |
sustar(i) = sustar(i) + aitr*ustar(i) |
|
./pkg/gmredi/gmredi_k3d.F |
1039 |
GMREDI_K3D |
ustar(i,j,k) = -RenormU(i,j)*Xix(i,j,k)/coriU(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
1078 |
GMREDI_K3D |
GM_PsiX(i,j,k,bi,bj) = -hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1086 |
GMREDI_K3D |
& - hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1121 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(ustar, 'GM_USTAR',0,Nr,2,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
202 |
GMREDI_K3D |
_RL ustar(1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr) |
|
./pkg/gmredi/gmredi_residual_flow.F |
108 |
GMREDI_RESIDUAL_FLOW |
ustar = delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
109 |
GMREDI_RESIDUAL_FLOW |
uEulerMean(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) - ustar |
|
./pkg/gmredi/gmredi_residual_flow.F |
53 |
GMREDI_RESIDUAL_FLOW |
_RL ustar, vstar |
|
./pkg/kpp/kpp_calc.F |
184 |
KPP_CALC |
_RL ustar ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_calc.F |
440 |
KPP_CALC |
O ustar, bo, bosol, |
|
./pkg/kpp/kpp_calc.F |
548 |
KPP_CALC |
I work1, shsq, dVsq, ustar |
|
./pkg/kpp/kpp_forcing_surf.F |
114 |
KPP_FORCING_SURF |
_RL ustar ( 1-OLx:sNx+OLx, 1-OLy:sNy+OLy ) |
|
./pkg/kpp/kpp_forcing_surf.F |
167 |
KPP_FORCING_SURF |
ustar(i,j) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
199 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( phepsi * p5 * drF(1) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
202 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( tempVar2 ) |
|
./pkg/kpp/kpp_forcing_surf.F |
24 |
KPP_FORCING_SURF |
O ustar, bo, bosol, |
|
./pkg/kpp/kpp_forcing_surf.F |
347 |
KPP_FORCING_SURF |
& MAX ( ustar(i,j), phepsi ) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
368 |
KPP_FORCING_SURF |
tempVar2 = ustar(i,j) * |
|
./pkg/kpp/kpp_routines.F |
103 |
KPPMIX |
_RL ustar (imt ) |
|
./pkg/kpp/kpp_routines.F |
1296 |
BLMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
1326 |
BLMIX |
_RL ustar (imt) |
|
./pkg/kpp/kpp_routines.F |
1379 |
BLMIX |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
1426 |
BLMIX |
& max(ustar(i)**4,phepsi) |
|
./pkg/kpp/kpp_routines.F |
1478 |
BLMIX |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
1536 |
BLMIX |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
209 |
KPPMIX |
I , dvsq, dbloc, Ritop, ustar, bo, bosol |
|
./pkg/kpp/kpp_routines.F |
231 |
KPPMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
297 |
BLDEPTH |
I , dvsq, dbloc, Ritop, ustar, bo, bosol |
|
./pkg/kpp/kpp_routines.F |
32 |
KPPMIX |
I kmtj, shsq, dvsq, ustar, msk |
|
./pkg/kpp/kpp_routines.F |
365 |
BLDEPTH |
_RL ustar (imt) |
|
./pkg/kpp/kpp_routines.F |
535 |
BLDEPTH |
I sigma, casea, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
708 |
BLDEPTH |
hekman = cekman * ustar(i) / max(abs(Coriol(i)),phepsi) |
|
./pkg/kpp/kpp_routines.F |
709 |
BLDEPTH |
hmonob = cmonob * ustar(i)*ustar(i)*ustar(i) |
|
./pkg/kpp/kpp_routines.F |
832 |
WSCALE |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
859 |
WSCALE |
_RL ustar(imt) |
|
./pkg/kpp/kpp_routines.F |
904 |
WSCALE |
udiff = ustar(i) - umin |
|
./pkg/kpp/kpp_routines.F |
924 |
WSCALE |
u3 = ustar(i) * ustar(i) * ustar(i) |
|
./pkg/kpp/kpp_routines.F |
926 |
WSCALE |
wm(i) = vonk * ustar(i) * u3 / tempVar |
|
./pkg/shelfice/shelfice_thermodynamics.F |
106 |
SHELFICE_THERMODYNAMICS |
_RL ustar, ustarSq, etastar |
|
./pkg/shelfice/shelfice_thermodynamics.F |
359 |
SHELFICE_THERMODYNAMICS |
ustar = SQRT(ustarSq) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
361 |
SHELFICE_THERMODYNAMICS |
uStarDiag(I,J,bi,bj) = ustar |
|
./pkg/shelfice/shelfice_thermodynamics.F |
379 |
SHELFICE_THERMODYNAMICS |
& ustar/(gammaTurb + gammaTmoleT) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
381 |
SHELFICE_THERMODYNAMICS |
& ustar/(gammaTurb + gammaTmoleS) ) |
|
./pkg/thsice/thsice_calc_thickn.F |
204 |
THSICE_CALC_THICKN |
_RL ustar, cpchr |
|
./pkg/thsice/thsice_calc_thickn.F |
382 |
THSICE_CALC_THICKN |
ustar = 5. _d -2 |
|
./pkg/thsice/thsice_calc_thickn.F |
385 |
THSICE_CALC_THICKN |
& ustar = SQRT(0.00536 _d 0*v2oc(i,j)) |
|
./pkg/thsice/thsice_calc_thickn.F |
386 |
THSICE_CALC_THICKN |
ustar=max(5. _d -3,ustar) |
|
./pkg/thsice/thsice_calc_thickn.F |
388 |
THSICE_CALC_THICKN |
Fbot(i,j) = cpchr*(tFrz(i,j)-tOce(i,j))*ustar |
|
./pkg/thsice/thsice_get_exf.F |
101 |
THSICE_GET_EXF |
_RL ustar (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_exf.F |
191 |
THSICE_GET_EXF |
ustar(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
322 |
THSICE_GET_EXF |
ustar(i,j) = rdn(i,j)*wsm |
|
./pkg/thsice/thsice_get_exf.F |
356 |
THSICE_GET_EXF |
& )*czol/(ustar(i,j)*ustar(i,j)) |
|
./pkg/thsice/thsice_get_exf.F |
421 |
THSICE_GET_EXF |
ustar(i,j) = rd(i,j)*sh(i,j,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
115 |
ATM_PHYS_DRIVER |
_RL ustar(sNx,sNy), bstar(sNx,sNy), qstar(sNx,sNy) |
|
./pkg/atm_phys/atm_phys_driver.F |
320 |
ATM_PHYS_DRIVER |
O ustar, bstar, qstar, |
|
./pkg/atm_phys/atm_phys_driver.F |
348 |
ATM_PHYS_DRIVER |
I ustar, bstar, rough, |
|
./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_lanl_flux.F |
159 |
CHEAPAML_LANL_FLUX |
ustar=rdn*usm |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
165 |
CHEAPAML_LANL_FLUX |
huol = czol/ustar**2 *(tstar/t0 + |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
184 |
CHEAPAML_LANL_FLUX |
ustar = rd*usm |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
207 |
CHEAPAML_LANL_FLUX |
huol = czol/ustar**2 *(tstar/t0 + |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
211 |
CHEAPAML_LANL_FLUX |
z100ol = 100. _d 0 *xkar*gravity/ustar**2 *(tstar/t0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
70 |
CHEAPAML_LANL_FLUX |
_RL ustar,tstar,qstar,ht,hu,hq |