/[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.13 by jmc, Sat Oct 22 19:56:33 2005 UTC
# Line 20  C !USES: Line 20  C !USES:
20    
21  C !DEFINED PARAMETERS:  C !DEFINED PARAMETERS:
22    
23    C ENUM_UPWIND_1RST :: 1rst Order Upwind
24          INTEGER ENUM_UPWIND_1RST
25          PARAMETER(ENUM_UPWIND_1RST=1)
26    
27  C ENUM_CENTERED_2ND :: Centered 2nd order  C ENUM_CENTERED_2ND :: Centered 2nd order
28        INTEGER ENUM_CENTERED_2ND        INTEGER ENUM_CENTERED_2ND
29        PARAMETER(ENUM_CENTERED_2ND=2)        PARAMETER(ENUM_CENTERED_2ND=2)
30    
31  C ENUM_UPWIND_3RD :: 3rd order upwind  C ENUM_UPWIND_3RD :: 3rd order upwind
32        INTEGER ENUM_UPWIND_3RD        INTEGER ENUM_UPWIND_3RD
33        PARAMETER(ENUM_UPWIND_3RD=3)        PARAMETER(ENUM_UPWIND_3RD=3)
34    
# Line 32  C ENUM_CENTERED_4TH :: Centered 4th orde Line 36  C ENUM_CENTERED_4TH :: Centered 4th orde
36        INTEGER ENUM_CENTERED_4TH        INTEGER ENUM_CENTERED_4TH
37        PARAMETER(ENUM_CENTERED_4TH=4)        PARAMETER(ENUM_CENTERED_4TH=4)
38    
39    C ENUM_DST2 :: 2nd Order Direct Space and Time (= Lax-Wendroff)
40          INTEGER ENUM_DST2
41          PARAMETER(ENUM_DST2=20)
42    
43  C ENUM_FLUX_LIMIT :: Non-linear flux limiter  C ENUM_FLUX_LIMIT :: Non-linear flux limiter
44        INTEGER ENUM_FLUX_LIMIT        INTEGER ENUM_FLUX_LIMIT
45        PARAMETER(ENUM_FLUX_LIMIT=77)        PARAMETER(ENUM_FLUX_LIMIT=77)
46    
47  C ENUM_DST3 :: 3-DST  C ENUM_DST3 :: 3rd Order Direst Space and Time
48        INTEGER ENUM_DST3        INTEGER ENUM_DST3
49        PARAMETER(ENUM_DST3=30)        PARAMETER(ENUM_DST3=30)
50    
# Line 48  C oneSixth :: Third/fourth order interpo Line 56  C oneSixth :: Third/fourth order interpo
56        _RL oneSixth        _RL oneSixth
57        PARAMETER(oneSixth=1.D0/6.D0)        PARAMETER(oneSixth=1.D0/6.D0)
58    
59  C Differentiate between tracers (only needed for KPP -  arrgh!!!)  C Differentiate between tracers (needed for KPP - arrgh!!!)
60  cph                              and for GMRedi arrgh*arrgh!!!)  cph                              and GMRedi arrgh*arrgh!!!)
61  cph  indices are used for TAF key computations, so need to  cph  indices are used for TAF key computations, so need to
62  cph  running from 1, 2, ...  cph  running from 1, 2, ...
63  c  c
# Line 59  C GAD_TEMPERATURE :: temperature Line 67  C GAD_TEMPERATURE :: temperature
67  C GAD_SALINITY :: salinity  C GAD_SALINITY :: salinity
68        INTEGER GAD_SALINITY        INTEGER GAD_SALINITY
69        PARAMETER(GAD_SALINITY=2)        PARAMETER(GAD_SALINITY=2)
70  C GAD_TR1 :: pssive tracer 1  C GAD_TR1 :: passive tracer 1
71        INTEGER GAD_TR1        INTEGER GAD_TR1
72        PARAMETER(GAD_TR1=3)        PARAMETER(GAD_TR1=3)
73  CEOP  CEOP
74    
75  C--   COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines  C--   COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines
76  C     tempMultiDimAdvec :: set to T if using multi-dimension advection for Temp  C tempMultiDimAdvec :: set to T if using multi-dim advection for Temp
77  C     saltMultiDimAdvec :: set to T if using multi-dimension advection for Salt  C saltMultiDimAdvec :: set to T if using multi-dim advection for Salt
78  C     tempAdamsBashforth :: set to T if using Adams-Bashforth stepping for Temp  C tempAdamsBashforth :: set to T if using Adams-Bashforth stepping for Temp
79  C     saltAdamsBashforth :: set to T if using Adams-Bashforth stepping for Salt  C saltAdamsBashforth :: set to T if using Adams-Bashforth stepping for Salt
80        LOGICAL tempMultiDimAdvec        LOGICAL tempMultiDimAdvec
81        LOGICAL saltMultiDimAdvec        LOGICAL saltMultiDimAdvec
       LOGICAL tr1_MultiDimAdvec  
82        LOGICAL tempAdamsBashforth        LOGICAL tempAdamsBashforth
83        LOGICAL saltAdamsBashforth        LOGICAL saltAdamsBashforth
       LOGICAL tr1_AdamsBashforth  
84        COMMON /GAD_PARM_L/        COMMON /GAD_PARM_L/
85       & tempMultiDimAdvec , saltMultiDimAdvec , tr1_MultiDimAdvec,       & tempMultiDimAdvec , saltMultiDimAdvec ,
86       & tempAdamsBashforth, saltAdamsBashforth, tr1_AdamsBashforth       & tempAdamsBashforth, saltAdamsBashforth
87    
88    CEH3 ;;; Local Variables: ***
89    CEH3 ;;; mode:fortran ***
90    CEH3 ;;; End: ***
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22