pkg/generic_advdiff/GAD.h

C $Header: /u/gcmpack/MITgcm/pkg/generic_advdiff/GAD.h,v 1.8 2001/09/28 02:26:57 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 !USES:
#include "GAD_OPTIONS.h"

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_SALINITY :: salinity
      INTEGER GAD_SALINITY
      PARAMETER(GAD_SALINITY=102)
C GAD_TR1 :: pssive tracer 1
      INTEGER GAD_TR1
      PARAMETER(GAD_TR1=103)
CEOP

C--   COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines
C     tempMultiDimAdvec :: set to T if using multi-dimension advection for Temp
C     saltMultiDimAdvec :: set to T if using multi-dimension advection for Salt
C     tempAdamsBashforth :: set to T if using Adams-Bashforth stepping for Temp
C     saltAdamsBashforth :: set to T if using Adams-Bashforth stepping for Salt
      LOGICAL tempMultiDimAdvec
      LOGICAL saltMultiDimAdvec
      LOGICAL tr1_MultiDimAdvec
      LOGICAL tempAdamsBashforth
      LOGICAL saltAdamsBashforth
      LOGICAL tr1_AdamsBashforth
      COMMON /GAD_PARM_L/
     & tempMultiDimAdvec , saltMultiDimAdvec , tr1_MultiDimAdvec,
     & tempAdamsBashforth, saltAdamsBashforth, tr1_AdamsBashforth
1	C $Header: /u/gcmpack/MITgcm/pkg/generic_advdiff/GAD.h,v 1.8 2001/09/28 02:26:57 adcroft Exp $
2	C $Name: $
3
4	CBOP
5	C !ROUTINE: GAD.h
6
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 !USES:
19	#include "GAD_OPTIONS.h"
20
21	C !DEFINED PARAMETERS:
22
23	C ENUM_CENTERED_2ND :: Centered 2nd order
24	INTEGER ENUM_CENTERED_2ND
25	PARAMETER(ENUM_CENTERED_2ND=2)
26
27	C ENUM_UPWIND_3RD :: 3rd order upwind
28	INTEGER ENUM_UPWIND_3RD
29	PARAMETER(ENUM_UPWIND_3RD=3)
30
31	C ENUM_CENTERED_4TH :: Centered 4th order
32	INTEGER ENUM_CENTERED_4TH
33	PARAMETER(ENUM_CENTERED_4TH=4)
34
35	C ENUM_FLUX_LIMIT :: Non-linear flux limiter
36	INTEGER ENUM_FLUX_LIMIT
37	PARAMETER(ENUM_FLUX_LIMIT=77)
38
39	C ENUM_DST3 :: 3-DST
40	INTEGER ENUM_DST3
41	PARAMETER(ENUM_DST3=30)
42
43	C ENUM_DST3_FLUX_LIMIT :: 3-DST flux limited
44	INTEGER ENUM_DST3_FLUX_LIMIT
45	PARAMETER(ENUM_DST3_FLUX_LIMIT=33)
46
47	C oneSixth :: Third/fourth order interpolation factor
48	_RL oneSixth
49	PARAMETER(oneSixth=1.D0/6.D0)
50
51	C Differentiate between tracers (only needed for KPP - arrgh!!!)
52	C GAD_TEMPERATURE :: temperature
53	INTEGER GAD_TEMPERATURE
54	PARAMETER(GAD_TEMPERATURE=101)
55	C GAD_SALINITY :: salinity
56	INTEGER GAD_SALINITY
57	PARAMETER(GAD_SALINITY=102)
58	C GAD_TR1 :: pssive tracer 1
59	INTEGER GAD_TR1
60	PARAMETER(GAD_TR1=103)
61	CEOP
62
63	C-- COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines
64	C tempMultiDimAdvec :: set to T if using multi-dimension advection for Temp
65	C saltMultiDimAdvec :: set to T if using multi-dimension advection for Salt
66	C tempAdamsBashforth :: set to T if using Adams-Bashforth stepping for Temp
67	C saltAdamsBashforth :: set to T if using Adams-Bashforth stepping for Salt
68	LOGICAL tempMultiDimAdvec
69	LOGICAL saltMultiDimAdvec
70	LOGICAL tr1_MultiDimAdvec
71	LOGICAL tempAdamsBashforth
72	LOGICAL saltAdamsBashforth
73	LOGICAL tr1_AdamsBashforth
74	COMMON /GAD_PARM_L/
75	& tempMultiDimAdvec , saltMultiDimAdvec , tr1_MultiDimAdvec,
76	& tempAdamsBashforth, saltAdamsBashforth, tr1_AdamsBashforth