pkg/generic_advdiff/GAD.h

C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD.h,v 1.1 2001/05/30 19:34:48 adcroft Exp $
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 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 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	C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD.h,v 1.1 2001/05/30 19:34:48 adcroft Exp $
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 3rd order upwind
17	INTEGER ENUM_UPWIND_3RD
18	PARAMETER(ENUM_UPWIND_3RD=3)
19
20	C Centered 4th order
21	INTEGER ENUM_CENTERED_4TH
22	PARAMETER(ENUM_CENTERED_4TH=4)
23
24	C Non-linear flux limiter
25	INTEGER ENUM_FLUX_LIMIT
26	PARAMETER(ENUM_FLUX_LIMIT=77)
27
28	C Third/fourth order interpolation factor
29	_RL oneSixth
30	PARAMETER(oneSixth=1. _d 0/6. _d 0)
31
32	C Differentiate between tracers (only needed for KPP - arrgh!!!)
33	INTEGER GAD_TEMPERATURE
34	PARAMETER(GAD_TEMPERATURE=123)
35	INTEGER GAD_SALINITY
36	PARAMETER(GAD_SALINITY=321)