/[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.2 - (show annotations) (download)
Thu Nov 6 22:28:43 2003 UTC (17 years, 10 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint53f_post, checkpoint54a_pre, checkpoint55c_post, checkpoint53b_pre, checkpoint57o_post, checkpoint57m_post, checkpoint55e_post, checkpoint52l_pre, checkpoint52e_pre, checkpoint58e_post, checkpoint57v_post, checkpoint52n_post, checkpoint52j_post, checkpoint53d_post, checkpoint57f_post, checkpoint52e_post, checkpoint57s_post, checkpoint57j_post, checkpoint58b_post, checkpoint58m_post, checkpoint57b_post, checkpoint53c_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint58u_post, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint52j_pre, checkpoint54a_post, branch-netcdf, checkpoint52l_post, checkpoint55h_post, checkpoint58n_post, checkpoint58x_post, checkpoint52k_post, checkpoint52b_pre, checkpoint57g_pre, checkpoint54b_post, checkpoint58t_post, checkpoint58h_post, checkpoint57e_post, checkpoint58w_post, checkpoint54d_post, checkpoint56c_post, checkpoint54e_post, checkpoint58j_post, checkpoint55b_post, checkpoint57h_post, checkpoint52m_post, checkpoint57y_pre, checkpoint55, checkpoint53a_post, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint58q_post, checkpoint54f_post, checkpoint53b_post, checkpoint55g_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59h, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint53, checkpoint52, checkpoint52d_post, eckpoint57e_pre, checkpoint52a_post, checkpoint57h_done, checkpoint58f_post, checkpoint52b_post, checkpoint53g_post, checkpoint52f_post, checkpoint57n_post, checkpoint52c_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, ecco_c52_e35, checkpoint58o_post, checkpoint57z_post, checkpoint57c_post, checkpoint58y_post, checkpoint52a_pre, checkpoint58k_post, checkpoint52i_post, checkpoint58v_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint58s_post, checkpoint58p_post, checkpoint57h_pre, checkpoint57l_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint52f_pre, checkpoint56a_post, checkpoint55d_post
Branch point for: netcdf-sm0
Changes since 1.1: +122 -0 lines
File MIME type: text/plain
o merging from ecco-branch
o adding ECCO global 1x1 and 2x2 degree configs

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 = 24 )
61 integer nchklev_2
62 parameter( nchklev_2 = 60 )
63 integer nchklev_3
64 parameter( nchklev_3 = 24 )
65
66 c-- Note always check for the correct sizes of the common blocks!
67
68 #else /* ALLOW_TAMC_CHECKPOINTING undefined */
69
70 integer nchklev_0
71 parameter( nchklev_0 = 64800 )
72
73 #endif /* ALLOW_TAMC_CHECKPOINTING */
74
75 c TAMC keys:
76 c ==========
77 c
78 c The keys are used for storing and reading data of the reference
79 c trajectory.
80 c
81 c The convention used here is:
82 c ikey_<name>
83 c
84 c which means that this key is used in routine <name> for reading
85 c and writing data.
86
87 common /tamc_keys_i/
88 & ikey_dynamics,
89 & ikey_yearly,
90 & ikey_daily_1,
91 & ikey_daily_2,
92 & iloop_daily
93
94 integer ikey_dynamics
95 integer ikey_yearly
96 integer ikey_daily_1
97 integer ikey_daily_2
98 integer iloop_daily
99
100 INTEGER isbyte
101 PARAMETER( isbyte = 4 )
102 INTEGER maximpl
103 PARAMETER( maximpl = 6 )
104 INTEGER maxpass
105 #ifdef ALLOW_PASSIVE_TRACER
106 PARAMETER( maxpass = 3 )
107 #else
108 PARAMETER( maxpass = 2 )
109 #endif
110 INTEGER maxcube
111 PARAMETER( maxcube = 1 )
112
113 INTEGER act0, act1, act2, act3, act4
114 INTEGER max0, max1, max2, max3
115 INTEGER iikey, kkey, passkey, igadkey,
116 & itdkey, idynkey, igmkey, ikppkey
117
118 c ================================================================
119 c END OF HEADER TAMC
120 c ================================================================
121
122

  ViewVC Help
Powered by ViewVC 1.1.22