File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_slope_psi.F |
216 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN |
./pkg/gmredi/gmredi_slope_psi.F |
217 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j)) |
./pkg/gmredi/gmredi_slope_psi.F |
250 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GE. slopeCutoff ) THEN |
./pkg/gmredi/gmredi_slope_psi.F |
251 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j)) |
./pkg/gmredi/gmredi_slope_psi.F |
272 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
./pkg/gmredi/gmredi_slope_psi.F |
280 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
./pkg/gmredi/gmredi_slope_psi.F |
292 |
GMREDI_SLOPE_PSI |
& ABS(SlopeX(i,j)) .LT. slopeCutoff ) |
./pkg/gmredi/gmredi_slope_psi.F |
300 |
GMREDI_SLOPE_PSI |
& ABS(SlopeY(i,j)) .LT. slopeCutoff ) |
./pkg/gmredi/gmredi_slope_psi.F |
329 |
GMREDI_SLOPE_PSI |
IF ( Smod .LT. slopeCutoff ) THEN |
./pkg/gmredi/gmredi_slope_psi.F |
349 |
GMREDI_SLOPE_PSI |
IF ( Smod .LT. slopeCutoff ) THEN |
./pkg/gmredi/gmredi_slope_psi.F |
64 |
GMREDI_SLOPE_PSI |
_RL slopeCutoff |
./pkg/gmredi/gmredi_slope_psi.F |
74 |
GMREDI_SLOPE_PSI |
slopeCutoff = SQRT( GM_slopeSqCutoff ) |