/[MITgcm]/MITgcm/verification/global_ocean.90x40x15/code_ad/tamc.h
ViewVC logotype

Diff of /MITgcm/verification/global_ocean.90x40x15/code_ad/tamc.h

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

revision 1.6 by heimbach, Fri Mar 21 23:18:27 2003 UTC revision 1.8 by heimbach, Wed Feb 18 22:21:33 2004 UTC
# Line 1  Line 1 
1    
2    #include "PACKAGES_CONFIG.h"
3    
4    #ifdef ALLOW_PTRACERS
5    # include "PTRACERS_OPTIONS.h"
6    #endif
7    
8  c     ================================================================  c     ================================================================
9  c     HEADER TAMC  c     HEADER TAMC
10  c     ================================================================  c     ================================================================
# Line 7  c     o Header for the use of the Tangen Line 13  c     o Header for the use of the Tangen
13  c       Compiler (TAMC).  c       Compiler (TAMC).
14  c  c
15  c     started: Christian Eckert eckert@mit.edu  04-Feb-1999  c     started: Christian Eckert eckert@mit.edu  04-Feb-1999
 c  
16  c     changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000  c     changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
17  c              - New parameter nlevchk_0 for dimensionalising  c              - New parameter nlevchk_0 for dimensionalising
18  c                common blocks in the undef ALLOW_TAMC_CHECKPOINTING case  c                common blocks in the undef ALLOW_TAMC_CHECKPOINTING case
19  c              - nhreads_chkpt was declared at the wrong place  c              - nhreads_chkpt was declared at the wrong place
20  c  c              - new keys, separate for different packages
21  c  
22  c     ================================================================  c     ================================================================
23  c     HEADER TAMC  c     HEADER TAMC
24  c     ================================================================  c     ================================================================
# Line 57  c     nthreads_chkpt - Number of threads Line 62  c     nthreads_chkpt - Number of threads
62  #ifdef ALLOW_TAMC_CHECKPOINTING  #ifdef ALLOW_TAMC_CHECKPOINTING
63    
64        integer    nchklev_1        integer    nchklev_1
65        parameter( nchklev_1      =    5 )        parameter( nchklev_1      =     6 )
66        integer    nchklev_2        integer    nchklev_2
67        parameter( nchklev_2      =   90 )        parameter( nchklev_2      =   120 )
 c      parameter( nchklev_2      =  150 )  
68        integer    nchklev_3        integer    nchklev_3
69        parameter( nchklev_3      =    3 )        parameter( nchklev_3      =     3 )
 c      parameter( nchklev_3      =  150 )  
70    
71  c--   Note always check for the correct sizes of the common blocks!  c--   Note always check for the correct sizes of the common blocks!
72    
# Line 104  c     and writing data. Line 107  c     and writing data.
107        INTEGER    maximpl        INTEGER    maximpl
108        PARAMETER( maximpl     = 6 )        PARAMETER( maximpl     = 6 )
109        INTEGER    maxpass        INTEGER    maxpass
110  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PTRACERS
111        PARAMETER( maxpass     = 3 )        PARAMETER( maxpass     = NUMBER_OF_PTRACERS + 2 )
112  #else  #else
113    # ifdef ALLOW_PASSIVE_TRACER
114          PARAMETER( maxpass     = 3 )
115    # else
116        PARAMETER( maxpass     = 2 )        PARAMETER( maxpass     = 2 )
117    # endif
118  #endif  #endif
119        INTEGER    maxcube        INTEGER    maxcube
120        PARAMETER( maxcube     = 1 )        PARAMETER( maxcube     = 1 )
# Line 115  c     and writing data. Line 122  c     and writing data.
122        INTEGER act0, act1, act2, act3, act4        INTEGER act0, act1, act2, act3, act4
123        INTEGER max0, max1, max2, max3        INTEGER max0, max1, max2, max3
124        INTEGER iikey, kkey, passkey, igadkey,        INTEGER iikey, kkey, passkey, igadkey,
125       &        itdkey, idynkey, igmkey, ikppkey       &        itdkey, idynkey, igmkey, ikppkey, iptrkey
126    
127  c     ================================================================  c     ================================================================
128  c     END OF HEADER TAMC  c     END OF HEADER TAMC
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22