/[MITgcm]/MITgcm/verification/carbon/code_ad/tamc.h
ViewVC logotype

Contents of /MITgcm/verification/carbon/code_ad/tamc.h

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


Revision 1.9 - (show annotations) (download)
Fri Apr 21 18:54:31 2006 UTC (16 years, 2 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
Changes since 1.8: +1 -1 lines
File MIME type: text/plain
FILE REMOVED
exp. carbon has been moved to verification/tutorial_tracer_adjsens

1 C $Header: /u/gcmpack/MITgcm/verification/carbon/code_ad/tamc.h,v 1.8 2006/02/16 15:39:37 heimbach Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5
6 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 c - new keys, separate for different packages
19
20 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 parameter( nchklev_1 = 5 )
64 integer nchklev_2
65 #ifdef AUTODIFF_2_LEVEL_CHECKPOINT
66 parameter( nchklev_2 = 6 )
67 #else
68 parameter( nchklev_2 = 2 )
69 #endif
70 c parameter( nchklev_2 = 150 )
71 integer nchklev_3
72 parameter( nchklev_3 = 3 )
73 c parameter( nchklev_3 = 150 )
74
75 c-- Note always check for the correct sizes of the common blocks!
76
77 #else /* ALLOW_TAMC_CHECKPOINTING undefined */
78
79 integer nchklev_0
80 parameter( nchklev_0 = 64800 )
81
82 #endif /* ALLOW_TAMC_CHECKPOINTING */
83
84 c TAMC keys:
85 c ==========
86 c
87 c The keys are used for storing and reading data of the reference
88 c trajectory.
89 c
90 c The convention used here is:
91 c ikey_<name>
92 c
93 c which means that this key is used in routine <name> for reading
94 c and writing data.
95
96 common /tamc_keys_i/
97 & ikey_dynamics,
98 & ikey_yearly,
99 & ikey_daily_1,
100 & ikey_daily_2,
101 & iloop_daily
102
103 integer ikey_dynamics
104 integer ikey_yearly
105 integer ikey_daily_1
106 integer ikey_daily_2
107 integer iloop_daily
108
109 INTEGER isbyte
110 PARAMETER( isbyte = 8 )
111 INTEGER maximpl
112 PARAMETER( maximpl = 6 )
113 #ifdef ALLOW_PTRACERS
114 cph moved this to PTRACERS_SIZE.h
115 cph INTEGER maxpass
116 cph PARAMETER( maxpass = PTRACERS_num + 2 )
117 #else
118 INTEGER maxpass
119 PARAMETER( maxpass = 2 )
120 #endif
121 INTEGER maxcube
122 PARAMETER( maxcube = 1 )
123
124 INTEGER act0, act1, act2, act3, act4
125 INTEGER max0, max1, max2, max3
126 INTEGER iikey, kkey, passkey, igadkey,
127 & itdkey, idynkey, igmkey, ikppkey
128
129 c ================================================================
130 c END OF HEADER TAMC
131 c ================================================================
132
133

  ViewVC Help
Powered by ViewVC 1.1.22