/[MITgcm]/MITgcm/verification/global_ocean.90x40x15/code_ad/tamc.h
ViewVC logotype

Contents of /MITgcm/verification/global_ocean.90x40x15/code_ad/tamc.h

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


Revision 1.6 - (show annotations) (download)
Fri Mar 21 23:18:27 2003 UTC (18 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint50c_post, checkpoint50c_pre, checkpoint51o_pre, checkpoint51l_post, checkpoint50d_pre, checkpoint51, checkpoint52, checkpoint50d_post, checkpoint50b_pre, checkpoint51f_post, checkpoint51d_post, checkpoint51t_post, checkpoint51n_post, checkpoint51s_post, checkpoint51j_post, checkpoint51n_pre, checkpoint51l_pre, checkpoint51q_post, checkpoint51b_pre, checkpoint51h_pre, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, branchpoint-genmake2, checkpoint51r_post, checkpoint51i_post, checkpoint51b_post, checkpoint51c_post, checkpoint50g_post, checkpoint52a_pre, checkpoint50h_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint50e_post, checkpoint51e_post, checkpoint51o_post, checkpoint51f_pre, checkpoint52a_post, checkpoint51g_post, ecco_c52_e35, checkpoint50b_post, checkpoint51m_post, checkpoint51a_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-genmake2, branch-nonh, tg2-branch, checkpoint51n_branch
Changes since 1.5: +10 -4 lines
File MIME type: text/plain
Bug fix for merging between c50 and KPP.
ikey was passed from thermodynamics to kpp_calc via
common block rather than being recomputed in kpp_calc,
in contradiction with new key itdkey.
New key ikppkey created, and tamc.h headers updated.

1
2 c ================================================================
3 c HEADER TAMC
4 c ================================================================
5 c
6 c o Header for the use of the Tangent Linear and Adjoint Model
7 c Compiler (TAMC).
8 c
9 c started: Christian Eckert eckert@mit.edu 04-Feb-1999
10 c
11 c changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
12 c - New parameter nlevchk_0 for dimensionalising
13 c common blocks in the undef ALLOW_TAMC_CHECKPOINTING case
14 c - nhreads_chkpt was declared at the wrong place
15 c
16 c
17 c ================================================================
18 c HEADER TAMC
19 c ================================================================
20
21
22 c TAMC checkpointing parameters:
23 c ==============================
24 c
25 c The checkpointing parameters have to be consistent with other model
26 c parameters and variables. This has to be checked before the model is
27 c run.
28 c
29 c nyears_chkpt - Number of calendar years affected by the assimilation
30 c experiment; nyears_chkpt has to be at least equal to
31 c the result of cal_IntYears(mythid).
32 c nmonths_chkpt - Number of months per year; nmonth_chkpt has to be at
33 c least equal to nmonthyear.
34 c ndays_chkpt - Number of days per month; nday_chkpt has to be at least
35 c equal to nmaxdaymonth.
36 c nsteps_chkpt - Number of steps per day; nsteps_chkpt has to be at
37 c least equal to cal_nStepDay(mythid)
38 c ncheck_chkpt - Number of innermost checkpoints.
39 c
40 c ngeom_chkpt - Geometry factor.
41 c nthreads_chkpt - Number of threads to be used; nth_chkpt .eq. nTx*nTy
42
43 integer nyears_chkpt
44 integer nmonths_chkpt
45 integer ndays_chkpt
46 integer ngeom_chkpt
47 integer ncheck_chkpt
48 integer nthreads_chkpt
49
50 parameter (nyears_chkpt = 1 )
51 parameter (nmonths_chkpt = 12 )
52 parameter (ndays_chkpt = 31 )
53 parameter (ngeom_chkpt = nr*nsx*nsy )
54 parameter (ncheck_chkpt = 6 )
55 parameter ( nthreads_chkpt = 1 )
56
57 #ifdef ALLOW_TAMC_CHECKPOINTING
58
59 integer nchklev_1
60 parameter( nchklev_1 = 5 )
61 integer nchklev_2
62 parameter( nchklev_2 = 90 )
63 c parameter( nchklev_2 = 150 )
64 integer nchklev_3
65 parameter( nchklev_3 = 3 )
66 c parameter( nchklev_3 = 150 )
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 = 8 )
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