| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
249 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
291 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
323 |
GMREDI_CALC_TENSOR |
dSigmaR = ( dSigmaDr(i,j)*4. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
324 |
GMREDI_CALC_TENSOR |
& + dSigmaDr(i-1,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
325 |
GMREDI_CALC_TENSOR |
& + dSigmaDr(i+1,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
326 |
GMREDI_CALC_TENSOR |
& + dSigmaDr(i,j-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
327 |
GMREDI_CALC_TENSOR |
& + dSigmaDr(i,j+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
367 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=sigmaR(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
385 |
GMREDI_CALC_TENSOR |
U dSigmaDr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
440 |
GMREDI_CALC_TENSOR |
IF ( Ssq(i,j).NE.0. .AND. dSigmaDr(i,j).NE.0. ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
441 |
GMREDI_CALC_TENSOR |
N2loc = -gravity*recip_rhoConst*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
578 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i-1,j, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
600 |
GMREDI_CALC_TENSOR |
U dSigmaDr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
71 |
GMREDI_CALC_TENSOR |
_RL dSigmaDr(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
765 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i,j-1, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
785 |
GMREDI_CALC_TENSOR |
U dSigmaDr, |
|
./pkg/gmredi/gmredi_slope_limit.F |
13 |
GMREDI_SLOPE_LIMIT |
U dSigmaDr, |
|
./pkg/gmredi/gmredi_slope_limit.F |
160 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .NE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
161 |
GMREDI_SLOPE_LIMIT |
IF (dSigmaDr(i,j).GE.(-GM_Small_Number)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
162 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_limit.F |
175 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
187 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
250 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .GE. tmpFld(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
251 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = tmpFld(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
268 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0/( dSigmaDr(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
311 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j).GE. -GM_Small_Number ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
312 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_limit.F |
319 |
GMREDI_SLOPE_LIMIT |
SlopeMod(i,j) = -locVar(i,j)/dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
472 |
GMREDI_SLOPE_LIMIT |
& + dSigmaDr(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
481 |
GMREDI_SLOPE_LIMIT |
& *dRdSigmaLtd(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
483 |
GMREDI_SLOPE_LIMIT |
& *dRdSigmaLtd(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
519 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .NE. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
520 |
GMREDI_SLOPE_LIMIT |
IF (dSigmaDr(i,j).GE.(-GM_Small_Number)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
521 |
GMREDI_SLOPE_LIMIT |
& dSigmaDr(i,j) = -GM_Small_Number |
|
./pkg/gmredi/gmredi_slope_limit.F |
534 |
GMREDI_SLOPE_LIMIT |
IF ( dSigmaDr(i,j) .EQ. 0. ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
546 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
85 |
GMREDI_SLOPE_LIMIT |
_RL dSigmaDr (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |