| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
162 |
EXF_BULKFORMULAE |
_RL ustar |
|
./pkg/exf/exf_bulkformulae.F |
254 |
EXF_BULKFORMULAE |
ustar = rdn*sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
280 |
EXF_BULKFORMULAE |
& ustar**2 |
|
./pkg/exf/exf_bulkformulae.F |
323 |
EXF_BULKFORMULAE |
ustar = rd*sh(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
326 |
EXF_BULKFORMULAE |
tau = atmrho*ustar**2 |
|
./pkg/exf/exf_bulkformulae.F |
340 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau*tstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
341 |
EXF_BULKFORMULAE |
hl(i,j,bi,bj) = flamb*tau*qstar/ustar |
|
./pkg/exf/exf_bulkformulae.F |
345 |
EXF_BULKFORMULAE |
evap(i,j,bi,bj) = -recip_rhonil*tau*qstar/ustar |
|
./pkg/exf/exf_wind.F |
101 |
EXF_WIND |
ustar = sqrt(ustmp/atmrho) |
|
./pkg/exf/exf_wind.F |
105 |
EXF_WIND |
ustar = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
110 |
EXF_WIND |
if ( ustar .eq. 0. _d 0 ) then |
|
./pkg/exf/exf_wind.F |
112 |
EXF_WIND |
else if ( ustar .lt. ustofu11 ) then |
|
./pkg/exf/exf_wind.F |
114 |
EXF_WIND |
tmp2 = sqrt(tmp1*tmp1 + ustar*ustar/cquadrag_1) |
|
./pkg/exf/exf_wind.F |
118 |
EXF_WIND |
tmp4 = ustar*ustar/clindrag_1/2 - tmp3**3 |
|
./pkg/exf/exf_wind.F |
119 |
EXF_WIND |
tmp5 = sqrt(ustar*ustar/clindrag_1* |
|
./pkg/exf/exf_wind.F |
120 |
EXF_WIND |
& (ustar*ustar/clindrag_1/4 - tmp3**3)) |
|
./pkg/exf/exf_wind.F |
47 |
EXF_WIND |
_RL ustar |
|
./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/fizhi/fizhi_turb.F |
2305 |
TRBFLX |
sustar(i) = sustar(i) + aitr*ustar(i) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2287 |
TRBFLX |
sustar(i) = sustar(i) + aitr*ustar(i) |
|
./pkg/kpp/kpp_calc.F |
175 |
KPP_CALC |
_KPP_RL ustar ( ibot:itop , jbot:jtop ) |
|
./pkg/kpp/kpp_calc.F |
354 |
KPP_CALC |
ustar(i,j) = p0 |
|
./pkg/kpp/kpp_calc.F |
380 |
KPP_CALC |
ustar(i,j) = SQRT( phepsi * p5 * drF(1) ) |
|
./pkg/kpp/kpp_calc.F |
383 |
KPP_CALC |
ustar(i,j) = SQRT( tempVar2 ) |
|
./pkg/kpp/kpp_calc.F |
481 |
KPP_CALC |
& MAX ( ustar(i,j), phepsi ) ) |
|
./pkg/kpp/kpp_calc.F |
506 |
KPP_CALC |
tempVar2 = ustar(i,j) * |
|
./pkg/kpp/kpp_calc.F |
659 |
KPP_CALC |
I , work1, shsq, dVsq, ustar |
|
./pkg/kpp/kpp_routines.F |
1066 |
BLMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
1091 |
BLMIX |
_KPP_RL ustar (imt) |
|
./pkg/kpp/kpp_routines.F |
1139 |
BLMIX |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
1182 |
BLMIX |
& max(ustar(i)**4,phepsi) |
|
./pkg/kpp/kpp_routines.F |
1232 |
BLMIX |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
1285 |
BLMIX |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
169 |
KPPMIX |
I , dvsq, dbloc, Ritop, ustar, bo, bosol, coriol |
|
./pkg/kpp/kpp_routines.F |
181 |
KPPMIX |
I ustar, bfsfc, hbl, stable, casea, diffus, kbl |
|
./pkg/kpp/kpp_routines.F |
231 |
BLDEPTH |
I , dvsq, dbloc, Ritop, ustar, bo, bosol, coriol |
|
./pkg/kpp/kpp_routines.F |
24 |
KPPMIX |
I , kmtj, shsq, dvsq, ustar |
|
./pkg/kpp/kpp_routines.F |
285 |
BLDEPTH |
_KPP_RL ustar (imt) |
|
./pkg/kpp/kpp_routines.F |
379 |
BLDEPTH |
I sigma, casea, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
488 |
BLDEPTH |
hekman = cekman * ustar(i) / max(abs(Coriol(i)),phepsi) |
|
./pkg/kpp/kpp_routines.F |
489 |
BLDEPTH |
hmonob = cmonob * ustar(i)*ustar(i)*ustar(i) |
|
./pkg/kpp/kpp_routines.F |
564 |
WSCALE |
I sigma, hbl, ustar, bfsfc, |
|
./pkg/kpp/kpp_routines.F |
588 |
WSCALE |
_KPP_RL ustar(imt) |
|
./pkg/kpp/kpp_routines.F |
623 |
WSCALE |
udiff = ustar(i) - umin |
|
./pkg/kpp/kpp_routines.F |
643 |
WSCALE |
u3 = ustar(i) * ustar(i) * ustar(i) |
|
./pkg/kpp/kpp_routines.F |
645 |
WSCALE |
wm(i) = vonk * ustar(i) * u3 / tempVar |
|
./pkg/kpp/kpp_routines.F |
78 |
KPPMIX |
_KPP_RL ustar (imt ) |
|
./pkg/thsice/thsice_get_exf.F |
157 |
THSICE_GET_EXF |
ustar = rdn*sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
166 |
THSICE_GET_EXF |
& ustar**2 |
|
./pkg/thsice/thsice_get_exf.F |
209 |
THSICE_GET_EXF |
ustar = rd*sh(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
214 |
THSICE_GET_EXF |
tau = atmrho*ustar**2 |
|
./pkg/thsice/thsice_get_exf.F |
217 |
THSICE_GET_EXF |
evapLoc = -tau*qstar/ustar |
|
./pkg/thsice/thsice_get_exf.F |
219 |
THSICE_GET_EXF |
hsLocal = atmcp*tau*tstar/ustar |
|
./pkg/thsice/thsice_get_exf.F |
228 |
THSICE_GET_EXF |
dEvdT = (tau*re/ustar)*ssq*dEvdT/Ts2 |
|
./pkg/thsice/thsice_get_exf.F |
230 |
THSICE_GET_EXF |
dfshdT = -atmcp*tau*rh/ustar |
|
./pkg/thsice/thsice_get_exf.F |
84 |
THSICE_GET_EXF |
_RL ustar |
|
./pkg/thsice/thsice_calc_thickn.F |
155 |
THSICE_CALC_THICKN |
_RL ustar, cpchr |
|
./pkg/thsice/thsice_calc_thickn.F |
216 |
THSICE_CALC_THICKN |
ustar = 5. _d -2 !for no currents |
|
./pkg/thsice/thsice_calc_thickn.F |
218 |
THSICE_CALC_THICKN |
ustar = SQRT(0.00536 _d 0*oceV2s) |
|
./pkg/thsice/thsice_calc_thickn.F |
219 |
THSICE_CALC_THICKN |
ustar=max(5. _d -3,ustar) |
|
./pkg/thsice/thsice_calc_thickn.F |
221 |
THSICE_CALC_THICKN |
Fbot = cpchr*(Tf-oceTs)*ustar ! < 0 |