Symbol Description Uses
GM_taper_scheme 21


File Line number Procedure Code
./pkg/gmredi/gmredi_check.F 55 GMREDI_CHECK 
       WRITE(msgBuf,'(A,A40)')' Tapering/Cliping : ',GM_taper_scheme
./pkg/gmredi/gmredi_slope_psi.F 251 GMREDI_SLOPE_PSI 
       IF (GM_taper_scheme.EQ.'linear') THEN
./pkg/gmredi/gmredi_slope_psi.F 271 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'gkw91') THEN
./pkg/gmredi/gmredi_slope_psi.F 292 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'dm95') THEN
./pkg/gmredi/gmredi_slope_psi.F 308 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_psi.F 344 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.NE.' ') THEN
./pkg/gmredi/gmredi_slope_psi.F 84 GMREDI_SLOPE_PSI 
      IF (GM_taper_scheme.EQ.'orig' .OR.
./pkg/gmredi/gmredi_slope_psi.F 85 GMREDI_SLOPE_PSI 
     &    GM_taper_scheme.EQ.'clipping') THEN
./pkg/gmredi/GMREDI.h 28 NO PROCEDURE 
      CHARACTER*(MAX_LEN_FNAM) GM_taper_scheme
./pkg/gmredi/GMREDI.h 39 NO PROCEDURE 
     &                   GM_taper_scheme,
./pkg/gmredi/gmredi_readparms.F 34 GMREDI_READPARMS 
     &          GM_taper_scheme,
./pkg/gmredi/gmredi_readparms.F 79 GMREDI_READPARMS 
      GM_taper_scheme     = ' '
./pkg/gmredi/gmredi_calc_tensor.F 89 GMREDI_CALC_TENSOR 
      IF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_limit.F 166 GMREDI_SLOPE_LIMIT 
      ELSE IF (GM_taper_scheme.EQ.'ac02') THEN
./pkg/gmredi/gmredi_slope_limit.F 286 GMREDI_SLOPE_LIMIT 
       IF (GM_taper_scheme.EQ.'linear') THEN
./pkg/gmredi/gmredi_slope_limit.F 303 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'gkw91') THEN
./pkg/gmredi/gmredi_slope_limit.F 320 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'dm95') THEN
./pkg/gmredi/gmredi_slope_limit.F 335 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_limit.F 354 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.NE.' ') THEN
./pkg/gmredi/gmredi_slope_limit.F 92 GMREDI_SLOPE_LIMIT 
      IF (GM_taper_scheme.EQ.'orig' .OR.
./pkg/gmredi/gmredi_slope_limit.F 93 GMREDI_SLOPE_LIMIT 
     &    GM_taper_scheme.EQ.'clipping') THEN