Symbol Description Uses
GM_taper_scheme 21


File Line number Procedure Code
./pkg/gmredi/gmredi_slope_psi.F 249 GMREDI_SLOPE_PSI 
       IF (GM_taper_scheme.EQ.'linear') THEN
./pkg/gmredi/gmredi_slope_psi.F 269 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'gkw91') THEN
./pkg/gmredi/gmredi_slope_psi.F 290 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'dm95') THEN
./pkg/gmredi/gmredi_slope_psi.F 306 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_psi.F 350 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.NE.' ') THEN
./pkg/gmredi/gmredi_slope_psi.F 82 GMREDI_SLOPE_PSI 
      IF (GM_taper_scheme.EQ.'orig' .OR.
./pkg/gmredi/gmredi_slope_psi.F 83 GMREDI_SLOPE_PSI 
     &    GM_taper_scheme.EQ.'clipping') THEN
./pkg/gmredi/GMREDI.h 30 NO PROCEDURE 
      CHARACTER*(MAX_LEN_FNAM) GM_taper_scheme
./pkg/gmredi/GMREDI.h 41 NO PROCEDURE 
     &                   GM_taper_scheme,
./pkg/gmredi/gmredi_calc_tensor.F 107 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 358 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
./pkg/gmredi/gmredi_readparms.F 34 GMREDI_READPARMS 
     &          GM_taper_scheme,
./pkg/gmredi/gmredi_readparms.F 69 GMREDI_READPARMS 
      GM_taper_scheme     = ' '
./pkg/gmredi/gmredi_check.F 55 GMREDI_CHECK 
       WRITE(msgBuf,'(A,A40)')' Tapering/Cliping : ',GM_taper_scheme