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


File Line number Procedure Code
./pkg/gmredi/GMREDI.h 70 NO PROCEDURE 
      CHARACTER*(40) GM_taper_scheme
./pkg/gmredi/GMREDI.h 76 NO PROCEDURE 
     &                   GM_taper_scheme,
./pkg/gmredi/gmredi_calc_tensor.F 157 GMREDI_CALC_TENSOR 
      IF ( GM_taper_scheme.EQ.'ldd97' .OR.
./pkg/gmredi/gmredi_calc_tensor.F 158 GMREDI_CALC_TENSOR 
     &     GM_taper_scheme.EQ.'fm07' ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 569 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 101 GMREDI_READPARMS 
      GM_taper_scheme     = ' '
./pkg/gmredi/gmredi_readparms.F 53 GMREDI_READPARMS 
     &          GM_taper_scheme,
./pkg/gmredi/gmredi_slope_limit.F 149 GMREDI_SLOPE_LIMIT 
      IF (GM_taper_scheme.EQ.'orig' .OR.
./pkg/gmredi/gmredi_slope_limit.F 150 GMREDI_SLOPE_LIMIT 
     &    GM_taper_scheme.EQ.'clipping') THEN
./pkg/gmredi/gmredi_slope_limit.F 223 GMREDI_SLOPE_LIMIT 
      ELSEIF (GM_taper_scheme.EQ.'fm07' ) THEN
./pkg/gmredi/gmredi_slope_limit.F 387 GMREDI_SLOPE_LIMIT 
      ELSE IF (GM_taper_scheme.EQ.'ac02') THEN
./pkg/gmredi/gmredi_slope_limit.F 507 GMREDI_SLOPE_LIMIT 
       IF (GM_taper_scheme.EQ.'linear') THEN
./pkg/gmredi/gmredi_slope_limit.F 525 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'gkw91') THEN
./pkg/gmredi/gmredi_slope_limit.F 542 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'dm95') THEN
./pkg/gmredi/gmredi_slope_limit.F 557 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_limit.F 581 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'stableGmAdjTap') THEN
./pkg/gmredi/gmredi_slope_limit.F 613 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.NE.' ') THEN
./pkg/gmredi/gmredi_slope_psi.F 174 GMREDI_SLOPE_PSI 
      ELSEIF (GM_taper_scheme.EQ.'fm07') THEN
./pkg/gmredi/gmredi_slope_psi.F 211 GMREDI_SLOPE_PSI 
        IF (GM_taper_scheme.NE.'stableGmAdjTap') THEN
./pkg/gmredi/gmredi_slope_psi.F 245 GMREDI_SLOPE_PSI 
        IF (GM_taper_scheme.NE.'stableGmAdjTap') THEN
./pkg/gmredi/gmredi_slope_psi.F 263 GMREDI_SLOPE_PSI 
       IF (GM_taper_scheme.EQ.'linear') THEN
./pkg/gmredi/gmredi_slope_psi.F 283 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'gkw91') THEN
./pkg/gmredi/gmredi_slope_psi.F 304 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'dm95') THEN
./pkg/gmredi/gmredi_slope_psi.F 320 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_psi.F 364 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'stableGmAdjTap') THEN
./pkg/gmredi/gmredi_slope_psi.F 405 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.NE.' ') THEN
./pkg/gmredi/gmredi_slope_psi.F 88 GMREDI_SLOPE_PSI 
      IF (GM_taper_scheme.EQ.'orig' .OR.
./pkg/gmredi/gmredi_slope_psi.F 89 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'