| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
111 |
GMREDI_SLOPE_LIMIT |
_RL maxSlopeSqr |
|
./pkg/gmredi/gmredi_slope_limit.F |
466 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
488 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
490 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
577 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
583 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
585 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = SQRT(maxSlopeSqr / SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
595 |
GMREDI_SLOPE_LIMIT |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_limit.F |
601 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
603 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
284 |
GMREDI_SLOPE_PSI |
maxSlopeSqr = GM_maxSlope*GM_maxSlope |
|
./pkg/gmredi/gmredi_slope_psi.F |
289 |
GMREDI_SLOPE_PSI |
& taperX(i,j)=maxSlopeSqr/ |
|
./pkg/gmredi/gmredi_slope_psi.F |
297 |
GMREDI_SLOPE_PSI |
& taperY(i,j)=maxSlopeSqr/ |
|
./pkg/gmredi/gmredi_slope_psi.F |
60 |
GMREDI_SLOPE_PSI |
_RL maxSlopeSqr |