| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_limit.F |
103 |
GMREDI_SLOPE_LIMIT |
_RL slopeTmpSpec,slopeMaxSpec |
|
./pkg/gmredi/gmredi_slope_limit.F |
201 |
GMREDI_SLOPE_LIMIT |
slopeTmpSpec=sqrt( SlopeX(i,j)*SlopeX(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
203 |
GMREDI_SLOPE_LIMIT |
IF ( slopeTmpSpec .GT. slopeMaxSpec ) then |
|
./pkg/gmredi/gmredi_slope_limit.F |
204 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j)=SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec |
|
./pkg/gmredi/gmredi_slope_limit.F |
205 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j)=SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec |
|
./pkg/gmredi/gmredi_slope_psi.F |
424 |
GMREDI_SLOPE_PSI |
slopeTmpSpec=ABS(SlopeX(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
425 |
GMREDI_SLOPE_PSI |
IF ( slopeTmpSpec .GT. slopeMaxSpec ) then |
|
./pkg/gmredi/gmredi_slope_psi.F |
426 |
GMREDI_SLOPE_PSI |
SlopeX(i,j)=5.*SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec |
|
./pkg/gmredi/gmredi_slope_psi.F |
435 |
GMREDI_SLOPE_PSI |
slopeTmpSpec=ABS(SlopeY(i,j)) |
|
./pkg/gmredi/gmredi_slope_psi.F |
436 |
GMREDI_SLOPE_PSI |
IF ( slopeTmpSpec .GT. slopeMaxSpec ) then |
|
./pkg/gmredi/gmredi_slope_psi.F |
437 |
GMREDI_SLOPE_PSI |
SlopeY(i,j)=5.*SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec |
|
./pkg/gmredi/gmredi_slope_psi.F |
66 |
GMREDI_SLOPE_PSI |
_RL slopeTmpSpec,slopeMaxSpec |