/[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.7 by heimbach, Thu Nov 20 02:28:38 2003 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 59  c     nthreads_chkpt - Number of threads Line 64  c     nthreads_chkpt - Number of threads
64        integer    nchklev_1        integer    nchklev_1
65        parameter( nchklev_1      =    5 )        parameter( nchklev_1      =    5 )
66        integer    nchklev_2        integer    nchklev_2
67        parameter( nchklev_2      =   90 )        parameter( nchklev_2      =    2 )
68  c      parameter( nchklev_2      =  150 )  c      parameter( nchklev_2      =  150 )
69        integer    nchklev_3        integer    nchklev_3
70        parameter( nchklev_3      =    3 )        parameter( nchklev_3      =    3 )
# Line 104  c     and writing data. Line 109  c     and writing data.
109        INTEGER    maximpl        INTEGER    maximpl
110        PARAMETER( maximpl     = 6 )        PARAMETER( maximpl     = 6 )
111        INTEGER    maxpass        INTEGER    maxpass
112  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PTRACERS
113        PARAMETER( maxpass     = 3 )        PARAMETER( maxpass     = NUMBER_OF_PTRACERS + 2 )
114  #else  #else
115    # ifdef ALLOW_PASSIVE_TRACER
116          PARAMETER( maxpass     = 3 )
117    # else
118        PARAMETER( maxpass     = 2 )        PARAMETER( maxpass     = 2 )
119    # endif
120  #endif  #endif
121        INTEGER    maxcube        INTEGER    maxcube
122        PARAMETER( maxcube     = 1 )        PARAMETER( maxcube     = 1 )
# Line 115  c     and writing data. Line 124  c     and writing data.
124        INTEGER act0, act1, act2, act3, act4        INTEGER act0, act1, act2, act3, act4
125        INTEGER max0, max1, max2, max3        INTEGER max0, max1, max2, max3
126        INTEGER iikey, kkey, passkey, igadkey,        INTEGER iikey, kkey, passkey, igadkey,
127       &        itdkey, idynkey, igmkey, ikppkey       &        itdkey, idynkey, igmkey, ikppkey, iptrkey
128    
129  c     ================================================================  c     ================================================================
130  c     END OF HEADER TAMC  c     END OF HEADER TAMC
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22