hs94.1x64x5/code_ad/tamc.h


c     ================================================================
c     HEADER TAMC
c     ================================================================
c
c     o Header for the use of the Tangent Linear and Adjoint Model
c       Compiler (TAMC).
c
c     started: Christian Eckert eckert@mit.edu  04-Feb-1999
c
c     changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
c              - New parameter nlevchk_0 for dimensionalising
c                common blocks in the undef ALLOW_TAMC_CHECKPOINTING case
c              - nhreads_chkpt was declared at the wrong place
c
c
c     ================================================================
c     HEADER TAMC
c     ================================================================


c     TAMC checkpointing parameters:
c     ==============================
c
c     The checkpointing parameters have to be consistent with other model
c     parameters and variables. This has to be checked before the model is
c     run.
c
c     nyears_chkpt   - Number of calendar years affected by the assimilation
c                      experiment; nyears_chkpt has to be at least equal to
c                      the result of cal_IntYears(mythid).
c     nmonths_chkpt  - Number of months per year; nmonth_chkpt has to be at
c                      least equal to nmonthyear.
c     ndays_chkpt    - Number of days per month; nday_chkpt has to be at least
c                      equal to nmaxdaymonth.
c     nsteps_chkpt   - Number of steps per day; nsteps_chkpt has to be at
c                      least equal to cal_nStepDay(mythid)
c     ncheck_chkpt   - Number of innermost checkpoints.
c
c     ngeom_chkpt    - Geometry factor.
c     nthreads_chkpt - Number of threads to be used; nth_chkpt .eq. nTx*nTy

      integer nyears_chkpt
      integer nmonths_chkpt
      integer ndays_chkpt
      integer ngeom_chkpt
      integer ncheck_chkpt
      integer nthreads_chkpt

      parameter (nyears_chkpt   =          1 )
      parameter (nmonths_chkpt  =         12 )
      parameter (ndays_chkpt    =         31 )
      parameter (ngeom_chkpt    = nr*nsx*nsy )
      parameter (ncheck_chkpt   =          6 )
      parameter ( nthreads_chkpt = 1 )

#ifdef ALLOW_TAMC_CHECKPOINTING

      integer    nchklev_1
      parameter( nchklev_1      =  36 )
      integer    nchklev_2
      parameter( nchklev_2      =  30 )
      integer    nchklev_3
      parameter( nchklev_3      =  60 )

c--   Note always check for the correct sizes of the common blocks!

#else /* ALLOW_TAMC_CHECKPOINTING undefined */

      integer    nchklev_0
      parameter( nchklev_0      =  64800 )

#endif /* ALLOW_TAMC_CHECKPOINTING */

c     TAMC keys:
c     ==========
c
c     The keys are used for storing and reading data of the reference
c     trajectory.
c
c     The convention used here is:
c                                    ikey_<name>
c
c     which means that this key is used in routine <name> for reading
c     and writing data.

      common /tamc_keys_i/
     &                     ikey_dynamics,
     &                     ikey_yearly,
     &                     ikey_daily_1,
     &                     ikey_daily_2,
     &                     iloop_daily

      integer ikey_dynamics
      integer ikey_yearly
      integer ikey_daily_1
      integer ikey_daily_2
      integer iloop_daily

      INTEGER    isbyte
      PARAMETER( isbyte = 8 )
      INTEGER    maximpl
      PARAMETER( maximpl = 6 )
      INTEGER    maxpass
#ifdef ALLOW_PASSIVE_TRACER
      PARAMETER( maxpass = 3 )
#else
      PARAMETER( maxpass = 2 )
#endif
      INTEGER    maxcube
      PARAMETER( maxcube     = 1 )


      INTEGER act0, act1, act2, act3, act4
      INTEGER max0, max1, max2, max3
      INTEGER iikey, kkey, passkey, igadkey, 
     &        itdkey, idynkey, igmkey, ikppkey

c     ================================================================
c     END OF HEADER TAMC
c     ================================================================


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 = nrnsxnsy )
54	parameter (ncheck_chkpt = 6 )
55	parameter ( nthreads_chkpt = 1 )
56
57	#ifdef ALLOW_TAMC_CHECKPOINTING
58
59	integer nchklev_1
60	parameter( nchklev_1 = 36 )
61	integer nchklev_2
62	parameter( nchklev_2 = 30 )
63	integer nchklev_3
64	parameter( nchklev_3 = 60 )
65
66	c-- Note always check for the correct sizes of the common blocks!
67
68	#else /* ALLOW_TAMC_CHECKPOINTING undefined */
69
70	integer nchklev_0
71	parameter( nchklev_0 = 64800 )
72
73	#endif /* ALLOW_TAMC_CHECKPOINTING */
74
75	c TAMC keys:
76	c ==========
77	c
78	c The keys are used for storing and reading data of the reference
79	c trajectory.
80	c
81	c The convention used here is:
82	c ikey_<name>
83	c
84	c which means that this key is used in routine <name> for reading
85	c and writing data.
86
87	common /tamc_keys_i/
88	& ikey_dynamics,
89	& ikey_yearly,
90	& ikey_daily_1,
91	& ikey_daily_2,
92	& iloop_daily
93
94	integer ikey_dynamics
95	integer ikey_yearly
96	integer ikey_daily_1
97	integer ikey_daily_2
98	integer iloop_daily
99
100	INTEGER isbyte
101	PARAMETER( isbyte = 8 )
102	INTEGER maximpl
103	PARAMETER( maximpl = 6 )
104	INTEGER maxpass
105	#ifdef ALLOW_PASSIVE_TRACER
106	PARAMETER( maxpass = 3 )
107	#else
108	PARAMETER( maxpass = 2 )
109	#endif
110	INTEGER maxcube
111	PARAMETER( maxcube = 1 )
112
113
114	INTEGER act0, act1, act2, act3, act4
115	INTEGER max0, max1, max2, max3
116	INTEGER iikey, kkey, passkey, igadkey,
117	& itdkey, idynkey, igmkey, ikppkey
118
119	c ================================================================
120	c END OF HEADER TAMC
121	c ================================================================
122
123