| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
116 |
NO PROCEDURE |
_RL GM_maxSlope |
|
./pkg/gmredi/GMREDI.h |
156 |
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 |
500 |
GMREDI_K3D |
IF (slopeC(i,j,k).LE.GM_maxSlope) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
645 |
GMREDI_K3D |
IF(ABS(slope).GT.GM_maxSlope) |
|
./pkg/gmredi/gmredi_k3d.F |
646 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_k3d.F |
653 |
GMREDI_K3D |
IF(ABS(slope).GT.GM_maxSlope) |
|
./pkg/gmredi/gmredi_k3d.F |
654 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_readparms.F |
185 |
GMREDI_READPARMS |
& GM_Visbeck_maxSlope = GM_maxSlope |
|
./pkg/gmredi/gmredi_readparms.F |
189 |
GMREDI_READPARMS |
if (GM_maxSlope.NE.0.) GM_rMaxSlope = 1. _d 0 / GM_maxSlope |
|
./pkg/gmredi/gmredi_readparms.F |
54 |
GMREDI_READPARMS |
& GM_maxSlope, |
|
./pkg/gmredi/gmredi_readparms.F |
97 |
GMREDI_READPARMS |
GM_maxSlope = 1. _d -2 |
|
./pkg/gmredi/gmredi_slope_limit.F |
293 |
GMREDI_SLOPE_LIMIT |
& / MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
304 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = ( MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
305 |
GMREDI_SLOPE_LIMIT |
& - MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
359 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
371 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
399 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
510 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
528 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_psi.F |
269 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
271 |
GMREDI_SLOPE_PSI |
& taperX(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
277 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
279 |
GMREDI_SLOPE_PSI |
& taperY(i,j)=GM_maxSlope/(Smod+GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
286 |
GMREDI_SLOPE_PSI |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_psi.F |
289 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
297 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GT. GM_maxSlope .AND. |