57 |
#ifdef ALLOW_TAMC_CHECKPOINTING |
#ifdef ALLOW_TAMC_CHECKPOINTING |
58 |
|
|
59 |
integer nchklev_1 |
integer nchklev_1 |
60 |
parameter( nchklev_1 = 9 ) |
parameter( nchklev_1 = 5 ) |
61 |
integer nchklev_2 |
integer nchklev_2 |
62 |
parameter( nchklev_2 = 90 ) |
parameter( nchklev_2 = 90 ) |
63 |
|
c parameter( nchklev_2 = 150 ) |
64 |
integer nchklev_3 |
integer nchklev_3 |
65 |
parameter( nchklev_3 = 90 ) |
parameter( nchklev_3 = 3 ) |
66 |
|
c parameter( nchklev_3 = 150 ) |
67 |
|
|
68 |
c-- Note always check for the correct sizes of the common blocks! |
c-- Note always check for the correct sizes of the common blocks! |
69 |
|
|
104 |
INTEGER maximpl |
INTEGER maximpl |
105 |
PARAMETER( maximpl = 6 ) |
PARAMETER( maximpl = 6 ) |
106 |
INTEGER maxpass |
INTEGER maxpass |
107 |
|
#ifdef ALLOW_PASSIVE_TRACER |
108 |
PARAMETER( maxpass = 3 ) |
PARAMETER( maxpass = 3 ) |
109 |
|
#else |
110 |
|
PARAMETER( maxpass = 2 ) |
111 |
|
#endif |
112 |
INTEGER maxcube |
INTEGER maxcube |
113 |
PARAMETER( maxcube = 1 ) |
PARAMETER( maxcube = 1 ) |
114 |
|
|
115 |
INTEGER act0, act1, act2, act3, act4 |
INTEGER act0, act1, act2, act3, act4 |
116 |
INTEGER max0, max1, max2, max3 |
INTEGER max0, max1, max2, max3 |
117 |
INTEGER iikey, kkey, passkey, igadkey, |
INTEGER iikey, kkey, passkey, igadkey, |
118 |
& itdkey, idynkey, igmkey |
& itdkey, idynkey, igmkey, ikppkey |
119 |
|
|
120 |
c ================================================================ |
c ================================================================ |
121 |
c END OF HEADER TAMC |
c END OF HEADER TAMC |