| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
114 |
CHEAPAML_LANL_FLUX |
uss=sqrt(uw**2+vw**2) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
115 |
CHEAPAML_LANL_FLUX |
usm=max(uss,1. _d 0) |
|
./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 |
118 |
CHEAPAML_LANL_FLUX |
vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
189 |
CHEAPAML_LANL_FLUX |
usm=max(uss,0.5 _d 0) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
61 |
CHEAPAML_LANL_FLUX |
_RL uss,usm,uw,vw |