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


File Line number Procedure Code
./pkg/gmredi/GMREDI.h 28 NO PROCEDURE 
      CHARACTER*(40) GM_taper_scheme
./pkg/gmredi/GMREDI.h 30 NO PROCEDURE 
     &                   GM_taper_scheme
./pkg/gmredi/gmredi_calc_tensor.F 151 GMREDI_CALC_TENSOR 
      IF ( GM_taper_scheme.EQ.'ldd97' .OR.
./pkg/gmredi/gmredi_calc_tensor.F 152 GMREDI_CALC_TENSOR 
     &     GM_taper_scheme.EQ.'fm07' ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 520 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 51 GMREDI_READPARMS 
     &          GM_taper_scheme,
./pkg/gmredi/gmredi_readparms.F 80 GMREDI_READPARMS 
      GM_taper_scheme     = ' '
./pkg/gmredi/gmredi_slope_limit.F 216 GMREDI_SLOPE_LIMIT 
      IF (GM_taper_scheme.EQ.'orig' .OR.
./pkg/gmredi/gmredi_slope_limit.F 217 GMREDI_SLOPE_LIMIT 
     &    GM_taper_scheme.EQ.'clipping') THEN
./pkg/gmredi/gmredi_slope_limit.F 290 GMREDI_SLOPE_LIMIT 
      ELSEIF (GM_taper_scheme.EQ.'fm07' ) THEN
./pkg/gmredi/gmredi_slope_limit.F 454 GMREDI_SLOPE_LIMIT 
      ELSE IF (GM_taper_scheme.EQ.'ac02') THEN
./pkg/gmredi/gmredi_slope_limit.F 574 GMREDI_SLOPE_LIMIT 
       IF (GM_taper_scheme.EQ.'linear') THEN
./pkg/gmredi/gmredi_slope_limit.F 592 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'gkw91') THEN
./pkg/gmredi/gmredi_slope_limit.F 609 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'dm95') THEN
./pkg/gmredi/gmredi_slope_limit.F 624 GMREDI_SLOPE_LIMIT 
       ELSEIF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_limit.F 647 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 261 GMREDI_SLOPE_PSI 
       IF (GM_taper_scheme.EQ.'linear') THEN
./pkg/gmredi/gmredi_slope_psi.F 281 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'gkw91') THEN
./pkg/gmredi/gmredi_slope_psi.F 302 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'dm95') THEN
./pkg/gmredi/gmredi_slope_psi.F 318 GMREDI_SLOPE_PSI 
       ELSEIF (GM_taper_scheme.EQ.'ldd97') THEN
./pkg/gmredi/gmredi_slope_psi.F 362 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 
       IF ( .NOT.useKPP ) calcMixLayerDepth = GM_taper_scheme.EQ.'fm07'