| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
107 |
GMREDI_SLOPE_LIMIT |
tmpfld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j) + |
|
./pkg/gmredi/gmredi_slope_limit.F |
109 |
GMREDI_SLOPE_LIMIT |
IF ( tmpfld(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
112 |
GMREDI_SLOPE_LIMIT |
gradSmod(i,j) = sqrt( tmpfld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
125 |
GMREDI_SLOPE_LIMIT |
tmpfld(i,j) = -gradSmod(i,j)*GM_rMaxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
126 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .GE. tmpfld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
127 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = tmpfld(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
65 |
GMREDI_SLOPE_LIMIT |
_RL tmpfld(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_limit.F |
88 |
GMREDI_SLOPE_LIMIT |
tmpfld(i,j) = 0. _d 0 |