Symbol Description Uses
Rnondim 13


File Line number Procedure Code
./pkg/gmredi/gmredi_slope_psi.F 316 GMREDI_SLOPE_PSI 
              Rnondim = -depthZ/(LrhoW(i,j)*Smod)
./pkg/gmredi/gmredi_slope_psi.F 318 GMREDI_SLOPE_PSI 
              Rnondim = 1.
./pkg/gmredi/gmredi_slope_psi.F 320 GMREDI_SLOPE_PSI 
            IF ( Rnondim.GE.1. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_psi.F 323 GMREDI_SLOPE_PSI 
              f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) ))
./pkg/gmredi/gmredi_slope_psi.F 336 GMREDI_SLOPE_PSI 
              Rnondim = -depthZ/(LrhoS(i,j)*Smod)
./pkg/gmredi/gmredi_slope_psi.F 338 GMREDI_SLOPE_PSI 
              Rnondim = 1.
./pkg/gmredi/gmredi_slope_psi.F 340 GMREDI_SLOPE_PSI 
            IF ( Rnondim.GE.1. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_psi.F 343 GMREDI_SLOPE_PSI 
              f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) ))
./pkg/gmredi/gmredi_slope_psi.F 59 GMREDI_SLOPE_PSI 
      _RL f1,Smod,f2,Rnondim
./pkg/gmredi/gmredi_slope_limit.F 346 GMREDI_SLOPE_LIMIT 
           Rnondim= -depthZ/(Lrho(i,j)*Smod)
./pkg/gmredi/gmredi_slope_limit.F 347 GMREDI_SLOPE_LIMIT 
           IF ( Rnondim.GE.1. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_limit.F 350 GMREDI_SLOPE_LIMIT 
             f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) ))
./pkg/gmredi/gmredi_slope_limit.F 66 GMREDI_SLOPE_LIMIT 
      _RL f1,Smod,f2,Rnondim