| File |
Line number |
Procedure |
Code |
|
./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 |
141 |
BULKF_FORMULA_LANL |
us = sqrt(uw*uw + vw*vw) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
230 |
BULKF_FORMULA_LANL |
ust = rhoa*bulkf_Cdn*us*uw |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
44 |
BULKF_FORMULA_LANL |
_RL uw ! zonal wind speed (at grid center) [m/s] |
|
./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 |
149 |
BULKF_FORMULA_LAY |
ws = SQRT(uw*uw + vw*vw) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
236 |
BULKF_FORMULA_LAY |
ust = tau*rd*uw |
|
./pkg/bulk_force/bulkf_formula_lay.F |
50 |
BULKF_FORMULA_LAY |
_RL uw ! zonal wind speed (at grid center) [m/s] |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
112 |
CHEAPAML_LANL_FLUX |
uw=uwind(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
114 |
CHEAPAML_LANL_FLUX |
uss=sqrt(uw**2+vw**2) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
117 |
CHEAPAML_LANL_FLUX |
ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
61 |
CHEAPAML_LANL_FLUX |
_RL uss,usm,uw,vw |