/[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.1.2.1 - (show 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
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