File |
Line number |
Procedure |
Code |
./pkg/cheapaml/cheapaml.F |
311 |
CHEAPAML |
uRelWind(i,j) = uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) |
./pkg/cheapaml/cheapaml.F |
318 |
CHEAPAML |
windSq(i,j) = ( uRelWind( i ,j)*uRelWind( i ,j) |
./pkg/cheapaml/cheapaml.F |
319 |
CHEAPAML |
& + uRelWind(i+1,j)*uRelWind(i+1,j) |
./pkg/cheapaml/cheapaml.F |
324 |
CHEAPAML |
windSq(i,j) = uRelWind(i,j)*uRelWind(i,j) |
./pkg/cheapaml/cheapaml.F |
74 |
CHEAPAML |
_RL uRelWind(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/cheapaml/cheapaml_seaice.F |
107 |
CHEAPAML_SEAICE |
_RL uRelWind(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/cheapaml/cheapaml_seaice.F |
138 |
CHEAPAML_SEAICE |
uRelWind(i,j) = uWind(i,j) |
./pkg/cheapaml/cheapaml_seaice.F |
146 |
CHEAPAML_SEAICE |
uRelWind(i,j) = uRelWind(i,j)-uIce(i,j,bi,bj) |
./pkg/cheapaml/cheapaml_seaice.F |
154 |
CHEAPAML_SEAICE |
windSq(i,j) = ( uRelWind( i ,j)*uRelWind( i ,j) |
./pkg/cheapaml/cheapaml_seaice.F |
155 |
CHEAPAML_SEAICE |
& + uRelWind(i+1,j)*uRelWind(i+1,j) |