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

Annotation of /MITgcm/verification/front_relax/code_ad/tamc.h

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

Revision 1.4 - (hide annotations) (download)
Tue Oct 9 02:36:42 2007 UTC (16 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint62c, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint64, checkpoint65, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint65r, checkpoint65o, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59k, checkpoint59j, checkpoint62b, 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, checkpoint62d, checkpoint61f, checkpoint61n, checkpoint61q, checkpoint61z, checkpoint61e, checkpoint61g, checkpoint61d, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61x, checkpoint61y, HEAD
Changes since 1.3: +3 -1 lines
File MIME type: text/plain 
add missing cvs $Header:$ or $Name:$
1 jmc 1.4 C $Header: $
2     C $Name: $
3 heimbach 1.1
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 heimbach 1.3 parameter( nchklev_1 = 5 )
63 heimbach 1.1 integer nchklev_2
64 heimbach 1.3 parameter( nchklev_2 = 2 )
65     c parameter( nchklev_2 = 150 )
66 heimbach 1.1 integer nchklev_3
67 heimbach 1.3 parameter( nchklev_3 = 3 )
68     c parameter( nchklev_3 = 150 )
69 heimbach 1.1
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 = 64800 )
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 heimbach 1.3 PARAMETER( isbyte = 8 )
106 heimbach 1.1 INTEGER maximpl
107 heimbach 1.2 PARAMETER( maximpl = 6 )
108 heimbach 1.1 INTEGER maxpass
109 heimbach 1.3 #ifdef ALLOW_PASSIVE_TRACER
110 heimbach 1.2 PARAMETER( maxpass = 3 )
111 heimbach 1.3 #else
112     PARAMETER( maxpass = 2 )
113     #endif
114 heimbach 1.2 INTEGER maxcube
115     PARAMETER( maxcube = 1 )
116    
117     INTEGER act0, act1, act2, act3, act4
118     INTEGER max0, max1, max2, max3
119 jmc 1.4 INTEGER iikey, kkey, passkey, igadkey,
120 heimbach 1.3 & itdkey, idynkey, igmkey, ikppkey
121 heimbach 1.1
122     c ================================================================
123     c END OF HEADER TAMC
124     c ================================================================
125    
126    
  ViewVC Help
Powered by ViewVC 1.1.22