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

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

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


Revision 1.3 - (show annotations) (download)
Thu Jul 18 20:15:06 2013 UTC (10 years, 8 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64k, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint65, 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.2: +6 -4 lines
File MIME type: text/plain
Modify lab_sea to test DIVA

1 C $Header: /u/gcmpack/MITgcm/verification/lab_sea/code_ad/tamc.h,v 1.2 2009/02/13 21:52:16 heimbach Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5
6
7 c ================================================================
8 c HEADER TAMC
9 c ================================================================
10 c
11 c o Header for the use of the Tangent Linear and Adjoint Model
12 c Compiler (TAMC).
13 c
14 c started: Christian Eckert eckert@mit.edu 04-Feb-1999
15 c
16 c changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
17 c - New parameter nlevchk_0 for dimensionalising common
18 c blocks in the undef ALLOW_TAMC_CHECKPOINTING case
19 c - nhreads_chkpt was declared at the wrong place
20 c
21 c
22 c ================================================================
23 c HEADER TAMC
24 c ================================================================
25
26
27 c TAMC checkpointing parameters:
28 c ==============================
29 c
30 c The checkpointing parameters have to be consistent with other model
31 c parameters and variables. This has to be checked before the model is
32 c run.
33 c
34 c nyears_chkpt - Number of calendar years affected by the assimilation
35 c experiment; nyears_chkpt has to be at least equal to
36 c the result of cal_IntYears(mythid).
37 c nmonths_chkpt - Number of months per year; nmonth_chkpt has to
38 c be at least equal to nmonthyear.
39 c ndays_chkpt - Number of days per month; nday_chkpt has to be
40 c at least equal to nmaxdaymonth.
41 c nsteps_chkpt - Number of steps per day; nsteps_chkpt has to
42 c be at least equal to cal_nStepDay(mythid)
43 c ncheck_chkpt - Number of innermost checkpoints.
44 c
45 c ngeom_chkpt - Geometry factor.
46 c nthreads_chkpt - Number of threads to be used; nth_chkpt .eq. nTx*nTy
47
48 integer nyears_chkpt
49 integer nmonths_chkpt
50 integer ndays_chkpt
51 integer ngeom_chkpt
52 integer ncheck_chkpt
53 integer nthreads_chkpt
54
55 parameter (nyears_chkpt = 1 )
56 parameter (nmonths_chkpt = 12 )
57 parameter (ndays_chkpt = 31 )
58 parameter (ngeom_chkpt = nr*nsx*nsy )
59 parameter (ncheck_chkpt = 6 )
60 parameter ( nthreads_chkpt = 1 )
61
62 #ifdef ALLOW_TAMC_CHECKPOINTING
63
64 integer nchklev_1
65 parameter( nchklev_1 = 2 )
66 integer nchklev_2
67 parameter( nchklev_2 = 2 )
68 integer nchklev_3
69 parameter( nchklev_3 = 4 )
70 cph integer nchklev_4
71 cph parameter( nchklev_4 = 4 )
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 = 48 )
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
114 INTEGER maximpl
115 PARAMETER( maximpl = 6 )
116 #ifdef ALLOW_PTRACERS
117 cph moved this to PTRACERS_SIZE.h
118 cph INTEGER maxpass
119 cph PARAMETER( maxpass = PTRACERS_num + 2 )
120 #else
121 INTEGER maxpass
122 PARAMETER( maxpass = 2 )
123 #endif
124 INTEGER maxcube
125 PARAMETER( maxcube = 1 )
126
127 INTEGER act0, act1, act2, act3, act4
128 INTEGER max0, max1, max2, max3
129 INTEGER iikey, kkey, passkey, igadkey,
130 & itdkey, idynkey, igmkey
131
132 c ================================================================
133 c END OF HEADER TAMC
134 c ================================================================
135
136

  ViewVC Help
Powered by ViewVC 1.1.22