| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_psi.F |
145 |
GMREDI_SLOPE_PSI |
& ABS(SlopeY(i,j))*GM_rMaxSlope) |
|
./pkg/gmredi/gmredi_slope_psi.F |
163 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
228 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
237 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GE. slopeCutoff ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
238 |
GMREDI_SLOPE_PSI |
SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
264 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
285 |
GMREDI_SLOPE_PSI |
IF ( ABS(SlopeY(i,j)) .GT. GM_maxSlope .AND. |
|
./pkg/gmredi/gmredi_slope_psi.F |
286 |
GMREDI_SLOPE_PSI |
& ABS(SlopeY(i,j)) .LT. slopeCutoff ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
288 |
GMREDI_SLOPE_PSI |
& ( SlopeY(i,j)*SlopeY(i,j) + GM_Small_Number ) |
|
./pkg/gmredi/gmredi_slope_psi.F |
303 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
330 |
GMREDI_SLOPE_PSI |
Smod = ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
45 |
GMREDI_SLOPE_PSI |
_RL SlopeY(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 |
152 |
GMREDI_CALC_TENSOR |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
198 |
GMREDI_CALC_TENSOR |
O SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
210 |
GMREDI_CALC_TENSOR |
SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
229 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
349 |
GMREDI_CALC_TENSOR |
O SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
431 |
GMREDI_CALC_TENSOR |
O SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
46 |
GMREDI_CALC_TENSOR |
_RL SlopeY(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
484 |
GMREDI_CALC_TENSOR |
& )*SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
142 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
146 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
159 |
GMREDI_SLOPE_LIMIT |
& +SlopeY(i,j)*SlopeY(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
194 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=-dSigmaDy(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
253 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = SIGN(Small_taper,dSigmaDy(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
255 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
260 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
275 |
GMREDI_SLOPE_LIMIT |
& +SlopeY(i,j)*SlopeY(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
46 |
GMREDI_SLOPE_LIMIT |
_RL SlopeY(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 |
102 |
GMREDI_CALC_PSI_B |
SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
112 |
GMREDI_CALC_PSI_B |
U SlopeX, SlopeY, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
137 |
GMREDI_CALC_PSI_B |
GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
49 |
GMREDI_CALC_PSI_B |
_RL SlopeY(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
84 |
GMREDI_CALC_PSI_B |
SlopeY(i,j) = 0. _d 0 |