/[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.1 by adcroft, Wed May 30 19:34:48 2001 UTC revision 1.6 by adcroft, Tue Sep 4 14:53:11 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 C Parameter common bloack  
       INTEGER gad_advection_scheme  
 c     COMMON /GAD_PARS/  
 c    &    gad_advection_scheme  
       PARAMETER(gad_advection_scheme=2)  
   
4  C Enumerated constants for selecting advection schemes  C Enumerated constants for selecting advection schemes
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    
9  C Centered 2nd order  C Centered 2nd order
10        INTEGER ENUM_CENTERED_2ND        INTEGER ENUM_CENTERED_2ND
11        PARAMETER(ENUM_CENTERED_2ND=2)        PARAMETER(ENUM_CENTERED_2ND=2)
12    
13    C 3rd order upwind
14          INTEGER ENUM_UPWIND_3RD
15          PARAMETER(ENUM_UPWIND_3RD=3)
16    
17  C Centered 4th order  C Centered 4th order
18        INTEGER ENUM_CENTERED_4TH        INTEGER ENUM_CENTERED_4TH
19        PARAMETER(ENUM_CENTERED_4TH=4)        PARAMETER(ENUM_CENTERED_4TH=4)
# Line 21  C Non-linear flux limiter Line 22  C Non-linear flux limiter
22        INTEGER ENUM_FLUX_LIMIT        INTEGER ENUM_FLUX_LIMIT
23        PARAMETER(ENUM_FLUX_LIMIT=77)        PARAMETER(ENUM_FLUX_LIMIT=77)
24    
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    
33  C Third/fourth order interpolation factor  C Third/fourth order interpolation factor
34        _RL oneSixth        _RL oneSixth
35        PARAMETER(oneSixth=1. _d 0/6. _d 0)        PARAMETER(oneSixth=1.D0/6.D0)
36    
37  C Differentiate between tracers (only needed for KPP -  arrgh!!!)  C Differentiate between tracers (only needed for KPP -  arrgh!!!)
38        INTEGER GAD_TEMPERATURE        INTEGER GAD_TEMPERATURE
39        PARAMETER(GAD_TEMPERATURE=123)        PARAMETER(GAD_TEMPERATURE=101)
40        INTEGER GAD_SALINITY        INTEGER GAD_SALINITY
41        PARAMETER(GAD_SALINITY=321)        PARAMETER(GAD_SALINITY=102)
42          INTEGER GAD_TR1
43          PARAMETER(GAD_TR1=103)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22