aste_270x450x180/code_ad/tamc.h

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/tamc.h,v 1.10 2011/12/02 18:43:03 heimbach Exp $
C $Name:  $

#include "PACKAGES_CONFIG.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
      integer    nchklev_2
      integer    nchklev_3
C==== 5 years ------------------------------------------
c change to this for 5-yr run: 2.4GB/node for neh
c      parameter( nchklev_1      =  20 )
c      parameter( nchklev_2      =  84 )
c      parameter( nchklev_3      =  84 )
c change to this for 5-yr run: 2.7GB/node for ivybridge
c      parameter( nchklev_1      =  22 )
c      parameter( nchklev_2      =  80 )
c      parameter( nchklev_3      =  80 )
c change to this for 5-yr run: 3.GB/node for ivybridge
C      parameter( nchklev_1      =  24 )
C      parameter( nchklev_2      =  77 )
C      parameter( nchklev_3      =  77 )
C==== 20 years ------------------------------------------
c change to this for 20-yr run: 2.4GB/node for neh
c      parameter( nchklev_1      =  20 )
c      parameter( nchklev_2      =  163 )
c      parameter( nchklev_3      =  163 )
c change to this for 20-yr run: 2.7GB/node for ivybridge
c      parameter( nchklev_1      =  22 )
c      parameter( nchklev_2      =  155 )
c      parameter( nchklev_3      =  155 )
c change to this for 20-yr run: 3.GB/node for ivybridge
      parameter( nchklev_1      =  24 )
      parameter( nchklev_2      =  148 )
      parameter( nchklev_3      =  148 )
c  change to these values for very short test runs:
cph      parameter( nchklev_1      =  24 )
cph      parameter( nchklev_2      =  4 )
cph      parameter( nchklev_3      =  3 )

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

#else /* ALLOW_TAMC_CHECKPOINTING undefined */

      integer    nchklev_0
      parameter( nchklev_0      =  48 )
      integer    nchklev_1
      parameter( nchklev_1      =    5 )

#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      = 4 )
      INTEGER    maximpl
      PARAMETER( maximpl     = 6 )
      INTEGER    maxpass
      PARAMETER( maxpass     = 6 )
      INTEGER    maxcube
      PARAMETER( maxcube     = 3 )

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

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

