/[MITgcm]/MITgcm/verification/global2x2_tot/code/tamc.h
ViewVC logotype

Annotation of /MITgcm/verification/global2x2_tot/code/tamc.h

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


Revision 1.4 - (hide annotations) (download)
Sat Feb 4 02:59:01 2012 UTC (10 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +1 -1 lines
File MIME type: text/plain
FILE REMOVED
move global2x2_tot un-tested set-up to MITgcm_contrib/verification_other/global2x2_tot/

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