| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml.F |
175 |
CHEAPAML |
uss=sqrt(uw**2+vw**2) |
|
./pkg/cheapaml/cheapaml.F |
176 |
CHEAPAML |
usm=max(uss,1. _d 0) |
|
./pkg/cheapaml/cheapaml.F |
180 |
CHEAPAML |
ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw |
|
./pkg/cheapaml/cheapaml.F |
181 |
CHEAPAML |
vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw |
|
./pkg/cheapaml/cheapaml.F |
329 |
CHEAPAML |
uss=sqrt(uw**2+vw**2) |
|
./pkg/cheapaml/cheapaml.F |
330 |
CHEAPAML |
usm=max(uss,0.5 _d 0) |
|
./pkg/cheapaml/cheapaml.F |
75 |
CHEAPAML |
_RL uss,usm,uw,vw,hm |