| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
105 |
GMREDI_SLOPE_LIMIT |
_RL dSigmMod(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_limit.F |
143 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
234 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
236 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = SQRT( tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
248 |
GMREDI_SLOPE_LIMIT |
IF (dSigmMod(i,j) .NE. 0.) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
249 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = -dSigmMod(i,j)*GM_rMaxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
264 |
GMREDI_SLOPE_LIMIT |
IF (dSigmMod(i,j) .EQ. 0.) THEN |