/[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.8 - (show annotations) (download)
Fri Sep 28 02:26:57 2001 UTC (22 years, 7 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint44e_post, checkpoint44f_post, checkpoint43a-release1mods, chkpt44d_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, checkpoint44e_pre, release1_b1, checkpoint43, release1_chkpt44d_post, icebear5, icebear4, icebear3, icebear2, release1-branch_tutorials, chkpt44a_post, checkpoint44h_pre, chkpt44c_pre, checkpoint45a_post, ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, checkpoint44g_post, checkpoint45b_post, release1-branch-end, release1_final_v1, checkpoint44b_post, checkpoint45c_post, ecco_ice2, ecco_ice1, checkpoint44h_post, ecco_c44_e22, ecco_c44_e25, chkpt44a_pre, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e26, ecco_c44_e27, ecco_c44_e24, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, release1_beta1, checkpoint44b_pre, checkpoint44, checkpoint45, chkpt44c_post, checkpoint44f_pre, release1-branch_branchpoint
Branch point for: c24_e25_ice, release1_final, release1-branch, release1, ecco-branch, icebear, release1_coupled
Changes since 1.7: +4 -1 lines
File MIME type: text/plain 
Switched sense of CPP macro for controlling multi-dimensional advection:
 o DISABLE_MULTIDIM_ADVECTION is set in GAD_OPTIONS.h
 o automatically set if differentiating code
   (comments around call to gad_advection point out how to re-enable it)
 o this avoids needing to add the former macro to CPP_OPTIONS.h
   - reason for this is there's no point in any of the new schemes without it.
1 C $Header: /u/gcmpack/models/MITgcmUV/pkg/generic_advdiff/GAD.h,v 1.7 2001/09/19 20:45:09 adcroft 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 C GAD_TEMPERATURE :: temperature
53 INTEGER GAD_TEMPERATURE
54 PARAMETER(GAD_TEMPERATURE=101)
55 C GAD_TEMPERATURE :: salinity
56 INTEGER GAD_SALINITY
57 PARAMETER(GAD_SALINITY=102)
58 C GAD_TR1 :: pssive tracer 1
59 INTEGER GAD_TR1
60 PARAMETER(GAD_TR1=103)
61 CEOP
  ViewVC Help
Powered by ViewVC 1.1.22