Symbol Description Uses
f2 43


File Line number Procedure Code
./pkg/gmredi/gmredi_slope_psi.F 322 GMREDI_SLOPE_PSI 
          f2=op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5)))
./pkg/gmredi/gmredi_slope_psi.F 323 GMREDI_SLOPE_PSI 
          taperX(i,j)=f1*f2
./pkg/gmredi/gmredi_slope_psi.F 338 GMREDI_SLOPE_PSI 
          f2=op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5)))
./pkg/gmredi/gmredi_slope_psi.F 339 GMREDI_SLOPE_PSI 
          taperY(i,j)=f1*f2
./pkg/gmredi/gmredi_slope_psi.F 61 GMREDI_SLOPE_PSI 
      _RL f1,Smod,f2,Rnondim
./pkg/gmredi/gmredi_slope_limit.F 347 GMREDI_SLOPE_LIMIT 
           f2=op5*( 1. _d 0 + sin( fpi*(Rnondim-op5)))
./pkg/gmredi/gmredi_slope_limit.F 348 GMREDI_SLOPE_LIMIT 
           taperFct(i,j)=f1*f2
./pkg/gmredi/gmredi_slope_limit.F 66 GMREDI_SLOPE_LIMIT 
      _RL f1,Smod,f2,Rnondim