/[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.9 by jmc, Sat Jun 15 03:31:17 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 GMRedi arrgh*arrgh!!!)
61    cph  indices are used for TAF key computations, so need to
62    cph  running from 1, 2, ...
63    c
64  C GAD_TEMPERATURE :: temperature  C GAD_TEMPERATURE :: temperature
65        INTEGER GAD_TEMPERATURE        INTEGER GAD_TEMPERATURE
66        PARAMETER(GAD_TEMPERATURE=101)        PARAMETER(GAD_TEMPERATURE=1)
67  C GAD_SALINITY :: salinity  C GAD_SALINITY :: salinity
68        INTEGER GAD_SALINITY        INTEGER GAD_SALINITY
69        PARAMETER(GAD_SALINITY=102)        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=103)        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.9  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22