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

Annotation 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.13 - (hide annotations) (download)
Wed Aug 10 03:37:57 2005 UTC (18 years, 9 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57s_post, checkpoint58b_post, checkpoint57y_post, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint58f_post, checkpoint58d_post, checkpoint58a_post, checkpoint57z_post, checkpoint58y_post, checkpoint58t_post, checkpoint58m_post, checkpoint57t_post, checkpoint57v_post, checkpoint60, checkpoint61, checkpoint58w_post, checkpoint57y_pre, checkpoint58o_post, checkpoint58p_post, checkpoint58q_post, checkpoint58e_post, checkpoint58r_post, checkpoint58n_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpint57u_post, checkpoint57q_post, checkpoint58k_post, checkpoint58v_post, checkpoint58l_post, checkpoint61f, checkpoint58g_post, checkpoint58x_post, checkpoint58h_post, checkpoint58j_post, checkpoint57w_post, checkpoint61e, checkpoint58i_post, checkpoint57x_post, checkpoint58c_post, checkpoint58u_post, checkpoint58s_post, checkpoint61g, checkpoint61d, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61h, checkpoint61i
Changes since 1.12: +4 -4 lines
File MIME type: text/plain 
Changed some tests for adjoint:
o carbon/ now tests 2_LEVEL_CHECKPOINTING
o natl_box_adjoint/code_bulk/ tests 4_LEVEL_CHECKPOINTING
o global_ocean.90x40x15/ back to default 3-level checkpointing
1 heimbach 1.13 C $Header: /u/gcmpack/MITgcm/verification/global_ocean.90x40x15/code_ad/tamc.h,v 1.12 2004/10/08 17:25:37 heimbach Exp $
2 heimbach 1.9 C $Name: $
3 heimbach 1.2
4 heimbach 1.7 #include "PACKAGES_CONFIG.h"
5    
6 heimbach 1.2 c ================================================================
7     c HEADER TAMC
8     c ================================================================
9     c
10     c o Header for the use of the Tangent Linear and Adjoint Model
11     c Compiler (TAMC).
12     c
13     c started: Christian Eckert eckert@mit.edu 04-Feb-1999
14     c changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
15     c - New parameter nlevchk_0 for dimensionalising
16     c common blocks in the undef ALLOW_TAMC_CHECKPOINTING case
17     c - nhreads_chkpt was declared at the wrong place
18 heimbach 1.7 c - new keys, separate for different packages
19    
20 heimbach 1.2 c ================================================================
21     c HEADER TAMC
22     c ================================================================
23    
24    
25     c TAMC checkpointing parameters:
26     c ==============================
27     c
28     c The checkpointing parameters have to be consistent with other model
29     c parameters and variables. This has to be checked before the model is
30     c run.
31     c
32     c nyears_chkpt - Number of calendar years affected by the assimilation
33     c experiment; nyears_chkpt has to be at least equal to
34     c the result of cal_IntYears(mythid).
35     c nmonths_chkpt - Number of months per year; nmonth_chkpt has to be at
36     c least equal to nmonthyear.
37     c ndays_chkpt - Number of days per month; nday_chkpt has to be at least
38     c equal to nmaxdaymonth.
39     c nsteps_chkpt - Number of steps per day; nsteps_chkpt has to be at
40     c least equal to cal_nStepDay(mythid)
41     c ncheck_chkpt - Number of innermost checkpoints.
42     c
43     c ngeom_chkpt - Geometry factor.
44     c nthreads_chkpt - Number of threads to be used; nth_chkpt .eq. nTx*nTy
45    
46     integer nyears_chkpt
47     integer nmonths_chkpt
48     integer ndays_chkpt
49     integer ngeom_chkpt
50     integer ncheck_chkpt
51     integer nthreads_chkpt
52    
53     parameter (nyears_chkpt = 1 )
54     parameter (nmonths_chkpt = 12 )
55     parameter (ndays_chkpt = 31 )
56     parameter (ngeom_chkpt = nr*nsx*nsy )
57     parameter (ncheck_chkpt = 6 )
58     parameter ( nthreads_chkpt = 1 )
59    
60     #ifdef ALLOW_TAMC_CHECKPOINTING
61    
62     integer nchklev_1
63 heimbach 1.11 parameter( nchklev_1 = 3 )
64 heimbach 1.2 integer nchklev_2
65 heimbach 1.13 parameter( nchklev_2 = 120 )
66     integer nchklev_3
67     parameter( nchklev_3 = 60 )
68 heimbach 1.2
69     c-- Note always check for the correct sizes of the common blocks!
70    
71     #else /* ALLOW_TAMC_CHECKPOINTING undefined */
72    
73     integer nchklev_0
74     parameter( nchklev_0 = 64800 )
75    
76     #endif /* ALLOW_TAMC_CHECKPOINTING */
77    
78     c TAMC keys:
79     c ==========
80     c
81     c The keys are used for storing and reading data of the reference
82     c trajectory.
83     c
84     c The convention used here is:
85     c ikey_<name>
86     c
87     c which means that this key is used in routine <name> for reading
88     c and writing data.
89    
90     common /tamc_keys_i/
91     & ikey_dynamics,
92     & ikey_yearly,
93     & ikey_daily_1,
94     & ikey_daily_2,
95     & iloop_daily
96    
97     integer ikey_dynamics
98     integer ikey_yearly
99     integer ikey_daily_1
100     integer ikey_daily_2
101     integer iloop_daily
102    
103     INTEGER isbyte
104 heimbach 1.5 PARAMETER( isbyte = 8 )
105 heimbach 1.2 INTEGER maximpl
106 heimbach 1.3 PARAMETER( maximpl = 6 )
107 heimbach 1.7 #ifdef ALLOW_PTRACERS
108 heimbach 1.9 cph moved this to PTRACERS_SIZE.h
109     cph INTEGER maxpass
110     cph PARAMETER( maxpass = PTRACERS_num + 2 )
111 heimbach 1.7 #else
112 heimbach 1.9 INTEGER maxpass
113 heimbach 1.6 PARAMETER( maxpass = 2 )
114     #endif
115 heimbach 1.3 INTEGER maxcube
116     PARAMETER( maxcube = 1 )
117 heimbach 1.2
118 heimbach 1.3 INTEGER act0, act1, act2, act3, act4
119     INTEGER max0, max1, max2, max3
120 heimbach 1.4 INTEGER iikey, kkey, passkey, igadkey,
121 heimbach 1.7 & itdkey, idynkey, igmkey, ikppkey, iptrkey
122 heimbach 1.2
123     c ================================================================
124     c END OF HEADER TAMC
125     c ================================================================
126    
127    
  ViewVC Help
Powered by ViewVC 1.1.22