| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1286 |
BLMIX |
_RL ws(imt), wm(imt) |
|
./pkg/kpp/kpp_routines.F |
1311 |
BLMIX |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1317 |
BLMIX |
ws(i) = sign(eins,ws(i))*max(phepsi,abs(ws(i))) |
|
./pkg/kpp/kpp_routines.F |
1357 |
BLMIX |
gat1s(i) = difsh / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1358 |
BLMIX |
dat1s(i) = -difsp / ws(i) + f1 * difsh |
|
./pkg/kpp/kpp_routines.F |
1360 |
BLMIX |
gat1t(i) = difth / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1361 |
BLMIX |
dat1t(i) = -diftp / ws(i) + f1 * difth |
|
./pkg/kpp/kpp_routines.F |
1404 |
BLMIX |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1427 |
BLMIX |
blmc(i,ki,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1428 |
BLMIX |
blmc(i,ki,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
1434 |
BLMIX |
tempVar = ws(i) * hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1457 |
BLMIX |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1470 |
BLMIX |
dkm1(i,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1471 |
BLMIX |
dkm1(i,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
385 |
BLDEPTH |
_RL wm(imt), ws(imt) |
|
./pkg/kpp/kpp_routines.F |
514 |
BLDEPTH |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
530 |
BLDEPTH |
vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc |
|
./pkg/kpp/kpp_routines.F |
784 |
WSCALE |
O wm, ws, |
|
./pkg/kpp/kpp_routines.F |
816 |
WSCALE |
_RL wm(imt), ws(imt) |
|
./pkg/kpp/kpp_routines.F |
861 |
WSCALE |
ws(i) = (1.-ufrac) * wbs + ufrac * was |
|
./pkg/kpp/kpp_routines.F |
868 |
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 |