/[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.3 - (hide annotations) (download)
Fri Mar 21 23:18:27 2003 UTC (21 years, 2 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint57m_post, checkpoint52l_pre, checkpoint57g_pre, checkpoint50c_post, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint57g_post, checkpoint56b_post, checkpoint50c_pre, checkpoint57y_post, checkpoint52j_pre, checkpoint51o_pre, checkpoint54d_post, checkpoint54e_post, checkpoint51l_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint50d_pre, checkpoint52k_post, checkpoint59, checkpoint58, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint51, checkpoint53, checkpoint52, checkpoint50d_post, checkpoint58f_post, checkpoint52f_post, checkpoint58d_post, checkpoint58a_post, checkpoint50b_pre, checkpoint57z_post, checkpoint54f_post, checkpoint51f_post, checkpoint58y_post, checkpoint51d_post, checkpoint51t_post, checkpoint58t_post, checkpoint51n_post, checkpoint55i_post, checkpoint58m_post, checkpoint57l_post, checkpoint52i_pre, checkpoint51s_post, checkpoint57t_post, checkpoint55c_post, checkpoint51j_post, checkpoint52e_pre, checkpoint57v_post, checkpoint57f_post, checkpoint52e_post, checkpoint51n_pre, checkpoint53d_post, checkpoint57a_post, checkpoint57h_pre, checkpoint52b_pre, checkpoint54b_post, checkpoint58w_post, checkpoint57h_post, checkpoint51l_pre, checkpoint52m_post, checkpoint57y_pre, checkpoint55g_post, checkpoint51q_post, checkpoint51b_pre, checkpoint52b_post, checkpoint52c_post, checkpoint51h_pre, checkpoint58o_post, checkpoint52h_pre, checkpoint57c_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint58p_post, checkpoint58q_post, checkpoint52f_pre, checkpoint55d_post, checkpoint58e_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, branchpoint-genmake2, checkpoint54a_post, checkpoint55h_post, checkpoint58n_post, checkpoint51r_post, checkpoint51i_post, checkpoint57e_post, checkpoint55b_post, checkpoint51b_post, checkpoint51c_post, checkpoint53a_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59h, checkpoint52d_post, checkpoint53g_post, checkpoint57p_post, checkpint57u_post, checkpoint50g_post, checkpoint57q_post, eckpoint57e_pre, checkpoint58k_post, checkpoint52a_pre, checkpoint58v_post, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint56a_post, checkpoint58l_post, checkpoint53f_post, checkpoint57h_done, checkpoint52j_post, checkpoint50e_post, checkpoint57j_post, checkpoint57f_pre, checkpoint58g_post, branch-netcdf, checkpoint52l_post, checkpoint58x_post, checkpoint52n_post, checkpoint53b_pre, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint51e_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint51o_post, checkpoint57k_post, checkpoint51f_pre, checkpoint53b_post, checkpoint52a_post, checkpoint57w_post, checkpoint58i_post, checkpoint51g_post, ecco_c52_e35, checkpoint57x_post, checkpoint50b_post, checkpoint58c_post, checkpoint58u_post, checkpoint51m_post, checkpoint53d_pre, checkpoint58s_post, checkpoint55e_post, checkpoint54c_post, checkpoint51a_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-genmake2, branch-nonh, tg2-branch, netcdf-sm0, checkpoint51n_branch
Changes since 1.2: +11 -5 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 heimbach 1.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 heimbach 1.3 parameter( nchklev_1 = 5 )
61 heimbach 1.1 integer nchklev_2
62 heimbach 1.3 parameter( nchklev_2 = 2 )
63     c parameter( nchklev_2 = 150 )
64 heimbach 1.1 integer nchklev_3
65 heimbach 1.3 parameter( nchklev_3 = 3 )
66     c parameter( nchklev_3 = 150 )
67 heimbach 1.1
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 heimbach 1.3 PARAMETER( isbyte = 8 )
104 heimbach 1.1 INTEGER maximpl
105 heimbach 1.2 PARAMETER( maximpl = 6 )
106 heimbach 1.1 INTEGER maxpass
107 heimbach 1.3 #ifdef ALLOW_PASSIVE_TRACER
108 heimbach 1.2 PARAMETER( maxpass = 3 )
109 heimbach 1.3 #else
110     PARAMETER( maxpass = 2 )
111     #endif
112 heimbach 1.2 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 heimbach 1.3 & itdkey, idynkey, igmkey, ikppkey
119 heimbach 1.1
120     c ================================================================
121     c END OF HEADER TAMC
122     c ================================================================
123    
124    
  ViewVC Help
Powered by ViewVC 1.1.22