| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
47 |
NO PROCEDURE |
_RL GM_Small_Number |
|
./pkg/gmredi/GMREDI.h |
65 |
NO PROCEDURE |
& GM_Small_Number, GM_slopeSqCutoff, |
|
./pkg/gmredi/gmredi_check.F |
81 |
GMREDI_CHECK |
CALL WRITE_0D_RL( GM_Small_Number, INDEX_NONE, |
|
./pkg/gmredi/gmredi_readparms.F |
54 |
GMREDI_READPARMS |
& GM_Small_Number, GM_slopeSqCutoff, |
|
./pkg/gmredi/gmredi_readparms.F |
78 |
GMREDI_READPARMS |
GM_Small_Number = 1. _d -20 |
|
./pkg/gmredi/gmredi_slope_limit.F |
161 |
GMREDI_SLOPE_LIMIT |
IF (dSigmaDr(i,j).GE.(-GM_Small_Number)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
162 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_limit.F |
311 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j).GE. -GM_Small_Number ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
312 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_limit.F |
520 |
GMREDI_SLOPE_LIMIT |
IF (dSigmaDr(i,j).GE.(-GM_Small_Number)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
521 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_psi.F |
115 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = -(GM_Small_Number+ |
|
./pkg/gmredi/gmredi_slope_psi.F |
150 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = -(GM_Small_Number+ |
|
./pkg/gmredi/gmredi_slope_psi.F |
197 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrW(i,j).GE.-GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
198 |
GMREDI_SLOPE_PSI |
& dSigmaDrW(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_psi.F |
229 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrS(i,j).GE.-GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
230 |
GMREDI_SLOPE_PSI |
& dSigmaDrS(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_psi.F |
269 |
GMREDI_SLOPE_PSI |
& taperX(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
277 |
GMREDI_SLOPE_PSI |
& taperY(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
290 |
GMREDI_SLOPE_PSI |
& ( SlopeX(i,j)*SlopeX(i,j) + GM_Small_Number ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
298 |
GMREDI_SLOPE_PSI |
& ( SlopeY(i,j)*SlopeY(i,j) + GM_Small_Number ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
382 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrW(i,j).GE.-GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
383 |
GMREDI_SLOPE_PSI |
& dSigmaDrW(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_psi.F |
403 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrS(i,j).GE.-GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
404 |
GMREDI_SLOPE_PSI |
& dSigmaDrS(i,j) = -GM_Small_Number |