/[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.10 by cnh, Fri Sep 21 03:54:35 2001 UTC
# Line 1  Line 1 
1  C $Id$  C $Header$
2    C $Name$
3    CBOP
4    C     !ROUTINE: EEPARAMS.h
5    C     !INTERFACE:
6    C     include "EEPARAMS.h"
7  C  C
8  C     /==========================================================\  C     !DESCRIPTION:
9    C     *==========================================================*
10  C     | EEPARAMS.h                                               |  C     | EEPARAMS.h                                               |
11  C     |==========================================================|  C     *==========================================================*
12  C     | Parameters for "execution environemnt". These are used   |  C     | Parameters for "execution environemnt". These are used   |
13  C     | by both the particular numerical model and the "execution|  C     | by both the particular numerical model and the "execution|
14  C     | environment" support routines.                           |  C     | environment" support routines.                           |
15  C     \==========================================================/  C     *==========================================================*
16    CEOP
17    
18  C     MAX_LEN_MBUF         - Default message buffer max. size  C     MAX_LEN_MBUF         - Default message buffer max. size
19  C     MAX_LEN_FNAM         - Default file name max. size  C     MAX_LEN_FNAM         - Default file name max. size
# Line 29  C     PRINT_MAP_XZ        - Flag indicat Line 36  C     PRINT_MAP_XZ        - Flag indicat
36  C     PRINT_MAP_YZ        - Flag indicating to plot map as YZ slices  C     PRINT_MAP_YZ        - Flag indicating to plot map as YZ slices
37  C     commentCharacter    - Variable used in column 1 of parameter files to  C     commentCharacter    - Variable used in column 1 of parameter files to
38  C                           indicate comments.  C                           indicate comments.
39    C     INDEX_I             - Variable used to select an index label
40    C     INDEX_J               for formatted input parameters.
41    C     INDEX_K
42    C     INDEX_NONE
43        CHARACTER*(*) SQUEEZE_RIGHT        CHARACTER*(*) SQUEEZE_RIGHT
44        PARAMETER ( SQUEEZE_RIGHT = 'R' )        PARAMETER ( SQUEEZE_RIGHT = 'R' )
45        CHARACTER*(*) SQUEEZE_LEFT        CHARACTER*(*) SQUEEZE_LEFT
# Line 43  C                           indicate com Line 54  C                           indicate com
54        PARAMETER ( PRINT_MAP_YZ = 'YZ' )        PARAMETER ( PRINT_MAP_YZ = 'YZ' )
55        CHARACTER*(*) commentCharacter        CHARACTER*(*) commentCharacter
56        PARAMETER ( commentCharacter = '#' )        PARAMETER ( commentCharacter = '#' )
57          INTEGER INDEX_I
58          INTEGER INDEX_J
59          INTEGER INDEX_K  
60          INTEGER INDEX_NONE
61          PARAMETER ( INDEX_I    = 1,
62         &            INDEX_J    = 2,
63         &            INDEX_K    = 3,
64         &            INDEX_NONE = 4 )
65    
66    
67    C     EXCH_IGNORE_CORNERS - Flag to select ignoring or
68    C     EXCH_UPDATE_CORNERS   updating of corners during
69    C                           an edge exchange.
70          INTEGER EXCH_IGNORE_CORNERS
71          INTEGER EXCH_UPDATE_CORNERS
72          PARAMETER ( EXCH_IGNORE_CORNERS = 0,
73         &            EXCH_UPDATE_CORNERS = 1 )
74    
75    C     FORWARD_SIMULATION
76    C     REVERSE_SIMULATION
77          INTEGER FORWARD_SIMULATION
78          INTEGER REVERSE_SIMULATION
79          PARAMETER ( FORWARD_SIMULATION = 0,
80         &            REVERSE_SIMULATION = 1 )
81    
82    
83  C     Particularly weird and obscure voodoo numbers  C     Particularly weird and obscure voodoo numbers
84  C     lShare  - This wants to be the length in  C     lShare  - This wants to be the length in
# Line 57  C               The buffer arrays are us Line 93  C               The buffer arrays are us
93  C               and are declared REAL ARRA(lShare[148],LBUFF).  C               and are declared REAL ARRA(lShare[148],LBUFF).
94  C               Setting lShare[148] to 1 is like making these arrays  C               Setting lShare[148] to 1 is like making these arrays
95  C               one dimensional.  C               one dimensional.
96          INTEGER cacheLineSize
97        INTEGER lShare1        INTEGER lShare1
98        INTEGER lShare4        INTEGER lShare4
99        INTEGER lShare8        INTEGER lShare8
100        PARAMETER ( lShare1 = 8 * 32 )        PARAMETER ( cacheLineSize = 256 )
101        PARAMETER ( lShare4 = 2 * 32 )        PARAMETER ( lShare1 =  cacheLineSize )
102        PARAMETER ( lShare8 = 1 * 32 )        PARAMETER ( lShare4 =  cacheLineSize/4 )
103          PARAMETER ( lShare8 =  cacheLineSize/8 )
104    
105  C     MAX_NO_THREADS  - Maximum number of threads allowed.  C     MAX_NO_THREADS  - Maximum number of threads allowed.
106  C     MAX_NO_PROCS    - Maximum number of processes allowed.  C     MAX_NO_PROCS    - Maximum number of processes allowed.
107  C     MAX_NO_BARRIERS - Maximum number of distinct thread "barriers"  C     MAX_NO_BARRIERS - Maximum number of distinct thread "barriers"
108        INTEGER MAX_NO_THREADS        INTEGER MAX_NO_THREADS
109        PARAMETER ( MAX_NO_THREADS =   16 )        PARAMETER ( MAX_NO_THREADS =   32 )
110        INTEGER MAX_NO_PROCS        INTEGER MAX_NO_PROCS
111        PARAMETER ( MAX_NO_PROCS   =  128 )        PARAMETER ( MAX_NO_PROCS   =  128 )
112        INTEGER MAX_NO_BARRIERS        INTEGER MAX_NO_BARRIERS
# Line 79  C     eeBootError - Flag indicating erro Line 117  C     eeBootError - Flag indicating erro
117  C     eeEndError    initialisation/termination.  C     eeEndError    initialisation/termination.
118  C     fatalError  - Flag used to indicate that the model is ended with  C     fatalError  - Flag used to indicate that the model is ended with
119  C                   an error  C                   an error
120        COMMON /EEPARAMS_L/ eeBootError, fatalError, eeEndError        COMMON /EEPARAMS_L/ eeBootError, fatalError, eeEndError,
121         &  useCubedSphereExchange
122        LOGICAL eeBootError        LOGICAL eeBootError
123        LOGICAL eeEndError        LOGICAL eeEndError
124        LOGICAL fatalError        LOGICAL fatalError
125          LOGICAL useCubedSphereExchange
126    
127  C--   COMMON /EPARAMS_I/ Execution environment public integer variables.  C--   COMMON /EPARAMS_I/ Execution environment public integer variables.
128  C     errorMessageUnit    - Fortran IO unit for error messages  C     errorMessageUnit    - Fortran IO unit for error messages
# Line 116  C     nTy         - No. of threads in Y Line 156  C     nTy         - No. of threads in Y
156  C                   This assumes a simple cartesian  C                   This assumes a simple cartesian
157  C                   gridding of the threads which is not required elsewhere  C                   gridding of the threads which is not required elsewhere
158  C                   but that makes it easier.  C                   but that makes it easier.
159    C     ioErrorCount - IO Error Counter. Set to zero initially and increased
160    C                    by one every time an IO error occurs.
161        COMMON /EEPARAMS_I/ errorMessageUnit, standardMessageUnit,        COMMON /EEPARAMS_I/ errorMessageUnit, standardMessageUnit,
162       & scrUnit1, scrUnit2, eeDataUnit, modelDataUnit,       & scrUnit1, scrUnit2, eeDataUnit, modelDataUnit,
163       & numberOfProcs, pidIO, myProcId,       & numberOfProcs, pidIO, myProcId,
164       & myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads,       & myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads,
165       & myBxLo, myBxHi, myByLo, myByHi,       & myBxLo, myBxHi, myByLo, myByHi,
166       & nTx, nTy       & nTx, nTy, ioErrorCount
167        INTEGER eeDataUnit        INTEGER eeDataUnit
168        INTEGER errorMessageUnit        INTEGER errorMessageUnit
169          INTEGER ioErrorCount(MAX_NO_THREADS)
170        INTEGER modelDataUnit        INTEGER modelDataUnit
171        INTEGER myBxLo(MAX_NO_THREADS)        INTEGER myBxLo(MAX_NO_THREADS)
172        INTEGER myBxHi(MAX_NO_THREADS)        INTEGER myBxHi(MAX_NO_THREADS)
# Line 142  C                   but that makes it ea Line 185  C                   but that makes it ea
185        INTEGER scrUnit1        INTEGER scrUnit1
186        INTEGER scrUnit2        INTEGER scrUnit2
187        INTEGER standardMessageUnit        INTEGER standardMessageUnit
   
 C $Id$  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22