pkg/generic_advdiff/GAD.h

C $Header: $
C $Name: $

C Parameter common bloack
      INTEGER gad_advection_scheme
c     COMMON /GAD_PARS/
c    &    gad_advection_scheme
      PARAMETER(gad_advection_scheme=2)

C Enumerated constants for selecting advection schemes

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

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 Third/fourth order interpolation factor
      _RL oneSixth
      PARAMETER(oneSixth=1. _d 0/6. _d 0)

C Differentiate between tracers (only needed for KPP -  arrgh!!!)
      INTEGER GAD_TEMPERATURE
      PARAMETER(GAD_TEMPERATURE=123)
      INTEGER GAD_SALINITY
      PARAMETER(GAD_SALINITY=321)
1	adcroft	1.1	C $Header: $
2			C $Name: $
3
4			C Parameter common bloack
5			INTEGER gad_advection_scheme
6			c COMMON /GAD_PARS/
7			c & gad_advection_scheme
8			PARAMETER(gad_advection_scheme=2)
9
10			C Enumerated constants for selecting advection schemes
11
12			C Centered 2nd order
13			INTEGER ENUM_CENTERED_2ND
14			PARAMETER(ENUM_CENTERED_2ND=2)
15
16			C Centered 4th order
17			INTEGER ENUM_CENTERED_4TH
18			PARAMETER(ENUM_CENTERED_4TH=4)
19
20			C Non-linear flux limiter
21			INTEGER ENUM_FLUX_LIMIT
22			PARAMETER(ENUM_FLUX_LIMIT=77)
23
24			C Third/fourth order interpolation factor
25			_RL oneSixth
26			PARAMETER(oneSixth=1. _d 0/6. _d 0)
27
28			C Differentiate between tracers (only needed for KPP - arrgh!!!)
29			INTEGER GAD_TEMPERATURE
30			PARAMETER(GAD_TEMPERATURE=123)
31			INTEGER GAD_SALINITY
32			PARAMETER(GAD_SALINITY=321)