/[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.11 by edhill, Mon Mar 29 03:33:51 2004 UTC
# Line 48  C oneSixth :: Third/fourth order interpo Line 48  C oneSixth :: Third/fourth order interpo
48        _RL oneSixth        _RL oneSixth
49        PARAMETER(oneSixth=1.D0/6.D0)        PARAMETER(oneSixth=1.D0/6.D0)
50    
51  C Differentiate between tracers (only needed for KPP -  arrgh!!!)  C Differentiate between tracers (needed for KPP - arrgh!!!)
52  cph                              and for GMRedi arrgh*arrgh!!!)  cph                              and GMRedi arrgh*arrgh!!!)
53  cph  indices are used for TAF key computations, so need to  cph  indices are used for TAF key computations, so need to
54  cph  running from 1, 2, ...  cph  running from 1, 2, ...
55  c  c
# Line 65  C GAD_TR1 :: pssive tracer 1 Line 65  C GAD_TR1 :: pssive tracer 1
65  CEOP  CEOP
66    
67  C--   COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines  C--   COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines
68  C     tempMultiDimAdvec :: set to T if using multi-dimension advection for Temp  C tempMultiDimAdvec :: set to T if using multi-dim advection for Temp
69  C     saltMultiDimAdvec :: set to T if using multi-dimension advection for Salt  C saltMultiDimAdvec :: set to T if using multi-dim advection for Salt
70  C     tempAdamsBashforth :: set to T if using Adams-Bashforth stepping for Temp  C tempAdamsBashforth :: set to T if using Adams-Bashforth stepping for Temp
71  C     saltAdamsBashforth :: set to T if using Adams-Bashforth stepping for Salt  C saltAdamsBashforth :: set to T if using Adams-Bashforth stepping for Salt
72        LOGICAL tempMultiDimAdvec        LOGICAL tempMultiDimAdvec
73        LOGICAL saltMultiDimAdvec        LOGICAL saltMultiDimAdvec
74        LOGICAL tr1_MultiDimAdvec        LOGICAL tr1_MultiDimAdvec
# Line 78  C     saltAdamsBashforth :: set to T if Line 78  C     saltAdamsBashforth :: set to T if
78        COMMON /GAD_PARM_L/        COMMON /GAD_PARM_L/
79       & tempMultiDimAdvec , saltMultiDimAdvec , tr1_MultiDimAdvec,       & tempMultiDimAdvec , saltMultiDimAdvec , tr1_MultiDimAdvec,
80       & tempAdamsBashforth, saltAdamsBashforth, tr1_AdamsBashforth       & tempAdamsBashforth, saltAdamsBashforth, tr1_AdamsBashforth
81    
82    CEH3 ;;; Local Variables: ***
83    CEH3 ;;; mode:fortran ***
84    CEH3 ;;; End: ***
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22