| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml.F |
178 |
CHEAPAML |
uss=sqrt(uw**2+vw**2) |
|
./pkg/cheapaml/cheapaml.F |
179 |
CHEAPAML |
usm=max(uss,1. _d 0) |
|
./pkg/cheapaml/cheapaml.F |
183 |
CHEAPAML |
ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw |
|
./pkg/cheapaml/cheapaml.F |
184 |
CHEAPAML |
vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw |
|
./pkg/cheapaml/cheapaml.F |
332 |
CHEAPAML |
uss=sqrt(uw**2+vw**2) |
|
./pkg/cheapaml/cheapaml.F |
333 |
CHEAPAML |
usm=max(uss,0.5 _d 0) |
|
./pkg/cheapaml/cheapaml.F |
76 |
CHEAPAML |
_RL uss,usm,uw,vw,hm |