/[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.10 by heimbach, Tue Nov 12 20:42:24 2002 UTC revision 1.17 by jmc, Thu Jan 25 17:29:15 2007 UTC
# Line 16  C tokens in namelist input so for now we Line 16  C tokens in namelist input so for now we
16  C tokens value into "data" (ie. 2 for 2nd order etc.)  C tokens value into "data" (ie. 2 for 2nd order etc.)
17    
18  C !USES:  C !USES:
 #include "GAD_OPTIONS.h"  
19    
20  C !DEFINED PARAMETERS:  C !DEFINED PARAMETERS:
21    
22    C ENUM_UPWIND_1RST :: 1rst Order Upwind
23          INTEGER ENUM_UPWIND_1RST
24          PARAMETER(ENUM_UPWIND_1RST=1)
25    
26  C ENUM_CENTERED_2ND :: Centered 2nd order  C ENUM_CENTERED_2ND :: Centered 2nd order
27        INTEGER ENUM_CENTERED_2ND        INTEGER ENUM_CENTERED_2ND
28        PARAMETER(ENUM_CENTERED_2ND=2)        PARAMETER(ENUM_CENTERED_2ND=2)
29    
30  C ENUM_UPWIND_3RD :: 3rd order upwind  C ENUM_UPWIND_3RD :: 3rd order upwind
31        INTEGER ENUM_UPWIND_3RD        INTEGER ENUM_UPWIND_3RD
32        PARAMETER(ENUM_UPWIND_3RD=3)        PARAMETER(ENUM_UPWIND_3RD=3)
33    
# Line 32  C ENUM_CENTERED_4TH :: Centered 4th orde Line 35  C ENUM_CENTERED_4TH :: Centered 4th orde
35        INTEGER ENUM_CENTERED_4TH        INTEGER ENUM_CENTERED_4TH
36        PARAMETER(ENUM_CENTERED_4TH=4)        PARAMETER(ENUM_CENTERED_4TH=4)
37    
38    C ENUM_DST2 :: 2nd Order Direct Space and Time (= Lax-Wendroff)
39          INTEGER ENUM_DST2
40          PARAMETER(ENUM_DST2=20)
41    
42  C ENUM_FLUX_LIMIT :: Non-linear flux limiter  C ENUM_FLUX_LIMIT :: Non-linear flux limiter
43        INTEGER ENUM_FLUX_LIMIT        INTEGER ENUM_FLUX_LIMIT
44        PARAMETER(ENUM_FLUX_LIMIT=77)        PARAMETER(ENUM_FLUX_LIMIT=77)
45    
46  C ENUM_DST3 :: 3-DST  C ENUM_DST3 :: 3rd Order Direst Space and Time
47        INTEGER ENUM_DST3        INTEGER ENUM_DST3
48        PARAMETER(ENUM_DST3=30)        PARAMETER(ENUM_DST3=30)
49    
# Line 44  C ENUM_DST3_FLUX_LIMIT :: 3-DST flux lim Line 51  C ENUM_DST3_FLUX_LIMIT :: 3-DST flux lim
51        INTEGER ENUM_DST3_FLUX_LIMIT        INTEGER ENUM_DST3_FLUX_LIMIT
52        PARAMETER(ENUM_DST3_FLUX_LIMIT=33)        PARAMETER(ENUM_DST3_FLUX_LIMIT=33)
53    
54    C ENUM_OS7MP :: 7th Order One Step method with Monotonicity Preserving Limiter
55          INTEGER ENUM_OS7MP
56          PARAMETER(ENUM_OS7MP=7)
57    
58    C ENUM_SOM_PRATHER :: 2nd Order-Moment Advection Scheme, Prather, 1986
59          INTEGER ENUM_SOM_PRATHER
60          PARAMETER(ENUM_SOM_PRATHER=80)
61    
62    C ENUM_SOM_LIMITER :: 2nd Order-Moment Advection Scheme, Prather Limiter
63          INTEGER ENUM_SOM_LIMITER
64          PARAMETER(ENUM_SOM_LIMITER=81)
65    
66    C nSOM :: number of 1rst & 2nd Order-Moments: 1+1 (1D), 2+3 (2D), 3+6 (3D)
67          INTEGER nSOM
68          PARAMETER( nSOM = 3+6 )
69    
70  C oneSixth :: Third/fourth order interpolation factor  C oneSixth :: Third/fourth order interpolation factor
71        _RL oneSixth        _RL oneSixth
72        PARAMETER(oneSixth=1.D0/6.D0)        PARAMETER(oneSixth=1.D0/6.D0)
73    
74  C Differentiate between tracers (only needed for KPP -  arrgh!!!)  C Differentiate between tracers (needed for KPP - arrgh!!!)
75  cph                              and for GMRedi arrgh*arrgh!!!)  cph                              and GMRedi arrgh*arrgh!!!)
76  cph  indices are used for TAF key computations, so need to  cph  indices are used for TAF key computations, so need to
77  cph  running from 1, 2, ...  cph  running from 1, 2, ...
78  c  c
# Line 59  C GAD_TEMPERATURE :: temperature Line 82  C GAD_TEMPERATURE :: temperature
82  C GAD_SALINITY :: salinity  C GAD_SALINITY :: salinity
83        INTEGER GAD_SALINITY        INTEGER GAD_SALINITY
84        PARAMETER(GAD_SALINITY=2)        PARAMETER(GAD_SALINITY=2)
85  C GAD_TR1 :: pssive tracer 1  C GAD_TR1 :: passive tracer 1
86        INTEGER GAD_TR1        INTEGER GAD_TR1
87        PARAMETER(GAD_TR1=3)        PARAMETER(GAD_TR1=3)
88  CEOP  CEOP
89    
90  C--   COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines  C--   COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines
91  C     tempMultiDimAdvec :: set to T if using multi-dimension advection for Temp  C tempSOM_Advection :: set to T if using 2nd-Order Moment advection for Temp
92  C     saltMultiDimAdvec :: set to T if using multi-dimension advection for Salt  C saltSOM_Advection :: set to T if using 2nd-Order Moment advection for Salt
93  C     tempAdamsBashforth :: set to T if using Adams-Bashforth stepping for Temp  C tempMultiDimAdvec :: set to T if using multi-dim advection for Temp
94  C     saltAdamsBashforth :: set to T if using Adams-Bashforth stepping for Salt  C saltMultiDimAdvec :: set to T if using multi-dim advection for Salt
95    C AdamsBashforthGt  :: apply Adams-Bashforth extrapolation on T tendency (=Gt)
96    C AdamsBashforthGs  :: apply Adams-Bashforth extrapolation on S tendency (=Gs)
97    C AdamsBashforth_T  :: apply Adams-Bashforth extrapolation on Pot.Temp.
98    C AdamsBashforth_S  :: apply Adams-Bashforth extrapolation on Salinity
99    C tempStartAB       :: start this run (or restart) without previous gT/Temp
100    C saltStartAB       :: start this run (or restart) without previous gS/Salt
101          LOGICAL tempSOM_Advection
102          LOGICAL saltSOM_Advection
103        LOGICAL tempMultiDimAdvec        LOGICAL tempMultiDimAdvec
104        LOGICAL saltMultiDimAdvec        LOGICAL saltMultiDimAdvec
105        LOGICAL tr1_MultiDimAdvec        LOGICAL AdamsBashforthGt
106        LOGICAL tempAdamsBashforth        LOGICAL AdamsBashforthGs
107        LOGICAL saltAdamsBashforth        LOGICAL AdamsBashforth_T
108        LOGICAL tr1_AdamsBashforth        LOGICAL AdamsBashforth_S
109          LOGICAL tempStartAB
110          LOGICAL saltStartAB
111        COMMON /GAD_PARM_L/        COMMON /GAD_PARM_L/
112       & tempMultiDimAdvec , saltMultiDimAdvec , tr1_MultiDimAdvec,       & tempSOM_Advection, saltSOM_Advection,
113       & tempAdamsBashforth, saltAdamsBashforth, tr1_AdamsBashforth       & tempMultiDimAdvec, saltMultiDimAdvec,
114         & AdamsBashforthGt, AdamsBashforthGs,
115         & AdamsBashforth_T, AdamsBashforth_S,
116         & tempStartAB, saltStartAB
117    
118    CEH3 ;;; Local Variables: ***
119    CEH3 ;;; mode:fortran ***
120    CEH3 ;;; End: ***
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22