/[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.1.2.1 - (hide annotations) (download)
Thu Apr 4 12:05:47 2002 UTC (20 years, 2 months ago) by heimbach
Branch: ecco-branch
CVS Tags: icebear2, ecco_c44_e23, ecco_c44_e26, ecco_c44_e27, ecco_c44_e24, icebear3, ecco_c50_e28, ecco_c50_e29, ecco_ice2, ecco_ice1, ecco_c50_e30, ecco_c44_e25, icebear5, icebear4
Branch point for: c24_e25_ice, icebear
Changes since 1.1: +132 -0 lines
File MIME type: text/plain
Adding global 2x2 deg. configuration to repository.

1 heimbach 1.1.2.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     #ifdef ALLOW_YMDS_TREE
59    
60     integer nchklev_1
61     integer nchklev_2
62     integer nchklev_3
63    
64     parameter( nchklev_1 = 4 )
65     parameter( nchklev_2 = 6 )
66     parameter( nchklev_3 = 1 )
67    
68     ce --> Set lengths of common blocks.
69     ce e.g. parameter( nklev3_1 = nsx*nsy ) for common /comlev3_1/
70     ce parameter( nklev3_2 = nsx*nsy*nr ) for common /comlev3_2/
71     ce etc.
72     #else /* ALLOW_YMDS_TREE undefined */
73    
74     integer nchklev_1
75     parameter( nchklev_1 = 28 )
76     integer nchklev_2
77     parameter( nchklev_2 = 28 )
78     integer nchklev_3
79     parameter( nchklev_3 = 72 )
80    
81     c-- Note always check for the correct sizes of the common blocks!
82    
83     #endif /* ALLOW_YMDS_TREE */
84    
85     #else /* ALLOW_TAMC_CHECKPOINTING undefined */
86    
87     integer nchklev_0
88     parameter( nchklev_0 = 48 )
89    
90     #endif /* ALLOW_TAMC_CHECKPOINTING */
91    
92     c TAMC keys:
93     c ==========
94     c
95     c The keys are used for storing and reading data of the reference
96     c trajectory.
97     c
98     c The convention used here is:
99     c ikey_<name>
100     c
101     c which means that this key is used in routine <name> for reading
102     c and writing data.
103    
104     common /tamc_keys_i/
105     & ikey_dynamics,
106     & ikey_yearly,
107     & ikey_daily_1,
108     & ikey_daily_2,
109     & iloop_daily
110    
111     integer ikey_dynamics
112     integer ikey_yearly
113     integer ikey_daily_1
114     integer ikey_daily_2
115     integer iloop_daily
116    
117     INTEGER isbyte
118     PARAMETER( isbyte = 4 )
119     INTEGER maximpl
120     PARAMETER( maximpl = 6 )
121     INTEGER maxpass
122     PARAMETER( maxpass = 3 )
123    
124     INTEGER act1, act2, act3, act4
125     INTEGER max1, max2, max3
126     INTEGER iikey, kkey, passkey
127    
128     c ==================================================================
129     c END OF HEADER TAMC
130     c ==================================================================
131    
132    

  ViewVC Help
Powered by ViewVC 1.1.22