File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_slope_limit.F |
108 |
GMREDI_SLOPE_LIMIT |
_RL dSigmMod(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/gmredi/gmredi_slope_limit.F |
146 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
./pkg/gmredi/gmredi_slope_limit.F |
169 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
./pkg/gmredi/gmredi_slope_limit.F |
171 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = SQRT( tmpFld(i,j) ) |
./pkg/gmredi/gmredi_slope_limit.F |
183 |
GMREDI_SLOPE_LIMIT |
IF (dSigmMod(i,j) .NE. 0.) THEN |
./pkg/gmredi/gmredi_slope_limit.F |
184 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = -dSigmMod(i,j)*GM_rMaxSlope |
./pkg/gmredi/gmredi_slope_limit.F |
199 |
GMREDI_SLOPE_LIMIT |
IF (dSigmMod(i,j) .EQ. 0.) THEN |