| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_psi.F |
110 |
GMREDI_SLOPE_PSI |
& ABS(SlopeX(i,j))*GM_rMaxSlope) |
|
./pkg/gmredi/gmredi_slope_psi.F |
128 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
196 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
205 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
206 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
256 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
277 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
278 |
GMREDI_SLOPE_PSI |
& ABS(SlopeX(i,j)) .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
280 |
GMREDI_SLOPE_PSI |
& ( SlopeX(i,j)*SlopeX(i,j) + GM_Small_Number ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
297 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
314 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
44 |
GMREDI_SLOPE_PSI |
_RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_psi.F |
9 |
GMREDI_SLOPE_PSI |
U SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
151 |
GMREDI_CALC_TENSOR |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
198 |
GMREDI_CALC_TENSOR |
O SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
209 |
GMREDI_CALC_TENSOR |
SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
228 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
349 |
GMREDI_CALC_TENSOR |
O SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
403 |
GMREDI_CALC_TENSOR |
& )*SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
431 |
GMREDI_CALC_TENSOR |
O SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
45 |
GMREDI_CALC_TENSOR |
_RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_limit.F |
141 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
145 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
158 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j)=SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
192 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=-dSigmaDx(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
248 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = SIGN(Small_taper,dSigmaDx(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
250 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
259 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
274 |
GMREDI_SLOPE_LIMIT |
SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
45 |
GMREDI_SLOPE_LIMIT |
_RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_limit.F |
8 |
GMREDI_SLOPE_LIMIT |
O SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
112 |
GMREDI_CALC_PSI_B |
U SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
127 |
GMREDI_CALC_PSI_B |
GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
48 |
GMREDI_CALC_PSI_B |
_RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
83 |
GMREDI_CALC_PSI_B |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
94 |
GMREDI_CALC_PSI_B |
SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) ) |