pkg/generic_advdiff/GAD.h

C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD.h,v 1.6 2001/09/04 14:53:11 adcroft Exp $
C $Name:  $

CBOP
C !ROUTINE: GAD.h

C !INTERFACE:
C #include "GAD.h"

C !DESCRIPTION:
C Contains enumerated constants for distinguishing between different
C advection schemes and tracers.
C
C Unfortunately, there is no easy way to make use of the
C tokens in namelist input so for now we have to enter the
C tokens value into "data" (ie. 2 for 2nd order etc.)

C !DEFINED PARAMETERS:

C ENUM_CENTERED_2ND :: Centered 2nd order
      INTEGER ENUM_CENTERED_2ND
      PARAMETER(ENUM_CENTERED_2ND=2)

C ENUM_UPWIND_3RD :: 3rd order upwind 
      INTEGER ENUM_UPWIND_3RD
      PARAMETER(ENUM_UPWIND_3RD=3)

C ENUM_CENTERED_4TH :: Centered 4th order
      INTEGER ENUM_CENTERED_4TH
      PARAMETER(ENUM_CENTERED_4TH=4)

C ENUM_FLUX_LIMIT :: Non-linear flux limiter
      INTEGER ENUM_FLUX_LIMIT
      PARAMETER(ENUM_FLUX_LIMIT=77)

C ENUM_DST3 :: 3-DST 
      INTEGER ENUM_DST3
      PARAMETER(ENUM_DST3=30)

C ENUM_DST3_FLUX_LIMIT :: 3-DST flux limited
      INTEGER ENUM_DST3_FLUX_LIMIT
      PARAMETER(ENUM_DST3_FLUX_LIMIT=33)

C oneSixth :: Third/fourth order interpolation factor
      _RL oneSixth
      PARAMETER(oneSixth=1.D0/6.D0)

C Differentiate between tracers (only needed for KPP -  arrgh!!!)
C GAD_TEMPERATURE :: temperature
      INTEGER GAD_TEMPERATURE
      PARAMETER(GAD_TEMPERATURE=101)
C GAD_TEMPERATURE :: salinity
      INTEGER GAD_SALINITY
      PARAMETER(GAD_SALINITY=102)
C GAD_TR1 :: pssive tracer 1
      INTEGER GAD_TR1
      PARAMETER(GAD_TR1=103)
CEOP
1	adcroft	1.7	C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD.h,v 1.6 2001/09/04 14:53:11 adcroft Exp $
2	heimbach	1.4	C $Name: $
3	adcroft	1.1
4	adcroft	1.7	CBOP
5			C !ROUTINE: GAD.h
6	adcroft	1.1
7	adcroft	1.7	C !INTERFACE:
8			C #include "GAD.h"
9
10			C !DESCRIPTION:
11			C Contains enumerated constants for distinguishing between different
12			C advection schemes and tracers.
13			C
14			C Unfortunately, there is no easy way to make use of the
15			C tokens in namelist input so for now we have to enter the
16			C tokens value into "data" (ie. 2 for 2nd order etc.)
17
18			C !DEFINED PARAMETERS:
19
20			C ENUM_CENTERED_2ND :: Centered 2nd order
21	adcroft	1.1	INTEGER ENUM_CENTERED_2ND
22			PARAMETER(ENUM_CENTERED_2ND=2)
23	jmc	1.2
24	adcroft	1.7	C ENUM_UPWIND_3RD :: 3rd order upwind
25	jmc	1.2	INTEGER ENUM_UPWIND_3RD
26			PARAMETER(ENUM_UPWIND_3RD=3)
27	adcroft	1.1
28	adcroft	1.7	C ENUM_CENTERED_4TH :: Centered 4th order
29	adcroft	1.1	INTEGER ENUM_CENTERED_4TH
30			PARAMETER(ENUM_CENTERED_4TH=4)
31
32	adcroft	1.7	C ENUM_FLUX_LIMIT :: Non-linear flux limiter
33	adcroft	1.1	INTEGER ENUM_FLUX_LIMIT
34			PARAMETER(ENUM_FLUX_LIMIT=77)
35	adcroft	1.6
36	adcroft	1.7	C ENUM_DST3 :: 3-DST
37	adcroft	1.6	INTEGER ENUM_DST3
38			PARAMETER(ENUM_DST3=30)
39
40	adcroft	1.7	C ENUM_DST3_FLUX_LIMIT :: 3-DST flux limited
41	adcroft	1.6	INTEGER ENUM_DST3_FLUX_LIMIT
42			PARAMETER(ENUM_DST3_FLUX_LIMIT=33)
43	adcroft	1.1
44	adcroft	1.7	C oneSixth :: Third/fourth order interpolation factor
45	adcroft	1.1	_RL oneSixth
46	heimbach	1.4	PARAMETER(oneSixth=1.D0/6.D0)
47	adcroft	1.1
48			C Differentiate between tracers (only needed for KPP - arrgh!!!)
49	adcroft	1.7	C GAD_TEMPERATURE :: temperature
50	adcroft	1.1	INTEGER GAD_TEMPERATURE
51	heimbach	1.3	PARAMETER(GAD_TEMPERATURE=101)
52	adcroft	1.7	C GAD_TEMPERATURE :: salinity
53	adcroft	1.1	INTEGER GAD_SALINITY
54	heimbach	1.3	PARAMETER(GAD_SALINITY=102)
55	adcroft	1.7	C GAD_TR1 :: pssive tracer 1
56	heimbach	1.3	INTEGER GAD_TR1
57			PARAMETER(GAD_TR1=103)
58	adcroft	1.7	CEOP