/[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.4 by heimbach, Thu Nov 14 22:59:03 2002 UTC revision 1.10 by heimbach, Mon Sep 27 18:03:14 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5    
6  c     ================================================================  c     ================================================================
7  c     HEADER TAMC  c     HEADER TAMC
# Line 7  c     o Header for the use of the Tangen Line 11  c     o Header for the use of the Tangen
11  c       Compiler (TAMC).  c       Compiler (TAMC).
12  c  c
13  c     started: Christian Eckert eckert@mit.edu  04-Feb-1999  c     started: Christian Eckert eckert@mit.edu  04-Feb-1999
 c  
14  c     changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000  c     changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
15  c              - New parameter nlevchk_0 for dimensionalising  c              - New parameter nlevchk_0 for dimensionalising
16  c                common blocks in the undef ALLOW_TAMC_CHECKPOINTING case  c                common blocks in the undef ALLOW_TAMC_CHECKPOINTING case
17  c              - nhreads_chkpt was declared at the wrong place  c              - nhreads_chkpt was declared at the wrong place
18  c  c              - new keys, separate for different packages
19  c  
20  c     ================================================================  c     ================================================================
21  c     HEADER TAMC  c     HEADER TAMC
22  c     ================================================================  c     ================================================================
# Line 57  c     nthreads_chkpt - Number of threads Line 60  c     nthreads_chkpt - Number of threads
60  #ifdef ALLOW_TAMC_CHECKPOINTING  #ifdef ALLOW_TAMC_CHECKPOINTING
61    
62        integer    nchklev_1        integer    nchklev_1
63        parameter( nchklev_1      =   9 )        parameter( nchklev_1      =     6 )
64        integer    nchklev_2        integer    nchklev_2
65        parameter( nchklev_2      =  90 )        parameter( nchklev_2      =   120 )
66        integer    nchklev_3        integer    nchklev_3
67        parameter( nchklev_3      =  90 )        parameter( nchklev_3      =    60 )
68    
69  c--   Note always check for the correct sizes of the common blocks!  c--   Note always check for the correct sizes of the common blocks!
70    
# Line 98  c     and writing data. Line 101  c     and writing data.
101        integer iloop_daily        integer iloop_daily
102    
103        INTEGER    isbyte        INTEGER    isbyte
104        PARAMETER( isbyte      = 4 )        PARAMETER( isbyte      = 8 )
105        INTEGER    maximpl        INTEGER    maximpl
106        PARAMETER( maximpl     = 6 )        PARAMETER( maximpl     = 6 )
107    #ifdef ALLOW_PTRACERS
108    cph moved this to PTRACERS_SIZE.h
109    cph      INTEGER    maxpass
110    cph      PARAMETER( maxpass     = PTRACERS_num + 2 )
111    #else
112        INTEGER    maxpass        INTEGER    maxpass
113        PARAMETER( maxpass     = 3 )        PARAMETER( maxpass     = 2 )
114    #endif
115        INTEGER    maxcube        INTEGER    maxcube
116        PARAMETER( maxcube     = 1 )        PARAMETER( maxcube     = 1 )
117    
118        INTEGER act0, act1, act2, act3, act4        INTEGER act0, act1, act2, act3, act4
119        INTEGER max0, max1, max2, max3        INTEGER max0, max1, max2, max3
120        INTEGER iikey, kkey, passkey, igadkey,        INTEGER iikey, kkey, passkey, igadkey,
121       &        itdkey, idynkey, igmkey       &        itdkey, idynkey, igmkey, ikppkey, iptrkey
122    
123  c     ================================================================  c     ================================================================
124  c     END OF HEADER TAMC  c     END OF HEADER TAMC
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22