/[MITgcm]/MITgcm/verification/global2x2_tot/code/tamc.h
ViewVC logotype

Contents of /MITgcm/verification/global2x2_tot/code/tamc.h

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


Revision 1.3 - (show annotations) (download)
Tue Oct 9 02:29:10 2007 UTC (14 years, 8 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint63h, checkpoint63i, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59k, checkpoint59j, 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, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.2: +3 -1 lines
File MIME type: text/plain
add missing cvs $Header:$ or $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 parameter( nchklev_1 = 24 )
63 integer nchklev_2
64 parameter( nchklev_2 = 60 )
65 integer nchklev_3
66 parameter( nchklev_3 = 24 )
67
68 c-- Note always check for the correct sizes of the common blocks!
69
70 #else /* ALLOW_TAMC_CHECKPOINTING undefined */
71
72 integer nchklev_0
73 parameter( nchklev_0 = 64800 )
74
75 #endif /* ALLOW_TAMC_CHECKPOINTING */
76
77 c TAMC keys:
78 c ==========
79 c
80 c The keys are used for storing and reading data of the reference
81 c trajectory.
82 c
83 c The convention used here is:
84 c ikey_<name>
85 c
86 c which means that this key is used in routine <name> for reading
87 c and writing data.
88
89 common /tamc_keys_i/
90 & ikey_dynamics,
91 & ikey_yearly,
92 & ikey_daily_1,
93 & ikey_daily_2,
94 & iloop_daily
95
96 integer ikey_dynamics
97 integer ikey_yearly
98 integer ikey_daily_1
99 integer ikey_daily_2
100 integer iloop_daily
101
102 INTEGER isbyte
103 PARAMETER( isbyte = 4 )
104 INTEGER maximpl
105 PARAMETER( maximpl = 6 )
106 INTEGER maxpass
107 #ifdef ALLOW_PASSIVE_TRACER
108 PARAMETER( maxpass = 3 )
109 #else
110 PARAMETER( maxpass = 2 )
111 #endif
112 INTEGER maxcube
113 PARAMETER( maxcube = 1 )
114
115 INTEGER act0, act1, act2, act3, act4
116 INTEGER max0, max1, max2, max3
117 INTEGER iikey, kkey, passkey, igadkey,
118 & itdkey, idynkey, igmkey, ikppkey
119
120 c ================================================================
121 c END OF HEADER TAMC
122 c ================================================================
123
124

  ViewVC Help
Powered by ViewVC 1.1.22