/[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.2.1 by heimbach, Thu Apr 4 12:05:47 2002 UTC revision 1.1.2.2 by heimbach, Mon May 12 19:58:38 2003 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      =  28 )        parameter( nchklev_1      =   24 )
61        integer    nchklev_2        integer    nchklev_2
62        parameter( nchklev_2      =  28 )        parameter( nchklev_2      =   60 )
63        integer    nchklev_3        integer    nchklev_3
64        parameter( nchklev_3      =  72 )        parameter( nchklev_3      =   24 )
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 115  c     and writing data. Line 98  c     and writing data.
98        integer iloop_daily        integer iloop_daily
99    
100        INTEGER    isbyte        INTEGER    isbyte
101        PARAMETER( isbyte = 4 )        PARAMETER( isbyte      = 4 )
102        INTEGER    maximpl        INTEGER    maximpl
103        PARAMETER( maximpl = 6 )        PARAMETER( maximpl     = 6 )
104        INTEGER    maxpass        INTEGER    maxpass
105        PARAMETER( maxpass = 3 )  #ifdef ALLOW_PASSIVE_TRACER
106          PARAMETER( maxpass     = 3 )
107        INTEGER act1, act2, act3, act4  #else
108        INTEGER max1, max2, max3        PARAMETER( maxpass     = 2 )
109        INTEGER iikey, kkey, passkey  #endif
110          INTEGER    maxcube
111          PARAMETER( maxcube     = 1 )
112    
113          INTEGER act0, act1, act2, act3, act4
114          INTEGER max0, max1, max2, max3
115          INTEGER iikey, kkey, passkey, igadkey,
116         &        itdkey, idynkey, igmkey, ikppkey
117    
118  c     ==================================================================  c     ================================================================
119  c     END OF HEADER TAMC  c     END OF HEADER TAMC
120  c     ==================================================================  c     ================================================================
121    
122    

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

  ViewVC Help
Powered by ViewVC 1.1.22