/[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.12 by dimitri, Wed May 5 07:15:41 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 GMRedi arrgh*arrgh!!!)
53    cph  indices are used for TAF key computations, so need to
54    cph  running from 1, 2, ...
55    c
56  C GAD_TEMPERATURE :: temperature  C GAD_TEMPERATURE :: temperature
57        INTEGER GAD_TEMPERATURE        INTEGER GAD_TEMPERATURE
58        PARAMETER(GAD_TEMPERATURE=101)        PARAMETER(GAD_TEMPERATURE=1)
59  C GAD_SALINITY :: salinity  C GAD_SALINITY :: salinity
60        INTEGER GAD_SALINITY        INTEGER GAD_SALINITY
61        PARAMETER(GAD_SALINITY=102)        PARAMETER(GAD_SALINITY=2)
62  C GAD_TR1 :: pssive tracer 1  C GAD_TR1 :: passive tracer 1
63        INTEGER GAD_TR1        INTEGER GAD_TR1
64        PARAMETER(GAD_TR1=103)        PARAMETER(GAD_TR1=3)
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 74  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.9  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22