/[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.3 by heimbach, Fri Jul 13 19:06:50 2001 UTC revision 1.9 by jmc, Sat Jun 15 03:31:17 2002 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  C Parameter common bloack  CBOP
5        INTEGER gad_advection_scheme  C !ROUTINE: GAD.h
 c     COMMON /GAD_PARS/  
 c    &    gad_advection_scheme  
       PARAMETER(gad_advection_scheme=2)  
6    
7  C Enumerated constants for selecting advection schemes  C !INTERFACE:
8    C #include "GAD.h"
9    
10  C Centered 2nd order  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        INTEGER ENUM_CENTERED_2ND
25        PARAMETER(ENUM_CENTERED_2ND=2)        PARAMETER(ENUM_CENTERED_2ND=2)
26    
27  C 3rd order upwind  C ENUM_UPWIND_3RD :: 3rd order upwind
28        INTEGER ENUM_UPWIND_3RD        INTEGER ENUM_UPWIND_3RD
29        PARAMETER(ENUM_UPWIND_3RD=3)        PARAMETER(ENUM_UPWIND_3RD=3)
30    
31  C Centered 4th order  C ENUM_CENTERED_4TH :: Centered 4th order
32        INTEGER ENUM_CENTERED_4TH        INTEGER ENUM_CENTERED_4TH
33        PARAMETER(ENUM_CENTERED_4TH=4)        PARAMETER(ENUM_CENTERED_4TH=4)
34    
35  C Non-linear flux limiter  C ENUM_FLUX_LIMIT :: Non-linear flux limiter
36        INTEGER ENUM_FLUX_LIMIT        INTEGER ENUM_FLUX_LIMIT
37        PARAMETER(ENUM_FLUX_LIMIT=77)        PARAMETER(ENUM_FLUX_LIMIT=77)
38    
39  C Third/fourth order interpolation factor  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        _RL oneSixth
49        PARAMETER(oneSixth=1. _d 0/6. _d 0)        PARAMETER(oneSixth=1.D0/6.D0)
50    
51  C Differentiate between tracers (only needed for KPP -  arrgh!!!)  C Differentiate between tracers (only needed for KPP -  arrgh!!!)
52    C GAD_TEMPERATURE :: temperature
53        INTEGER GAD_TEMPERATURE        INTEGER GAD_TEMPERATURE
54        PARAMETER(GAD_TEMPERATURE=101)        PARAMETER(GAD_TEMPERATURE=101)
55    C GAD_SALINITY :: salinity
56        INTEGER GAD_SALINITY        INTEGER GAD_SALINITY
57        PARAMETER(GAD_SALINITY=102)        PARAMETER(GAD_SALINITY=102)
58    C GAD_TR1 :: pssive tracer 1
59        INTEGER GAD_TR1        INTEGER GAD_TR1
60        PARAMETER(GAD_TR1=103)        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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22