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

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

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

revision 1.1 by heimbach, Thu Apr 4 12:05:47 2002 UTC revision 1.1.2.1 by heimbach, Thu Apr 4 12:05:47 2002 UTC
# Line 0  Line 1 
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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.2.1

  ViewVC Help
Powered by ViewVC 1.1.22