Symbol Description Uses
slopeMaxSpec 6



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