| 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' |