1 |
|
|
2 |
c ================================================================== |
c ================================================================ |
3 |
c HEADER TAMC |
c HEADER TAMC |
4 |
c ================================================================== |
c ================================================================ |
5 |
c |
c |
6 |
c o Header for the use of the Tangent Linear and Adjoint Model |
c o Header for the use of the Tangent Linear and Adjoint Model |
7 |
c Compiler (TAMC). |
c Compiler (TAMC). |
14 |
c - nhreads_chkpt was declared at the wrong place |
c - nhreads_chkpt was declared at the wrong place |
15 |
c |
c |
16 |
c |
c |
17 |
c ================================================================== |
c ================================================================ |
18 |
c HEADER TAMC |
c HEADER TAMC |
19 |
c ================================================================== |
c ================================================================ |
20 |
|
|
21 |
|
|
22 |
c TAMC checkpointing parameters: |
c TAMC checkpointing parameters: |
55 |
parameter ( nthreads_chkpt = 1 ) |
parameter ( nthreads_chkpt = 1 ) |
56 |
|
|
57 |
#ifdef ALLOW_TAMC_CHECKPOINTING |
#ifdef ALLOW_TAMC_CHECKPOINTING |
|
#ifdef ALLOW_YMDS_TREE |
|
|
|
|
|
integer nchklev_1 |
|
|
integer nchklev_2 |
|
|
integer nchklev_3 |
|
|
|
|
|
parameter( nchklev_1 = 4 ) |
|
|
parameter( nchklev_2 = 6 ) |
|
|
parameter( nchklev_3 = 1 ) |
|
|
|
|
|
ce --> Set lengths of common blocks. |
|
|
ce e.g. parameter( nklev3_1 = nsx*nsy ) for common /comlev3_1/ |
|
|
ce parameter( nklev3_2 = nsx*nsy*nr ) for common /comlev3_2/ |
|
|
ce etc. |
|
|
#else /* ALLOW_YMDS_TREE undefined */ |
|
58 |
|
|
59 |
integer nchklev_1 |
integer nchklev_1 |
60 |
parameter( nchklev_1 = 24 ) |
parameter( nchklev_1 = 36 ) |
61 |
integer nchklev_2 |
integer nchklev_2 |
62 |
parameter( nchklev_2 = 30 ) |
parameter( nchklev_2 = 30 ) |
63 |
integer nchklev_3 |
integer nchklev_3 |
64 |
parameter( nchklev_3 = 12 ) |
parameter( nchklev_3 = 60 ) |
65 |
|
|
66 |
c-- Note always check for the correct sizes of the common blocks! |
c-- Note always check for the correct sizes of the common blocks! |
67 |
|
|
|
#endif /* ALLOW_YMDS_TREE */ |
|
|
|
|
68 |
#else /* ALLOW_TAMC_CHECKPOINTING undefined */ |
#else /* ALLOW_TAMC_CHECKPOINTING undefined */ |
69 |
|
|
70 |
integer nchklev_0 |
integer nchklev_0 |
71 |
parameter( nchklev_0 = 48 ) |
parameter( nchklev_0 = 64800 ) |
72 |
|
|
73 |
#endif /* ALLOW_TAMC_CHECKPOINTING */ |
#endif /* ALLOW_TAMC_CHECKPOINTING */ |
74 |
|
|
101 |
PARAMETER( isbyte = 4 ) |
PARAMETER( isbyte = 4 ) |
102 |
INTEGER maximpl |
INTEGER maximpl |
103 |
PARAMETER( maximpl = 6 ) |
PARAMETER( maximpl = 6 ) |
104 |
|
INTEGER maxpass |
105 |
|
PARAMETER( maxpass = 3 ) |
106 |
|
|
107 |
INTEGER act1, act2, act3, act4 |
INTEGER act1, act2, act3, act4 |
108 |
INTEGER max1, max2, max3 |
INTEGER max1, max2, max3 |
109 |
INTEGER iikey, kkey |
INTEGER iikey, kkey, passkey |
110 |
|
|
111 |
c ================================================================== |
c ================================================================ |
112 |
c END OF HEADER TAMC |
c END OF HEADER TAMC |
113 |
c ================================================================== |
c ================================================================ |
114 |
|
|
115 |
|
|