/[MITgcm]/MITgcm/verification/natl_box_adjoint/code_seaice/tamc.h
ViewVC logotype

Contents of /MITgcm/verification/natl_box_adjoint/code_seaice/tamc.h

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


Revision 1.4 - (show annotations) (download)
Sat May 6 18:02:11 2006 UTC (15 years, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint58e_post, checkpoint58m_post, checkpoint58u_post, checkpoint60, checkpoint61, checkpoint58r_post, checkpoint58g_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint58w_post, checkpoint58j_post, checkpoint58q_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint59, checkpoint58f_post, checkpoint58i_post, checkpoint58o_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint58p_post, checkpoint61a, checkpoint61h, checkpoint61i
Changes since 1.3: +2 -2 lines
File MIME type: text/plain
Move iicekey.

1 C $Header: /u/gcmpack/MITgcm/verification/natl_box_adjoint/code_seaice/tamc.h,v 1.3 2004/09/17 23:08:43 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 = 24 )
66 integer nchklev_2
67 parameter( nchklev_2 = 3330 )
68 integer nchklev_3
69 parameter( nchklev_3 = 40 )
70
71 c-- Note always check for the correct sizes of the common blocks!
72
73 #else /* ALLOW_TAMC_CHECKPOINTING undefined */
74
75 integer nchklev_0
76 parameter( nchklev_0 = 48 )
77
78 #endif /* ALLOW_TAMC_CHECKPOINTING */
79
80 c TAMC keys:
81 c ==========
82 c
83 c The keys are used for storing and reading data of the reference
84 c trajectory.
85 c
86 c The convention used here is:
87 c ikey_<name>
88 c
89 c which means that this key is used in routine <name> for reading
90 c and writing data.
91
92 common /tamc_keys_i/
93 & ikey_dynamics,
94 & ikey_yearly,
95 & ikey_daily_1,
96 & ikey_daily_2,
97 & iloop_daily
98
99 integer ikey_dynamics
100 integer ikey_yearly
101 integer ikey_daily_1
102 integer ikey_daily_2
103 integer iloop_daily
104
105 INTEGER isbyte
106 PARAMETER( isbyte = 4 )
107 INTEGER maximpl
108 PARAMETER( maximpl = 6 )
109 #ifdef ALLOW_PTRACERS
110 cph moved this to PTRACERS_SIZE.h
111 cph INTEGER maxpass
112 cph PARAMETER( maxpass = PTRACERS_num + 2 )
113 #else
114 INTEGER maxpass
115 PARAMETER( maxpass = 2 )
116 #endif
117 INTEGER maxcube
118 PARAMETER( maxcube = 1 )
119
120 INTEGER act0, act1, act2, act3, act4
121 INTEGER max0, max1, max2, max3
122 INTEGER iikey, kkey, passkey, igadkey,
123 & itdkey, idynkey, igmkey, ikppkey
124
125 c ================================================================
126 c END OF HEADER TAMC
127 c ================================================================
128
129

  ViewVC Help
Powered by ViewVC 1.1.22