| 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 |
231 |
BULKF_FORMULA_LANL |
vst = rhoa*bulkf_Cdn*us*vw |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
45 |
BULKF_FORMULA_LANL |
_RL vw ! meridional 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 |
237 |
BULKF_FORMULA_LAY |
vst = tau*rd*vw |
|
./pkg/bulk_force/bulkf_formula_lay.F |
51 |
BULKF_FORMULA_LAY |
_RL vw ! meridional wind speed (at grid center) [m/s] |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
113 |
CHEAPAML_LANL_FLUX |
vw=vwind(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 |
118 |
CHEAPAML_LANL_FLUX |
vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
61 |
CHEAPAML_LANL_FLUX |
_RL uss,usm,uw,vw |