/[MITgcm]/MITgcm/tutorial_examples/tracer_adjoint_sensitivity/code/tamc.h
ViewVC logotype

Contents of /MITgcm/tutorial_examples/tracer_adjoint_sensitivity/code/tamc.h

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


Revision 1.1.2.1 - (show annotations) (download)
Mon Jan 14 17:02:54 2002 UTC (20 years ago) by cnh
Branch: release1-branch
CVS Tags: release1-branch_tutorials, release1-branch-end
Changes since 1.1: +115 -0 lines
File MIME type: text/plain
o Renaming tutorial examples as follows

exp0                           -> barotropic_gyre_in_a_box
exp2                           -> baroclinic_gyre_on_a_sphere
global_ocean.90x40x15          -> global_ocean_circulation
hs94.128x64x5                  -> held_suarez_atmosphere
plume_on_slope                 -> nonhydrostatic_plume_on_slope
convection                     -> nonhydrostatic_deep_convection ( New experiment )
carbon                         -> tracer_adjoint_sensitivity

1
2 c ================================================================
3 c HEADER TAMC
4 c ================================================================
5 c
6 c o Header for the use of the Tangent Linear and Adjoint Model
7 c Compiler (TAMC).
8 c
9 c started: Christian Eckert eckert@mit.edu 04-Feb-1999
10 c
11 c changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
12 c - New parameter nlevchk_0 for dimensionalising
13 c common blocks in the undef ALLOW_TAMC_CHECKPOINTING case
14 c - nhreads_chkpt was declared at the wrong place
15 c
16 c
17 c ================================================================
18 c HEADER TAMC
19 c ================================================================
20
21
22 c TAMC checkpointing parameters:
23 c ==============================
24 c
25 c The checkpointing parameters have to be consistent with other model
26 c parameters and variables. This has to be checked before the model is
27 c run.
28 c
29 c nyears_chkpt - Number of calendar years affected by the assimilation
30 c experiment; nyears_chkpt has to be at least equal to
31 c the result of cal_IntYears(mythid).
32 c nmonths_chkpt - Number of months per year; nmonth_chkpt has to be at
33 c least equal to nmonthyear.
34 c ndays_chkpt - Number of days per month; nday_chkpt has to be at least
35 c equal to nmaxdaymonth.
36 c nsteps_chkpt - Number of steps per day; nsteps_chkpt has to be at
37 c least equal to cal_nStepDay(mythid)
38 c ncheck_chkpt - Number of innermost checkpoints.
39 c
40 c ngeom_chkpt - Geometry factor.
41 c nthreads_chkpt - Number of threads to be used; nth_chkpt .eq. nTx*nTy
42
43 integer nyears_chkpt
44 integer nmonths_chkpt
45 integer ndays_chkpt
46 integer ngeom_chkpt
47 integer ncheck_chkpt
48 integer nthreads_chkpt
49
50 parameter (nyears_chkpt = 1 )
51 parameter (nmonths_chkpt = 12 )
52 parameter (ndays_chkpt = 31 )
53 parameter (ngeom_chkpt = nr*nsx*nsy )
54 parameter (ncheck_chkpt = 6 )
55 parameter ( nthreads_chkpt = 1 )
56
57 #ifdef ALLOW_TAMC_CHECKPOINTING
58
59 integer nchklev_1
60 parameter( nchklev_1 = 36 )
61 integer nchklev_2
62 parameter( nchklev_2 = 30 )
63 integer nchklev_3
64 parameter( nchklev_3 = 60 )
65
66 c-- Note always check for the correct sizes of the common blocks!
67
68 #else /* ALLOW_TAMC_CHECKPOINTING undefined */
69
70 integer nchklev_0
71 parameter( nchklev_0 = 64800 )
72
73 #endif /* ALLOW_TAMC_CHECKPOINTING */
74
75 c TAMC keys:
76 c ==========
77 c
78 c The keys are used for storing and reading data of the reference
79 c trajectory.
80 c
81 c The convention used here is:
82 c ikey_<name>
83 c
84 c which means that this key is used in routine <name> for reading
85 c and writing data.
86
87 common /tamc_keys_i/
88 & ikey_dynamics,
89 & ikey_yearly,
90 & ikey_daily_1,
91 & ikey_daily_2,
92 & iloop_daily
93
94 integer ikey_dynamics
95 integer ikey_yearly
96 integer ikey_daily_1
97 integer ikey_daily_2
98 integer iloop_daily
99
100 INTEGER isbyte
101 PARAMETER( isbyte = 4 )
102 INTEGER maximpl
103 PARAMETER( maximpl = 6 )
104 INTEGER maxpass
105 PARAMETER( maxpass = 3 )
106
107 INTEGER act1, act2, act3, act4
108 INTEGER max1, max2, max3
109 INTEGER iikey, kkey, passkey
110
111 c ================================================================
112 c END OF HEADER TAMC
113 c ================================================================
114
115

  ViewVC Help
Powered by ViewVC 1.1.22