| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
122 |
NO PROCEDURE |
_RL GM_maxSlope |
|
./pkg/gmredi/GMREDI.h |
162 |
NO PROCEDURE |
& GM_maxSlope, |
|
./pkg/gmredi/gmredi_check.F |
88 |
GMREDI_CHECK |
CALL WRITE_0D_RL( GM_maxSlope, INDEX_NONE, |
|
./pkg/gmredi/gmredi_k3d.F |
513 |
GMREDI_K3D |
IF (slopeC(i,j,k).LE.GM_maxSlope) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
656 |
GMREDI_K3D |
IF(ABS(slope).GT.GM_maxSlope) |
|
./pkg/gmredi/gmredi_k3d.F |
657 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_k3d.F |
664 |
GMREDI_K3D |
IF(ABS(slope).GT.GM_maxSlope) |
|
./pkg/gmredi/gmredi_k3d.F |
665 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_readparms.F |
193 |
GMREDI_READPARMS |
& GM_Visbeck_maxSlope = GM_maxSlope |
|
./pkg/gmredi/gmredi_readparms.F |
197 |
GMREDI_READPARMS |
if (GM_maxSlope.NE.0.) GM_rMaxSlope = 1. _d 0 / GM_maxSlope |
|
./pkg/gmredi/gmredi_readparms.F |
56 |
GMREDI_READPARMS |
& GM_maxSlope, |
|
./pkg/gmredi/gmredi_readparms.F |
99 |
GMREDI_READPARMS |
GM_maxSlope = 1. _d -2 |
|
./pkg/gmredi/gmredi_slope_limit.F |
295 |
GMREDI_SLOPE_LIMIT |
& / MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
306 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = ( MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
307 |
GMREDI_SLOPE_LIMIT |
& - MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
361 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
373 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
401 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
512 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
530 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_psi.F |
271 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
273 |
GMREDI_SLOPE_PSI |
& taperX(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
279 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
281 |
GMREDI_SLOPE_PSI |
& taperY(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
288 |
GMREDI_SLOPE_PSI |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_psi.F |
291 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
299 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GT. GM_maxSlope .AND. |