Symbol Description Uses
GM_taper_scheme select which tapering/clipping scheme to use 30


File Line number Procedure Code
./pkg/gmredi/GMREDI.h 72 NO PROCEDURE 
      CHARACTER*(40) GM_taper_scheme
./pkg/gmredi/GMREDI.h 80 NO PROCEDURE 
     &                   GM_taper_scheme,
./pkg/gmredi/gmredi_calc_tensor.F 160 GMREDI_CALC_TENSOR 
      IF ( GM_taper_scheme.EQ.'ldd97' .OR.
./pkg/gmredi/gmredi_calc_tensor.F 161 GMREDI_CALC_TENSOR 
     &     GM_taper_scheme.EQ.'fm07' ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 585 GMREDI_CALC_TENSOR 
      IF ( useDiagnostics .AND. GM_taper_scheme.EQ.'fm07' ) THEN
./pkg/gmredi/gmredi_check.F 85 GMREDI_CHECK 
       CALL WRITE_0D_C( GM_taper_scheme, 0, INDEX_NONE,
./pkg/gmredi/gmredi_readparms.F 103 GMREDI_READPARMS 
      GM_taper_scheme     = ' '
./pkg/gmredi/gmredi_readparms.F 55 GMREDI_READPARMS 
     &          GM_taper_scheme,
./pkg/gmredi/gmredi_slope_limit.F 151 GMREDI_SLOPE_LIMIT 
      IF (GM_taper_scheme.EQ.'orig' .OR.
./pkg/gmredi/gmredi_slope_limit.F 152 GMREDI_SLOPE_LIMIT 
     &    GM_taper_scheme.EQ.'clipping') THEN
./pkg/gmredi/gmredi_slope_limit.F 225 GMREDI_SLOPE_LIMIT 
      ELSEIF (GM_taper_scheme.EQ.'fm07' ) THEN
./pkg/gmredi/gmredi_slope_limit.F 389 GMREDI_SLOPE_LIMIT 
      ELSE IF (GM_taper_scheme.EQ.'ac02') THEN
./pkg/gmredi/gmredi_slope_limit.F 509 GMREDI_SLOPE_LIMIT 
       IF (GM_taper_scheme.EQ.'linear') THEN
./pkg/gmredi/gmredi_slope_limit.F 527 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'gkw91') THEN
./pkg/gmredi/gmredi_slope_limit.F 544 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'dm95') THEN
./pkg/gmredi/gmredi_slope_limit.F 559 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_limit.F 582 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'stableGmAdjTap') THEN
./pkg/gmredi/gmredi_slope_limit.F 616 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.NE.' ') THEN
./pkg/gmredi/gmredi_slope_psi.F 176 GMREDI_SLOPE_PSI 
      ELSEIF (GM_taper_scheme.EQ.'fm07') THEN
./pkg/gmredi/gmredi_slope_psi.F 213 GMREDI_SLOPE_PSI 
        IF (GM_taper_scheme.NE.'stableGmAdjTap') THEN
./pkg/gmredi/gmredi_slope_psi.F 247 GMREDI_SLOPE_PSI 
        IF (GM_taper_scheme.NE.'stableGmAdjTap') THEN
./pkg/gmredi/gmredi_slope_psi.F 265 GMREDI_SLOPE_PSI 
       IF (GM_taper_scheme.EQ.'linear') THEN
./pkg/gmredi/gmredi_slope_psi.F 285 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'gkw91') THEN
./pkg/gmredi/gmredi_slope_psi.F 306 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'dm95') THEN
./pkg/gmredi/gmredi_slope_psi.F 322 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_psi.F 366 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'stableGmAdjTap') THEN
./pkg/gmredi/gmredi_slope_psi.F 406 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.NE.' ') THEN
./pkg/gmredi/gmredi_slope_psi.F 90 GMREDI_SLOPE_PSI 
      IF (GM_taper_scheme.EQ.'orig' .OR.
./pkg/gmredi/gmredi_slope_psi.F 91 GMREDI_SLOPE_PSI 
     &    GM_taper_scheme.EQ.'clipping') THEN
./model/src/calc_oce_mxlayer.F 69 CALC_OCE_MXLAYER 
       calcMixLayerDepth = GM_useSubMeso .OR. GM_taper_scheme.EQ.'fm07'