| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
110 |
GMREDI_SLOPE_LIMIT |
_RL dRdSigmaLtd(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_slope_limit.F |
203 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0/( dSigmaDr(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
204 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
205 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
404 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j)= |
|
./pkg/gmredi/gmredi_slope_limit.F |
410 |
GMREDI_SLOPE_LIMIT |
IF (dRdSigmaLtd(i,j).NE.0.) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
411 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
412 |
GMREDI_SLOPE_LIMIT |
& / ( dRdSigmaLtd(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
414 |
GMREDI_SLOPE_LIMIT |
& +dSigmaDy(i,j)*dSigmaDy(i,j))*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
416 |
GMREDI_SLOPE_LIMIT |
& *dRdSigmaLtd(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
418 |
GMREDI_SLOPE_LIMIT |
& *dRdSigmaLtd(i,j)*dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
481 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
482 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
483 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j) |