/[MITgcm]/MITgcm/verification/bottom_ctrl_5x5/code_ad/tamc.h
ViewVC logotype

Contents of /MITgcm/verification/bottom_ctrl_5x5/code_ad/tamc.h

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


Revision 1.2 - (show annotations) (download)
Mon Feb 16 15:04:07 2009 UTC (15 years, 1 month ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint65, checkpoint62, checkpoint63, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y, HEAD
Changes since 1.1: +6 -2 lines
File MIME type: text/plain
apply same changes as for global_ocean_ebm/code_ad/tamc.h

1 C $Header: /u/gcmpack/MITgcm/verification/bottom_ctrl_5x5/code_ad/tamc.h,v 1.1 2006/06/07 02:00:01 heimbach Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5
6 c ================================================================
7 c HEADER TAMC
8 c ================================================================
9 c
10 c o Header for the use of the Tangent Linear and Adjoint Model
11 c Compiler (TAMC).
12 c
13 c started: Christian Eckert eckert@mit.edu 04-Feb-1999
14 c changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
15 c - New parameter nlevchk_0 for dimensionalising
16 c common blocks in the undef ALLOW_TAMC_CHECKPOINTING case
17 c - nhreads_chkpt was declared at the wrong place
18 c - new keys, separate for different packages
19
20 c ================================================================
21 c HEADER TAMC
22 c ================================================================
23
24
25 c TAMC checkpointing parameters:
26 c ==============================
27 c
28 c The checkpointing parameters have to be consistent with other model
29 c parameters and variables. This has to be checked before the model is
30 c run.
31 c
32 c nyears_chkpt - Number of calendar years affected by the assimilation
33 c experiment; nyears_chkpt has to be at least equal to
34 c the result of cal_IntYears(mythid).
35 c nmonths_chkpt - Number of months per year; nmonth_chkpt has to be at
36 c least equal to nmonthyear.
37 c ndays_chkpt - Number of days per month; nday_chkpt has to be at least
38 c equal to nmaxdaymonth.
39 c nsteps_chkpt - Number of steps per day; nsteps_chkpt has to be at
40 c least equal to cal_nStepDay(mythid)
41 c ncheck_chkpt - Number of innermost checkpoints.
42 c
43 c ngeom_chkpt - Geometry factor.
44 c nthreads_chkpt - Number of threads to be used; nth_chkpt .eq. nTx*nTy
45
46 integer nyears_chkpt
47 integer nmonths_chkpt
48 integer ndays_chkpt
49 integer ngeom_chkpt
50 integer ncheck_chkpt
51 integer nthreads_chkpt
52
53 parameter (nyears_chkpt = 1 )
54 parameter (nmonths_chkpt = 12 )
55 parameter (ndays_chkpt = 31 )
56 parameter (ngeom_chkpt = nr*nsx*nsy )
57 parameter (ncheck_chkpt = 6 )
58 parameter ( nthreads_chkpt = 1 )
59
60 #ifdef ALLOW_TAMC_CHECKPOINTING
61
62 integer nchklev_1
63 parameter( nchklev_1 = 20 )
64 integer nchklev_2
65 #ifdef AUTODIFF_2_LEVEL_CHECKPOINT
66 parameter( nchklev_2 = 22 )
67 #else
68 parameter( nchklev_2 = 10 )
69 #endif
70 integer nchklev_3
71 parameter( nchklev_3 = 5 )
72
73 c-- Note always check for the correct sizes of the common blocks!
74
75 #else /* ALLOW_TAMC_CHECKPOINTING undefined */
76
77 integer nchklev_0
78 parameter( nchklev_0 = 64800 )
79
80 #endif /* ALLOW_TAMC_CHECKPOINTING */
81
82 c TAMC keys:
83 c ==========
84 c
85 c The keys are used for storing and reading data of the reference
86 c trajectory.
87 c
88 c The convention used here is:
89 c ikey_<name>
90 c
91 c which means that this key is used in routine <name> for reading
92 c and writing data.
93
94 common /tamc_keys_i/
95 & ikey_dynamics,
96 & ikey_yearly,
97 & ikey_daily_1,
98 & ikey_daily_2,
99 & iloop_daily
100
101 integer ikey_dynamics
102 integer ikey_yearly
103 integer ikey_daily_1
104 integer ikey_daily_2
105 integer iloop_daily
106
107 INTEGER isbyte
108 #ifdef ALLOW_TAMC_SINGLEPREC_COMLEV
109 PARAMETER( isbyte = 4 )
110 #else
111 PARAMETER( isbyte = 8 )
112 #endif
113 INTEGER maximpl
114 PARAMETER( maximpl = 6 )
115 #ifdef ALLOW_PTRACERS
116 cph moved this to PTRACERS_SIZE.h
117 cph INTEGER maxpass
118 cph PARAMETER( maxpass = PTRACERS_num + 2 )
119 #else
120 INTEGER maxpass
121 PARAMETER( maxpass = 2 )
122 #endif
123 INTEGER maxcube
124 PARAMETER( maxcube = 1 )
125
126 INTEGER act0, act1, act2, act3, act4
127 INTEGER max0, max1, max2, max3
128 INTEGER iikey, kkey, passkey, igadkey,
129 & itdkey, idynkey, igmkey
130
131 #ifdef ALLOW_DEPTH_CONTROL
132 C Parameter that is needed for the tape complev_cg2d_iter
133 C cannot be smaller than the allowed number of iterations in cg2d
134 C (numItersMax >= cg2dMaxIters in data-file)
135 INTEGER numItersMax
136 PARAMETER ( numItersMax = 100 )
137 #endif /* ALLOW_DEPTH_CONTROL */
138
139 c ================================================================
140 c END OF HEADER TAMC
141 c ================================================================
142
143

  ViewVC Help
Powered by ViewVC 1.1.22