| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
161 |
GWDRAG |
call STRIPIT ( uz,us,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
170 |
GWDRAG |
call GWDD ( ps,us,vs,ts, |
|
./pkg/fizhi/fizhi_gwdrag.F |
72 |
GWDRAG |
_RL us(istrip,Lm), vs(istrip,Lm), ts(istrip,Lm) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
10 |
BULKF_FORMULA_LANL |
I uw, vw, us, Ta, Qa, nc, tsf_in, |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
140 |
BULKF_FORMULA_LANL |
if (us.eq.0. _d 0) then |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
141 |
BULKF_FORMULA_LANL |
us = sqrt(uw*uw + vw*vw) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
143 |
BULKF_FORMULA_LANL |
usm = max(us,umin) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
191 |
BULKF_FORMULA_LANL |
tau = tau*us/usm |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
192 |
BULKF_FORMULA_LANL |
csha = rhoa*cpair*us*rh*rd |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
193 |
BULKF_FORMULA_LANL |
clha = rhoa*lath*us*re*rd |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
230 |
BULKF_FORMULA_LANL |
ust = rhoa*bulkf_Cdn*us*uw |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
231 |
BULKF_FORMULA_LANL |
vst = rhoa*bulkf_Cdn*us*vw |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
46 |
BULKF_FORMULA_LANL |
_RL us ! wind speed [m/s] at height hu |