1	atn	1.2	C $Header: /u/gcmpack/MITgcm/pkg/autodiff/tamc.h,v 1.10 2011/12/02 18:43:03 heimbach Exp $
2	atn	1.1	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
15			c changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
16			c - New parameter nlevchk_0 for dimensionalising
17			c common blocks in the undef ALLOW_TAMC_CHECKPOINTING case
18			c - nhreads_chkpt was declared at the wrong place
19			c
20			c
21			c ==================================================================
22			c HEADER TAMC
23			c ==================================================================
24
25
26			c TAMC checkpointing parameters:
27			c ==============================
28			c
29			c The checkpointing parameters have to be consistent with other model
30			c parameters and variables. This has to be checked before the model is
31			c run.
32			c
33			c nyears_chkpt - Number of calendar years affected by the assimilation
34			c experiment; nyears_chkpt has to be at least equal to
35			c the result of cal_IntYears(mythid).
36			c nmonths_chkpt - Number of months per year; nmonth_chkpt has to be at
37			c least equal to nmonthyear.
38			c ndays_chkpt - Number of days per month; nday_chkpt has to be at least
39			c equal to nmaxdaymonth.
40			c nsteps_chkpt - Number of steps per day; nsteps_chkpt has to be at
41			c least equal to cal_nStepDay(mythid)
42			c ncheck_chkpt - Number of innermost checkpoints.
43			c
44			c ngeom_chkpt - Geometry factor.
45			c nthreads_chkpt - Number of threads to be used; nth_chkpt .eq. nTx*nTy
46
47			integer nyears_chkpt
48			integer nmonths_chkpt
49			integer ndays_chkpt
50			integer ngeom_chkpt
51			integer ncheck_chkpt
52			integer nthreads_chkpt
53
54			parameter (nyears_chkpt = 1 )
55			parameter (nmonths_chkpt = 12 )
56			parameter (ndays_chkpt = 31 )
57			parameter (ngeom_chkpt = nrnsxnsy )
58			parameter (ncheck_chkpt = 6 )
59			parameter ( nthreads_chkpt = 1 )
60
61			#ifdef ALLOW_TAMC_CHECKPOINTING
62
63			integer nchklev_1
64			integer nchklev_2
65			integer nchklev_3
66	atn	1.2	C==== 5 years ------------------------------------------
67			c change to this for 5-yr run: 2.4GB/node for neh
68			c parameter( nchklev_1 = 20 )
69			c parameter( nchklev_2 = 84 )
70			c parameter( nchklev_3 = 84 )
71			c change to this for 5-yr run: 2.7GB/node for ivybridge
72	atn	1.1	c parameter( nchklev_1 = 22 )
73			c parameter( nchklev_2 = 80 )
74			c parameter( nchklev_3 = 80 )
75	atn	1.2	c change to this for 5-yr run: 3.GB/node for ivybridge
76			C parameter( nchklev_1 = 24 )
77			C parameter( nchklev_2 = 77 )
78			C parameter( nchklev_3 = 77 )
79			C==== 20 years ------------------------------------------
80			c change to this for 20-yr run: 2.4GB/node for neh
81			c parameter( nchklev_1 = 20 )
82			c parameter( nchklev_2 = 163 )
83			c parameter( nchklev_3 = 163 )
84			c change to this for 20-yr run: 2.7GB/node for ivybridge
85			c parameter( nchklev_1 = 22 )
86			c parameter( nchklev_2 = 155 )
87			c parameter( nchklev_3 = 155 )
88			c change to this for 20-yr run: 3.GB/node for ivybridge
89			parameter( nchklev_1 = 24 )
90			parameter( nchklev_2 = 148 )
91			parameter( nchklev_3 = 148 )
92	atn	1.1	c change to these values for very short test runs:
93			cph parameter( nchklev_1 = 24 )
94			cph parameter( nchklev_2 = 4 )
95			cph parameter( nchklev_3 = 3 )
96
97			c-- Note always check for the correct sizes of the common blocks!
98
99			#else /* ALLOW_TAMC_CHECKPOINTING undefined */
100
101			integer nchklev_0
102			parameter( nchklev_0 = 48 )
103			integer nchklev_1
104			parameter( nchklev_1 = 5 )
105
106			#endif /* ALLOW_TAMC_CHECKPOINTING */
107
108			c TAMC keys:
109			c ==========
110			c
111			c The keys are used for storing and reading data of the reference
112			c trajectory.
113			c
114			c The convention used here is:
115			c ikey_<name>
116			c
117			c which means that this key is used in routine <name> for reading
118			c and writing data.
119
120			common /tamc_keys_i/
121			& ikey_dynamics,
122			& ikey_yearly,
123			& ikey_daily_1,
124			& ikey_daily_2,
125			& iloop_daily
126
127			integer ikey_dynamics
128			integer ikey_yearly
129			integer ikey_daily_1
130			integer ikey_daily_2
131			integer iloop_daily
132
133			INTEGER isbyte
134			PARAMETER( isbyte = 4 )
135			INTEGER maximpl
136			PARAMETER( maximpl = 6 )
137			INTEGER maxpass
138			PARAMETER( maxpass = 6 )
139			INTEGER maxcube
140			PARAMETER( maxcube = 3 )
141
142			INTEGER act0, act1, act2, act3, act4
143			INTEGER max0, max1, max2, max3
144			INTEGER iikey, kkey, passkey, igadkey,
145			& itdkey, idynkey, igmkey
146
147			c ==================================================================
148			c END OF HEADER TAMC
149			c ==================================================================
150