/[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.12 by dimitri, Wed May 5 07:15:41 2004 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 71  C tempAdamsBashforth :: set to T if usin Line 79  C tempAdamsBashforth :: set to T if usin
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: ***  CEH3 ;;; Local Variables: ***
89  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22