/[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.2 by jmc, Thu Jul 12 00:31:59 2001 UTC revision 1.5 by adcroft, Thu Aug 30 13:01:14 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 C Parameter common bloack  
       INTEGER gad_advection_scheme  
 c     COMMON /GAD_PARS/  
 c    &    gad_advection_scheme  
       PARAMETER(gad_advection_scheme=2)  
   
4  C Enumerated constants for selecting advection schemes  C Enumerated constants for selecting advection schemes
5    C  - unfortunately, there is no easy way to make use of the
6    C    tokens in namelist input so for now we have to enter the
7    C    tokens value into "data" (ie. 2 for 2nd order etc.)
8    
9  C Centered 2nd order  C Centered 2nd order
10        INTEGER ENUM_CENTERED_2ND        INTEGER ENUM_CENTERED_2ND
# Line 27  C Non-linear flux limiter Line 24  C Non-linear flux limiter
24    
25  C Third/fourth order interpolation factor  C Third/fourth order interpolation factor
26        _RL oneSixth        _RL oneSixth
27        PARAMETER(oneSixth=1. _d 0/6. _d 0)        PARAMETER(oneSixth=1.D0/6.D0)
28    
29  C Differentiate between tracers (only needed for KPP -  arrgh!!!)  C Differentiate between tracers (only needed for KPP -  arrgh!!!)
30        INTEGER GAD_TEMPERATURE        INTEGER GAD_TEMPERATURE
31        PARAMETER(GAD_TEMPERATURE=123)        PARAMETER(GAD_TEMPERATURE=101)
32        INTEGER GAD_SALINITY        INTEGER GAD_SALINITY
33        PARAMETER(GAD_SALINITY=321)        PARAMETER(GAD_SALINITY=102)
34          INTEGER GAD_TR1
35          PARAMETER(GAD_TR1=103)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22