| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1210 |
BLMIX |
_RL ws(imt), wm(imt) |
|
./pkg/kpp/kpp_routines.F |
1235 |
BLMIX |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1241 |
BLMIX |
ws(i) = sign(eins,ws(i))*max(phepsi,abs(ws(i))) |
|
./pkg/kpp/kpp_routines.F |
1281 |
BLMIX |
gat1s(i) = difsh / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1282 |
BLMIX |
dat1s(i) = -difsp / ws(i) + f1 * difsh |
|
./pkg/kpp/kpp_routines.F |
1284 |
BLMIX |
gat1t(i) = difth / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1285 |
BLMIX |
dat1t(i) = -diftp / ws(i) + f1 * difth |
|
./pkg/kpp/kpp_routines.F |
1328 |
BLMIX |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1351 |
BLMIX |
blmc(i,ki,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1352 |
BLMIX |
blmc(i,ki,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
1358 |
BLMIX |
tempVar = ws(i) * hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1381 |
BLMIX |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1394 |
BLMIX |
dkm1(i,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1395 |
BLMIX |
dkm1(i,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
366 |
BLDEPTH |
_RL wm(imt), ws(imt) |
|
./pkg/kpp/kpp_routines.F |
473 |
BLDEPTH |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
489 |
BLDEPTH |
vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc |
|
./pkg/kpp/kpp_routines.F |
711 |
WSCALE |
O wm, ws, |
|
./pkg/kpp/kpp_routines.F |
743 |
WSCALE |
_RL wm(imt), ws(imt) |
|
./pkg/kpp/kpp_routines.F |
788 |
WSCALE |
ws(i) = (1.-ufrac) * wbs + ufrac * was |
|
./pkg/kpp/kpp_routines.F |
795 |
WSCALE |
ws(i) = wm(i) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
10 |
BULKF_FORMULA_LAY |
I uw, vw, ws, Ta, Qa, tsfCel, |
|
./pkg/bulk_force/bulkf_formula_lay.F |
148 |
BULKF_FORMULA_LAY |
IF (ws.EQ.0. _d 0) THEN |
|
./pkg/bulk_force/bulkf_formula_lay.F |
149 |
BULKF_FORMULA_LAY |
ws = SQRT(uw*uw + vw*vw) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
151 |
BULKF_FORMULA_LAY |
wsm = MAX(ws,umin) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
206 |
BULKF_FORMULA_LAY |
usn = ws/(one + rdn/xkar*(zwln-psimh) ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
228 |
BULKF_FORMULA_LAY |
tau = rhoA*rd*ws |
|
./pkg/bulk_force/bulkf_formula_lay.F |
52 |
BULKF_FORMULA_LAY |
_RL ws ! wind speed [m/s] at height zwd |