60 |
#ifdef ALLOW_TAMC_CHECKPOINTING |
#ifdef ALLOW_TAMC_CHECKPOINTING |
61 |
|
|
62 |
integer nchklev_1 |
integer nchklev_1 |
63 |
parameter( nchklev_1 = 60 ) |
parameter( nchklev_1 = 1 ) |
64 |
integer nchklev_2 |
integer nchklev_2 |
65 |
parameter( nchklev_2 = 60 ) |
parameter( nchklev_2 = 50 ) |
66 |
integer nchklev_3 |
integer nchklev_3 |
67 |
parameter( nchklev_3 = 40 ) |
parameter( nchklev_3 = 50 ) |
68 |
|
|
69 |
c-- Note always check for the correct sizes of the common blocks! |
c-- Note always check for the correct sizes of the common blocks! |
70 |
|
|
115 |
cph PARAMETER( maxpass = PTRACERS_num + 2 ) |
cph PARAMETER( maxpass = PTRACERS_num + 2 ) |
116 |
#else |
#else |
117 |
INTEGER maxpass |
INTEGER maxpass |
118 |
PARAMETER( maxpass = 3 ) |
PARAMETER( maxpass = 6 ) |
119 |
#endif |
#endif |
120 |
INTEGER maxcube |
INTEGER maxcube |
121 |
PARAMETER( maxcube = 3 ) |
PARAMETER( maxcube = 3 ) |