/[MITgcm]/MITgcm/pkg/generic_advdiff/GAD.h
ViewVC logotype

Annotation of /MITgcm/pkg/generic_advdiff/GAD.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.10 - (hide annotations) (download)
Tue Nov 12 20:42:24 2002 UTC (21 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint51k_post, checkpoint47e_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint47c_post, checkpoint50c_post, checkpoint52d_pre, checkpoint48e_post, checkpoint50c_pre, checkpoint52j_pre, checkpoint51o_pre, checkpoint51l_post, checkpoint48i_post, checkpoint52l_post, checkpoint52k_post, checkpoint51, checkpoint50, checkpoint52, checkpoint50d_post, checkpoint52f_post, checkpoint50b_pre, checkpoint51f_post, checkpoint48b_post, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint51t_post, checkpoint51n_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint47a_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint52e_pre, checkpoint52e_post, checkpoint51n_pre, checkpoint47d_post, checkpoint48d_post, checkpoint48f_post, checkpoint52b_pre, checkpoint51l_pre, checkpoint48h_post, checkpoint51q_post, checkpoint51b_pre, checkpoint47g_post, checkpoint52b_post, checkpoint52c_post, checkpoint51h_pre, checkpoint48a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint52f_pre, checkpoint47j_post, branch-exfmods-tag, branchpoint-genmake2, checkpoint51r_post, checkpoint48c_post, checkpoint51i_post, checkpoint51b_post, checkpoint51c_post, checkpoint47b_post, checkpoint52d_post, checkpoint50g_post, checkpoint52a_pre, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint52h_pre, checkpoint52j_post, checkpoint47f_post, checkpoint50e_post, branch-netcdf, checkpoint50d_pre, checkpoint51e_post, checkpoint47, checkpoint48, checkpoint49, checkpoint51o_post, checkpoint51f_pre, checkpoint48g_post, checkpoint47h_post, checkpoint52a_post, checkpoint51g_post, ecco_c52_e35, checkpoint50b_post, checkpoint51m_post, checkpoint51a_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-exfmods-curt, branch-genmake2, branch-nonh, tg2-branch, netcdf-sm0, checkpoint51n_branch
Changes since 1.9: +8 -4 lines
File MIME type: text/plain 
Merging from release1_p8 branch:
o GAD:
  - generated new common blocks to account for call of
    same gad routines with differing traceridentities
    (needed to modify tracerIdentity indices in GAD.h)
  - generated separate common blocks for case useCubedSphereExchange
    (Department of Futurology)
  - parameter lists to gmredi_?transport: added tracerIdentity
  - added new key indices to tamc.h
1 heimbach 1.10 C $Header: /u/gcmpack/MITgcm/pkg/generic_advdiff/GAD.h,v 1.9 2002/06/15 03:31:17 jmc Exp $
2 heimbach 1.4 C $Name: $
3 adcroft 1.1
4 adcroft 1.7 CBOP
5     C !ROUTINE: GAD.h
6 adcroft 1.1
7 adcroft 1.7 C !INTERFACE:
8     C #include "GAD.h"
9    
10     C !DESCRIPTION:
11     C Contains enumerated constants for distinguishing between different
12     C advection schemes and tracers.
13     C
14     C Unfortunately, there is no easy way to make use of the
15     C tokens in namelist input so for now we have to enter the
16     C tokens value into "data" (ie. 2 for 2nd order etc.)
17 adcroft 1.8
18     C !USES:
19     #include "GAD_OPTIONS.h"
20 adcroft 1.7
21     C !DEFINED PARAMETERS:
22    
23     C ENUM_CENTERED_2ND :: Centered 2nd order
24 adcroft 1.1 INTEGER ENUM_CENTERED_2ND
25     PARAMETER(ENUM_CENTERED_2ND=2)
26 jmc 1.2
27 adcroft 1.7 C ENUM_UPWIND_3RD :: 3rd order upwind
28 jmc 1.2 INTEGER ENUM_UPWIND_3RD
29     PARAMETER(ENUM_UPWIND_3RD=3)
30 adcroft 1.1
31 adcroft 1.7 C ENUM_CENTERED_4TH :: Centered 4th order
32 adcroft 1.1 INTEGER ENUM_CENTERED_4TH
33     PARAMETER(ENUM_CENTERED_4TH=4)
34    
35 adcroft 1.7 C ENUM_FLUX_LIMIT :: Non-linear flux limiter
36 adcroft 1.1 INTEGER ENUM_FLUX_LIMIT
37     PARAMETER(ENUM_FLUX_LIMIT=77)
38 adcroft 1.6
39 adcroft 1.7 C ENUM_DST3 :: 3-DST
40 adcroft 1.6 INTEGER ENUM_DST3
41     PARAMETER(ENUM_DST3=30)
42    
43 adcroft 1.7 C ENUM_DST3_FLUX_LIMIT :: 3-DST flux limited
44 adcroft 1.6 INTEGER ENUM_DST3_FLUX_LIMIT
45     PARAMETER(ENUM_DST3_FLUX_LIMIT=33)
46 adcroft 1.1
47 adcroft 1.7 C oneSixth :: Third/fourth order interpolation factor
48 adcroft 1.1 _RL oneSixth
49 heimbach 1.4 PARAMETER(oneSixth=1.D0/6.D0)
50 adcroft 1.1
51     C Differentiate between tracers (only needed for KPP - arrgh!!!)
52 heimbach 1.10 cph and for GMRedi arrgh*arrgh!!!)
53     cph indices are used for TAF key computations, so need to
54     cph running from 1, 2, ...
55     c
56 adcroft 1.7 C GAD_TEMPERATURE :: temperature
57 adcroft 1.1 INTEGER GAD_TEMPERATURE
58 heimbach 1.10 PARAMETER(GAD_TEMPERATURE=1)
59 jmc 1.9 C GAD_SALINITY :: salinity
60 adcroft 1.1 INTEGER GAD_SALINITY
61 heimbach 1.10 PARAMETER(GAD_SALINITY=2)
62 adcroft 1.7 C GAD_TR1 :: pssive tracer 1
63 heimbach 1.3 INTEGER GAD_TR1
64 heimbach 1.10 PARAMETER(GAD_TR1=3)
65 adcroft 1.7 CEOP
66 jmc 1.9
67     C-- COMMON /GAD_PARM_L/ Logical parameters for GAD pkg routines
68     C tempMultiDimAdvec :: set to T if using multi-dimension advection for Temp
69     C saltMultiDimAdvec :: set to T if using multi-dimension advection for Salt
70     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
72     LOGICAL tempMultiDimAdvec
73     LOGICAL saltMultiDimAdvec
74     LOGICAL tr1_MultiDimAdvec
75     LOGICAL tempAdamsBashforth
76     LOGICAL saltAdamsBashforth
77     LOGICAL tr1_AdamsBashforth
78     COMMON /GAD_PARM_L/
79     & tempMultiDimAdvec , saltMultiDimAdvec , tr1_MultiDimAdvec,
80     & tempAdamsBashforth, saltAdamsBashforth, tr1_AdamsBashforth
  ViewVC Help
Powered by ViewVC 1.1.22