| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_psi.F |
214 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
215 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
248 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GE. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
249 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
270 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
278 |
GMREDI_SLOPE_PSI |
& Smod .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
290 |
GMREDI_SLOPE_PSI |
& ABS(SlopeX(i,j)) .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
298 |
GMREDI_SLOPE_PSI |
& ABS(SlopeY(i,j)) .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
327 |
GMREDI_SLOPE_PSI |
IF ( Smod .LT. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
347 |
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 ) |