Symbol Description Uses
Rnondim 13


File Line number Procedure Code
./pkg/gmredi/gmredi_slope_limit.F 113 GMREDI_SLOPE_LIMIT 
      _RL f1,Smod,f2,Rnondim
./pkg/gmredi/gmredi_slope_limit.F 570 GMREDI_SLOPE_LIMIT 
           Rnondim= -depthZ(k)/(Lrho(i,j)*Smod)
./pkg/gmredi/gmredi_slope_limit.F 571 GMREDI_SLOPE_LIMIT 
           IF ( Rnondim.GE.1. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_limit.F 574 GMREDI_SLOPE_LIMIT 
             f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) ))
./pkg/gmredi/gmredi_slope_psi.F 332 GMREDI_SLOPE_PSI 
              Rnondim = -depthZ/(LrhoW(i,j)*Smod)
./pkg/gmredi/gmredi_slope_psi.F 334 GMREDI_SLOPE_PSI 
              Rnondim = 1.
./pkg/gmredi/gmredi_slope_psi.F 336 GMREDI_SLOPE_PSI 
            IF ( Rnondim.GE.1. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_psi.F 339 GMREDI_SLOPE_PSI 
              f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) ))
./pkg/gmredi/gmredi_slope_psi.F 352 GMREDI_SLOPE_PSI 
              Rnondim = -depthZ/(LrhoS(i,j)*Smod)
./pkg/gmredi/gmredi_slope_psi.F 354 GMREDI_SLOPE_PSI 
              Rnondim = 1.
./pkg/gmredi/gmredi_slope_psi.F 356 GMREDI_SLOPE_PSI 
            IF ( Rnondim.GE.1. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_psi.F 359 GMREDI_SLOPE_PSI 
              f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) ))
./pkg/gmredi/gmredi_slope_psi.F 62 GMREDI_SLOPE_PSI 
      _RL f1,Smod,f2,Rnondim