| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_psi.F |
10 |
GMREDI_SLOPE_PSI |
U dSigmaDrW,dSigmaDrS, |
|
./pkg/gmredi/gmredi_slope_psi.F |
154 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrS(i,j).GE.dSigmaDrLtd(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
155 |
GMREDI_SLOPE_PSI |
& dSigmaDrS(i,j) = dSigmaDrLtd(i,j) |
|
./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 |
219 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrS(i,j).GE.-GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
220 |
GMREDI_SLOPE_PSI |
& dSigmaDrS(i,j) = -GM_Small_Number |
|
./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 |
47 |
GMREDI_SLOPE_PSI |
_RL dSigmaDrS(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
104 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j)=op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
113 |
GMREDI_CALC_PSI_B |
U dSigmaDrW, dSigmaDrS, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
51 |
GMREDI_CALC_PSI_B |
_RL dSigmaDrS(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
86 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j) = 0. _d 0 |