| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
303 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
421 |
GMREDI_CALC_TENSOR |
O SlopeSqr, taperFct, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
434 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
451 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
462 |
GMREDI_CALC_TENSOR |
Ssq(i,j)=SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
687 |
GMREDI_CALC_TENSOR |
O SlopeSqr, taperFct, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
78 |
GMREDI_CALC_TENSOR |
_RL SlopeSqr(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
885 |
GMREDI_CALC_TENSOR |
O SlopeSqr, taperFct, |
|
./pkg/gmredi/gmredi_slope_limit.F |
11 |
GMREDI_SLOPE_LIMIT |
O SlopeSqr, taperFct, |
|
./pkg/gmredi/gmredi_slope_limit.F |
215 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j)=SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
364 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j) = MIN( baseSlope(i,j), GM_bigSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
376 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j) = MIN( SlopeMod(i,j), GM_bigSlope ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
411 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j)=(dSigmaDx(i,j)*dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
421 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
422 |
GMREDI_SLOPE_LIMIT |
& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
423 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
424 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
495 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
498 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .GT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
514 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
516 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
517 |
GMREDI_SLOPE_LIMIT |
& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
518 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = SQRT(maxSlopeSqr / SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
532 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
534 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND. |
|
./pkg/gmredi/gmredi_slope_limit.F |
535 |
GMREDI_SLOPE_LIMIT |
& SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
536 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
548 |
GMREDI_SLOPE_LIMIT |
IF ( SlopeSqr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
550 |
GMREDI_SLOPE_LIMIT |
ELSE IF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
551 |
GMREDI_SLOPE_LIMIT |
Smod=SQRT(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
563 |
GMREDI_SLOPE_LIMIT |
IF (SlopeSqr(i,j) .EQ. 0.) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
565 |
GMREDI_SLOPE_LIMIT |
ELSEIF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
566 |
GMREDI_SLOPE_LIMIT |
Smod=SQRT(SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
605 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
80 |
GMREDI_SLOPE_LIMIT |
_RL SlopeSqr (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |