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

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

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


Revision 1.2 - (show annotations) (download)
Thu Jun 23 21:42:39 2011 UTC (12 years, 9 months 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, 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, HEAD
Changes since 1.1: +3 -1 lines
File MIME type: text/plain
add CVS Header & Name

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

  ViewVC Help
Powered by ViewVC 1.1.22