| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_slope_psi.F |
377 |
GMREDI_SLOPE_PSI |
slopeMaxSpec=1. _d -4 |
|
./pkg/gmredi/gmredi_slope_psi.F |
385 |
GMREDI_SLOPE_PSI |
IF ( slopeTmpSpec .GT. slopeMaxSpec ) then |
|
./pkg/gmredi/gmredi_slope_psi.F |
386 |
GMREDI_SLOPE_PSI |
SlopeX(i,j)=5.*SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec |
|
./pkg/gmredi/gmredi_slope_psi.F |
396 |
GMREDI_SLOPE_PSI |
IF ( slopeTmpSpec .GT. slopeMaxSpec ) then |
|
./pkg/gmredi/gmredi_slope_psi.F |
397 |
GMREDI_SLOPE_PSI |
SlopeY(i,j)=5.*SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec |
|
./pkg/gmredi/gmredi_slope_psi.F |
69 |
GMREDI_SLOPE_PSI |
_RL slopeTmpSpec,slopeMaxSpec |