/[MITgcm]/MITgcm/eesupp/inc/EEPARAMS.h
ViewVC logotype

Diff of /MITgcm/eesupp/inc/EEPARAMS.h

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

revision 1.1 by cnh, Wed Apr 22 19:15:30 1998 UTC revision 1.4 by cnh, Thu May 21 18:30:45 1998 UTC
# Line 1  Line 1 
1  C $Id$  C $Header$
2  C  C
3  C     /==========================================================\  C     /==========================================================\
4  C     | EEPARAMS.h                                               |  C     | EEPARAMS.h                                               |
# Line 29  C     PRINT_MAP_XZ        - Flag indicat Line 29  C     PRINT_MAP_XZ        - Flag indicat
29  C     PRINT_MAP_YZ        - Flag indicating to plot map as YZ slices  C     PRINT_MAP_YZ        - Flag indicating to plot map as YZ slices
30  C     commentCharacter    - Variable used in column 1 of parameter files to  C     commentCharacter    - Variable used in column 1 of parameter files to
31  C                           indicate comments.  C                           indicate comments.
32    C     INDEX_I             - Variable used to select an index label
33    C     INDEX_J               for formatted input parameters.
34    C     INDEX_K
35    C     INDEX_NONE
36        CHARACTER*(*) SQUEEZE_RIGHT        CHARACTER*(*) SQUEEZE_RIGHT
37        PARAMETER ( SQUEEZE_RIGHT = 'R' )        PARAMETER ( SQUEEZE_RIGHT = 'R' )
38        CHARACTER*(*) SQUEEZE_LEFT        CHARACTER*(*) SQUEEZE_LEFT
# Line 43  C                           indicate com Line 47  C                           indicate com
47        PARAMETER ( PRINT_MAP_YZ = 'YZ' )        PARAMETER ( PRINT_MAP_YZ = 'YZ' )
48        CHARACTER*(*) commentCharacter        CHARACTER*(*) commentCharacter
49        PARAMETER ( commentCharacter = '#' )        PARAMETER ( commentCharacter = '#' )
50          INTEGER INDEX_I
51          INTEGER INDEX_J
52          INTEGER INDEX_K  
53          INTEGER INDEX_NONE
54          PARAMETER ( INDEX_I    = 1,
55         &            INDEX_J    = 2,
56         &            INDEX_K    = 3,
57         &            INDEX_NONE = 4 )
58    
59  C     Particularly weird and obscure voodoo numbers  C     Particularly weird and obscure voodoo numbers
60  C     lShare  - This wants to be the length in  C     lShare  - This wants to be the length in
# Line 116  C     nTy         - No. of threads in Y Line 128  C     nTy         - No. of threads in Y
128  C                   This assumes a simple cartesian  C                   This assumes a simple cartesian
129  C                   gridding of the threads which is not required elsewhere  C                   gridding of the threads which is not required elsewhere
130  C                   but that makes it easier.  C                   but that makes it easier.
131    C     ioErrorCount - IO Error Counter. Set to zero initially and increased
132    C                    by one every time an IO error occurs.
133        COMMON /EEPARAMS_I/ errorMessageUnit, standardMessageUnit,        COMMON /EEPARAMS_I/ errorMessageUnit, standardMessageUnit,
134       & scrUnit1, scrUnit2, eeDataUnit, modelDataUnit,       & scrUnit1, scrUnit2, eeDataUnit, modelDataUnit,
135       & numberOfProcs, pidIO, myProcId,       & numberOfProcs, pidIO, myProcId,
136       & myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads,       & myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads,
137       & myBxLo, myBxHi, myByLo, myByHi,       & myBxLo, myBxHi, myByLo, myByHi,
138       & nTx, nTy       & nTx, nTy, ioErrorCount
139        INTEGER eeDataUnit        INTEGER eeDataUnit
140        INTEGER errorMessageUnit        INTEGER errorMessageUnit
141          INTEGER ioErrorCount(MAX_NO_THREADS)
142        INTEGER modelDataUnit        INTEGER modelDataUnit
143        INTEGER myBxLo(MAX_NO_THREADS)        INTEGER myBxLo(MAX_NO_THREADS)
144        INTEGER myBxHi(MAX_NO_THREADS)        INTEGER myBxHi(MAX_NO_THREADS)
# Line 142  C                   but that makes it ea Line 157  C                   but that makes it ea
157        INTEGER scrUnit1        INTEGER scrUnit1
158        INTEGER scrUnit2        INTEGER scrUnit2
159        INTEGER standardMessageUnit        INTEGER standardMessageUnit
   
 C $Id$  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22