| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
155 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
186 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=sigmaR(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
200 |
GMREDI_CALC_TENSOR |
U dSigmaDr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
252 |
GMREDI_CALC_TENSOR |
IF ( Ssq(i,j).NE.0. .AND. dSigmaDr(i,j).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
253 |
GMREDI_CALC_TENSOR |
N2= -Gravity*recip_RhoConst*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
334 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i-1,j, k ) +sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
351 |
GMREDI_CALC_TENSOR |
U dSigmaDr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
417 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i,j-1, k ) +sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
433 |
GMREDI_CALC_TENSOR |
U dSigmaDr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
49 |
GMREDI_CALC_TENSOR |
_RL dSigmaDr(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_slope_limit.F |
10 |
GMREDI_SLOPE_LIMIT |
U dSigmaDr, |
|
./pkg/gmredi/gmredi_slope_limit.F |
126 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .GE. tmpfld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
127 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = tmpfld(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
144 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1./( dSigmaDr(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
184 |
GMREDI_SLOPE_LIMIT |
& + dSigmaDr(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
193 |
GMREDI_SLOPE_LIMIT |
& *dRdSigmaLtd(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
195 |
GMREDI_SLOPE_LIMIT |
& *dRdSigmaLtd(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
231 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .NE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
232 |
GMREDI_SLOPE_LIMIT |
IF (dSigmaDr(i,j).GE.(-GM_Small_Number)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
233 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_limit.F |
246 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
258 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
49 |
GMREDI_SLOPE_LIMIT |
_RL dSigmaDr(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |