pkg/generic_advdiff/GAD.h

C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD.h,v 1.5 2001/08/30 13:01:14 adcroft Exp $
C $Name:  $

C Enumerated constants for selecting advection schemes
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 Centered 2nd order
      INTEGER ENUM_CENTERED_2ND
      PARAMETER(ENUM_CENTERED_2ND=2)

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

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

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

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

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

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

C Differentiate between tracers (only needed for KPP -  arrgh!!!)
      INTEGER GAD_TEMPERATURE
      PARAMETER(GAD_TEMPERATURE=101)
      INTEGER GAD_SALINITY
      PARAMETER(GAD_SALINITY=102)
      INTEGER GAD_TR1
      PARAMETER(GAD_TR1=103)
1	adcroft	1.6	C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD.h,v 1.5 2001/08/30 13:01:14 adcroft Exp $
2	heimbach	1.4	C $Name: $
3	adcroft	1.1
4			C Enumerated constants for selecting advection schemes
5	adcroft	1.5	C - unfortunately, there is no easy way to make use of the
6			C tokens in namelist input so for now we have to enter the
7			C tokens value into "data" (ie. 2 for 2nd order etc.)
8	adcroft	1.1
9			C Centered 2nd order
10			INTEGER ENUM_CENTERED_2ND
11			PARAMETER(ENUM_CENTERED_2ND=2)
12	jmc	1.2
13			C 3rd order upwind
14			INTEGER ENUM_UPWIND_3RD
15			PARAMETER(ENUM_UPWIND_3RD=3)
16	adcroft	1.1
17			C Centered 4th order
18			INTEGER ENUM_CENTERED_4TH
19			PARAMETER(ENUM_CENTERED_4TH=4)
20
21			C Non-linear flux limiter
22			INTEGER ENUM_FLUX_LIMIT
23			PARAMETER(ENUM_FLUX_LIMIT=77)
24	adcroft	1.6
25			C 3-DST
26			INTEGER ENUM_DST3
27			PARAMETER(ENUM_DST3=30)
28
29			C 3-DST flux limited
30			INTEGER ENUM_DST3_FLUX_LIMIT
31			PARAMETER(ENUM_DST3_FLUX_LIMIT=33)
32	adcroft	1.1
33			C Third/fourth order interpolation factor
34			_RL oneSixth
35	heimbach	1.4	PARAMETER(oneSixth=1.D0/6.D0)
36	adcroft	1.1
37			C Differentiate between tracers (only needed for KPP - arrgh!!!)
38			INTEGER GAD_TEMPERATURE
39	heimbach	1.3	PARAMETER(GAD_TEMPERATURE=101)
40	adcroft	1.1	INTEGER GAD_SALINITY
41	heimbach	1.3	PARAMETER(GAD_SALINITY=102)
42			INTEGER GAD_TR1
43			PARAMETER(GAD_TR1=103)