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

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

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

Revision 1.10 - (show annotations) (download)
Tue Nov 12 20:42:24 2002 UTC (21 years, 5 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 C $Header: /u/gcmpack/MITgcm/pkg/generic_advdiff/GAD.h,v 1.9 2002/06/15 03:31:17 jmc Exp $
2 C $Name: $
3
4 CBOP
5 C !ROUTINE: GAD.h
6
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
18 C !USES:
19 #include "GAD_OPTIONS.h"
20
21 C !DEFINED PARAMETERS:
22
23 C ENUM_CENTERED_2ND :: Centered 2nd order
24 INTEGER ENUM_CENTERED_2ND
25 PARAMETER(ENUM_CENTERED_2ND=2)
26
27 C ENUM_UPWIND_3RD :: 3rd order upwind
28 INTEGER ENUM_UPWIND_3RD
29 PARAMETER(ENUM_UPWIND_3RD=3)
30
31 C ENUM_CENTERED_4TH :: Centered 4th order
32 INTEGER ENUM_CENTERED_4TH
33 PARAMETER(ENUM_CENTERED_4TH=4)
34
35 C ENUM_FLUX_LIMIT :: Non-linear flux limiter
36 INTEGER ENUM_FLUX_LIMIT
37 PARAMETER(ENUM_FLUX_LIMIT=77)
38
39 C ENUM_DST3 :: 3-DST
40 INTEGER ENUM_DST3
41 PARAMETER(ENUM_DST3=30)
42
43 C ENUM_DST3_FLUX_LIMIT :: 3-DST flux limited
44 INTEGER ENUM_DST3_FLUX_LIMIT
45 PARAMETER(ENUM_DST3_FLUX_LIMIT=33)
46
47 C oneSixth :: Third/fourth order interpolation factor
48 _RL oneSixth
49 PARAMETER(oneSixth=1.D0/6.D0)
50
51 C Differentiate between tracers (only needed for KPP - arrgh!!!)
52 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 C GAD_TEMPERATURE :: temperature
57 INTEGER GAD_TEMPERATURE
58 PARAMETER(GAD_TEMPERATURE=1)
59 C GAD_SALINITY :: salinity
60 INTEGER GAD_SALINITY
61 PARAMETER(GAD_SALINITY=2)
62 C GAD_TR1 :: pssive tracer 1
63 INTEGER GAD_TR1
64 PARAMETER(GAD_TR1=3)
65 CEOP
66
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