| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
102 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
113 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j)=op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
130 |
GMREDI_CALC_PSI_B |
U dSigmaDrW, dSigmaDrS, |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
68 |
GMREDI_CALC_PSI_B |
_RL dSigmaDrW(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
114 |
GMREDI_CALC_PSI_BVP |
dSigmaDrW = op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
118 |
GMREDI_CALC_PSI_BVP |
& + SQRT(MAX( -dSigmaDrW, 0. _d 0 )) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
122 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = MAX( -dSigmaDrW, GM_Small_Number ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
56 |
GMREDI_CALC_PSI_BVP |
_RL dSigmaDrW |
|
./pkg/gmredi/gmredi_slope_psi.F |
125 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrW(i,j).GE.dSigmaDrLtd(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
126 |
GMREDI_SLOPE_PSI |
& dSigmaDrW(i,j) = dSigmaDrLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
134 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
13 |
GMREDI_SLOPE_PSI |
U dSigmaDrW,dSigmaDrS, |
|
./pkg/gmredi/gmredi_slope_psi.F |
197 |
GMREDI_SLOPE_PSI |
IF (dSigmaDrW(i,j).GE.-GM_Small_Number) |
|
./pkg/gmredi/gmredi_slope_psi.F |
198 |
GMREDI_SLOPE_PSI |
& dSigmaDrW(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_psi.F |
206 |
GMREDI_SLOPE_PSI |
SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j) |
|
./pkg/gmredi/gmredi_slope_psi.F |
49 |
GMREDI_SLOPE_PSI |
_RL dSigmaDrW(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |