/[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.15 by jmc, Tue Jan 16 04:38:34 2007 UTC revision 1.22 by jahn, Fri Jun 26 23:10:09 2009 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    
# Line 52  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  C ENUM_SOM_PRATHER :: 2nd Order-Moment Advection Scheme, Prather, 1986
59        INTEGER ENUM_SOM_PRATHER        INTEGER ENUM_SOM_PRATHER
60        PARAMETER(ENUM_SOM_PRATHER=80)        PARAMETER(ENUM_SOM_PRATHER=80)
# Line 68  C oneSixth :: Third/fourth order interpo Line 71  C oneSixth :: Third/fourth order interpo
71        _RL oneSixth        _RL oneSixth
72        PARAMETER(oneSixth=1.D0/6.D0)        PARAMETER(oneSixth=1.D0/6.D0)
73    
74    C loop range for computing vertical advection tendency
75    C  iMinAdvR,iMaxAdvR  :: 1rst index (X-dir) loop range for vertical advection
76    C  jMinAdvR,jMaxAdvR  :: 2nd  index (Y-dir) loop range for vertical advection
77          INTEGER iMinAdvR, iMaxAdvR, jMinAdvR, jMaxAdvR
78    c     PARAMETER ( iMinAdvR = 1-OLx , iMaxAdvR = sNx+OLx )
79    c     PARAMETER ( jMinAdvR = 1-OLy , jMaxAdvR = sNy+OLy )
80    C- note: we use to compute vertical advection tracer tendency everywhere
81    C        (overlap included) as above, but really needs valid tracer tendency
82    C        in interior only (as below):
83          PARAMETER ( iMinAdvR = 1 , iMaxAdvR = sNx )
84          PARAMETER ( jMinAdvR = 1 , jMaxAdvR = sNy )
85    
86  C Differentiate between tracers (needed for KPP - arrgh!!!)  C Differentiate between tracers (needed for KPP - arrgh!!!)
87  cph                              and GMRedi arrgh*arrgh!!!)  cph                              and GMRedi arrgh*arrgh!!!)
88  cph  indices are used for TAF key computations, so need to  cph  indices are used for TAF key computations, so need to
# Line 84  C GAD_TR1 :: passive tracer 1 Line 99  C GAD_TR1 :: passive tracer 1
99        PARAMETER(GAD_TR1=3)        PARAMETER(GAD_TR1=3)
100  CEOP  CEOP
101    
102    C--   COMMON /GAD_PARM_C/ Character parameters for GAD pkg routines
103    C      somSfx       :: 1rst & 2nd Order moment suffix
104          CHARACTER*2 somSfx(nSOM)
105          COMMON /GAD_PARM_C/
106         & somSfx
107    
108  C--   COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines  C--   COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines
109  C tempSOM_Advection :: set to T if using 2nd-Order Moment advection for Temp  C tempSOM_Advection :: set to T if using 2nd-Order Moment advection for Temp
110  C saltSOM_Advection :: set to T if using 2nd-Order Moment advection for Salt  C saltSOM_Advection :: set to T if using 2nd-Order Moment advection for Salt
# Line 93  C AdamsBashforthGt  :: apply Adams-Bashf Line 114  C AdamsBashforthGt  :: apply Adams-Bashf
114  C AdamsBashforthGs  :: apply Adams-Bashforth extrapolation on S tendency (=Gs)  C AdamsBashforthGs  :: apply Adams-Bashforth extrapolation on S tendency (=Gs)
115  C AdamsBashforth_T  :: apply Adams-Bashforth extrapolation on Pot.Temp.  C AdamsBashforth_T  :: apply Adams-Bashforth extrapolation on Pot.Temp.
116  C AdamsBashforth_S  :: apply Adams-Bashforth extrapolation on Salinity  C AdamsBashforth_S  :: apply Adams-Bashforth extrapolation on Salinity
 C tempStartAB       :: start this run (or restart) without previous gT/Temp  
 C saltStartAB       :: start this run (or restart) without previous gS/Salt  
117        LOGICAL tempSOM_Advection        LOGICAL tempSOM_Advection
118        LOGICAL saltSOM_Advection        LOGICAL saltSOM_Advection
119        LOGICAL tempMultiDimAdvec        LOGICAL tempMultiDimAdvec
# Line 103  C saltStartAB       :: start this run (o Line 122  C saltStartAB       :: start this run (o
122        LOGICAL AdamsBashforthGs        LOGICAL AdamsBashforthGs
123        LOGICAL AdamsBashforth_T        LOGICAL AdamsBashforth_T
124        LOGICAL AdamsBashforth_S        LOGICAL AdamsBashforth_S
       LOGICAL tempStartAB  
       LOGICAL saltStartAB  
125        COMMON /GAD_PARM_L/        COMMON /GAD_PARM_L/
126       & tempSOM_Advection, saltSOM_Advection,       & tempSOM_Advection, saltSOM_Advection,
127       & tempMultiDimAdvec, saltMultiDimAdvec,       & tempMultiDimAdvec, saltMultiDimAdvec,
128       & AdamsBashforthGt, AdamsBashforthGs,       & AdamsBashforthGt, AdamsBashforthGs,
129       & AdamsBashforth_T, AdamsBashforth_S,       & AdamsBashforth_T, AdamsBashforth_S
130       & tempStartAB, saltStartAB  
131          _RL SmolarkiewiczMaxFrac
132          COMMON /GAD_SMOL/ SmolarkiewiczMaxFrac
133    
134  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
135  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22