/[MITgcm]/MITgcm/pkg/autodiff/tamc.h
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/tamc.h

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

revision 1.1 by heimbach, Sun Mar 25 22:33:54 2001 UTC revision 1.2 by heimbach, Thu Sep 27 20:12:11 2001 UTC
# Line 1  Line 1 
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).
# Line 14  c                common blocks in the un Line 14  c                common blocks in the un
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:
# Line 55  c     nthreads_chkpt - Number of threads Line 55  c     nthreads_chkpt - Number of threads
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    
# Line 118  c     and writing data. Line 101  c     and writing data.
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22