| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
45 |
NO PROCEDURE |
_RL GM_maxSlope |
|
./pkg/gmredi/GMREDI.h |
63 |
NO PROCEDURE |
& GM_maxSlope, |
|
./pkg/gmredi/gmredi_check.F |
88 |
GMREDI_CHECK |
CALL WRITE_0D_RL( GM_maxSlope, INDEX_NONE, |
|
./pkg/gmredi/gmredi_readparms.F |
122 |
GMREDI_READPARMS |
& GM_Visbeck_maxSlope = GM_maxSlope |
|
./pkg/gmredi/gmredi_readparms.F |
126 |
GMREDI_READPARMS |
if (GM_maxSlope.NE.0.) GM_rMaxSlope = 1. _d 0 / GM_maxSlope |
|
./pkg/gmredi/gmredi_readparms.F |
52 |
GMREDI_READPARMS |
& GM_maxSlope, |
|
./pkg/gmredi/gmredi_readparms.F |
76 |
GMREDI_READPARMS |
GM_maxSlope = 1. _d -2 |
|
./pkg/gmredi/gmredi_slope_limit.F |
360 |
GMREDI_SLOPE_LIMIT |
& / MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
371 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = ( MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
372 |
GMREDI_SLOPE_LIMIT |
& - MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
426 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( baseSlope(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
438 |
GMREDI_SLOPE_LIMIT |
Smod = MIN( SlopeMod(i,j), GM_maxSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
466 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
577 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
595 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_psi.F |
267 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./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 |
275 |
GMREDI_SLOPE_PSI |
IF ( Smod .GT. GM_maxSlope .AND. |
|
./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 |
284 |
GMREDI_SLOPE_PSI |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_psi.F |
287 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
295 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GT. GM_maxSlope .AND. |