/[MITgcm]/MITgcm/pkg/generic_advdiff/GAD.h
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/GAD.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by adcroft, Tue Sep 4 14:53:11 2001 UTC revision 1.7 by adcroft, Wed Sep 19 20:45:09 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  C Enumerated constants for selecting advection schemes  CBOP
5  C  - unfortunately, there is no easy way to make use of the  C !ROUTINE: GAD.h
 C    tokens in namelist input so for now we have to enter the  
 C    tokens value into "data" (ie. 2 for 2nd order etc.)  
6    
7  C Centered 2nd order  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        INTEGER ENUM_CENTERED_2ND        INTEGER ENUM_CENTERED_2ND
22        PARAMETER(ENUM_CENTERED_2ND=2)        PARAMETER(ENUM_CENTERED_2ND=2)
23    
24  C 3rd order upwind  C ENUM_UPWIND_3RD :: 3rd order upwind
25        INTEGER ENUM_UPWIND_3RD        INTEGER ENUM_UPWIND_3RD
26        PARAMETER(ENUM_UPWIND_3RD=3)        PARAMETER(ENUM_UPWIND_3RD=3)
27    
28  C Centered 4th order  C ENUM_CENTERED_4TH :: Centered 4th order
29        INTEGER ENUM_CENTERED_4TH        INTEGER ENUM_CENTERED_4TH
30        PARAMETER(ENUM_CENTERED_4TH=4)        PARAMETER(ENUM_CENTERED_4TH=4)
31    
32  C Non-linear flux limiter  C ENUM_FLUX_LIMIT :: Non-linear flux limiter
33        INTEGER ENUM_FLUX_LIMIT        INTEGER ENUM_FLUX_LIMIT
34        PARAMETER(ENUM_FLUX_LIMIT=77)        PARAMETER(ENUM_FLUX_LIMIT=77)
35    
36  C 3-DST  C ENUM_DST3 :: 3-DST
37        INTEGER ENUM_DST3        INTEGER ENUM_DST3
38        PARAMETER(ENUM_DST3=30)        PARAMETER(ENUM_DST3=30)
39    
40  C 3-DST flux limited  C ENUM_DST3_FLUX_LIMIT :: 3-DST flux limited
41        INTEGER ENUM_DST3_FLUX_LIMIT        INTEGER ENUM_DST3_FLUX_LIMIT
42        PARAMETER(ENUM_DST3_FLUX_LIMIT=33)        PARAMETER(ENUM_DST3_FLUX_LIMIT=33)
43    
44  C Third/fourth order interpolation factor  C oneSixth :: Third/fourth order interpolation factor
45        _RL oneSixth        _RL oneSixth
46        PARAMETER(oneSixth=1.D0/6.D0)        PARAMETER(oneSixth=1.D0/6.D0)
47    
48  C Differentiate between tracers (only needed for KPP -  arrgh!!!)  C Differentiate between tracers (only needed for KPP -  arrgh!!!)
49    C GAD_TEMPERATURE :: temperature
50        INTEGER GAD_TEMPERATURE        INTEGER GAD_TEMPERATURE
51        PARAMETER(GAD_TEMPERATURE=101)        PARAMETER(GAD_TEMPERATURE=101)
52    C GAD_TEMPERATURE :: salinity
53        INTEGER GAD_SALINITY        INTEGER GAD_SALINITY
54        PARAMETER(GAD_SALINITY=102)        PARAMETER(GAD_SALINITY=102)
55    C GAD_TR1 :: pssive tracer 1
56        INTEGER GAD_TR1        INTEGER GAD_TR1
57        PARAMETER(GAD_TR1=103)        PARAMETER(GAD_TR1=103)
58    CEOP
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22