| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_psi.F |
215 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
216 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
247 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GE. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
248 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
268 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
276 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
288 |
GMREDI_SLOPE_PSI |
& ABS(SlopeX(i,j)) .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
296 |
GMREDI_SLOPE_PSI |
& ABS(SlopeY(i,j)) .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
325 |
GMREDI_SLOPE_PSI |
IF ( Smod .LT. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
345 |
GMREDI_SLOPE_PSI |
IF ( Smod .LT. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
61 |
GMREDI_SLOPE_PSI |
_RL slopeCutoff |
|
./pkg/gmredi/gmredi_slope_psi.F |
71 |
GMREDI_SLOPE_PSI |
slopeCutoff = SQRT( GM_slopeSqCutoff ) |