| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
293 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
295 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
296 |
GMREDI_SLOPE_LIMIT |
& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
297 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = sqrt(maxSlopeSqr / SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
310 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
312 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
313 |
GMREDI_SLOPE_LIMIT |
& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
314 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
326 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
328 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
329 |
GMREDI_SLOPE_LIMIT |
Smod=sqrt(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
341 |
GMREDI_SLOPE_LIMIT |
IF (SlopeSqr(i,j) .EQ. 0.) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
343 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
344 |
GMREDI_SLOPE_LIMIT |
Smod=sqrt(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
47 |
GMREDI_SLOPE_LIMIT |
_RL SlopeSqr(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_limit.F |
9 |
GMREDI_SLOPE_LIMIT |
O SlopeSqr, taperFct, |