| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_routines.F |
1353 |
BLMIX |
_RL ws(imt), wm(imt) |
|
./pkg/kpp/kpp_routines.F |
1380 |
BLMIX |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1388 |
BLMIX |
ws(i) = sign(eins,ws(i))*max(phepsi,abs(ws(i))) |
|
./pkg/kpp/kpp_routines.F |
1430 |
BLMIX |
gat1s(i) = difsh / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1431 |
BLMIX |
dat1s(i) = -difsp / ws(i) + f1 * difsh |
|
./pkg/kpp/kpp_routines.F |
1433 |
BLMIX |
gat1t(i) = difth / hbl(i) / ws(i) |
|
./pkg/kpp/kpp_routines.F |
1434 |
BLMIX |
dat1t(i) = -diftp / ws(i) + f1 * difth |
|
./pkg/kpp/kpp_routines.F |
1479 |
BLMIX |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1504 |
BLMIX |
blmc(i,ki,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1505 |
BLMIX |
blmc(i,ki,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
1511 |
BLMIX |
tempVar = ws(i) * hbl(i) |
|
./pkg/kpp/kpp_routines.F |
1537 |
BLMIX |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
1553 |
BLMIX |
dkm1(i,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs) |
|
./pkg/kpp/kpp_routines.F |
1554 |
BLMIX |
dkm1(i,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt) |
|
./pkg/kpp/kpp_routines.F |
401 |
BLDEPTH |
_RL wm(imt), ws(imt) |
|
./pkg/kpp/kpp_routines.F |
536 |
BLDEPTH |
O wm, ws, myThid ) |
|
./pkg/kpp/kpp_routines.F |
554 |
BLDEPTH |
vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc |
|
./pkg/kpp/kpp_routines.F |
833 |
WSCALE |
O wm, ws, |
|
./pkg/kpp/kpp_routines.F |
865 |
WSCALE |
_RL wm(imt), ws(imt) |
|
./pkg/kpp/kpp_routines.F |
920 |
WSCALE |
ws(i) = (1.-ufrac) * wbs + ufrac * was |
|
./pkg/kpp/kpp_routines.F |
927 |
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 |