/[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.21 by edhill, Wed Jan 11 06:02:31 2006 UTC revision 1.25 by jmc, Tue Apr 21 16:00:53 2009 UTC
# Line 32  C     MAX_NO_THREADS  - Maximum number o Line 32  C     MAX_NO_THREADS  - Maximum number o
32  C     MAX_NO_PROCS    - Maximum number of processes allowed.  C     MAX_NO_PROCS    - Maximum number of processes allowed.
33  C     MAX_NO_BARRIERS - Maximum number of distinct thread "barriers"  C     MAX_NO_BARRIERS - Maximum number of distinct thread "barriers"
34        INTEGER MAX_NO_THREADS        INTEGER MAX_NO_THREADS
35        PARAMETER ( MAX_NO_THREADS =  32 )        PARAMETER ( MAX_NO_THREADS =  4 )
36        INTEGER MAX_NO_PROCS        INTEGER MAX_NO_PROCS
37        PARAMETER ( MAX_NO_PROCS   =  2048 )        PARAMETER ( MAX_NO_PROCS   =  2048 )
38        INTEGER MAX_NO_BARRIERS        INTEGER MAX_NO_BARRIERS
# Line 66  C               one dimensional. Line 66  C               one dimensional.
66  C     ========  EESIZE.h  ========================================  C     ========  EESIZE.h  ========================================
67    
68    
69    C     Symbolic values
70    C     precXXXX :: precision used for I/O
71          INTEGER precFloat32
72          PARAMETER ( precFloat32 = 32 )
73          INTEGER precFloat64
74          PARAMETER ( precFloat64 = 64 )
75    
76    C     UNSET_xxx :: Used to indicate variables that have not been given a value
77          Real*8  UNSET_FLOAT8
78          PARAMETER ( UNSET_FLOAT8 = 1.234567D5 )
79          Real*4  UNSET_FLOAT4
80          PARAMETER ( UNSET_FLOAT4 = 1.234567E5 )
81          _RL     UNSET_RL
82          PARAMETER ( UNSET_RL     = 1.234567D5 )
83          _RS     UNSET_RS
84          PARAMETER ( UNSET_RS     = 1.234567D5 )
85          INTEGER UNSET_I
86          PARAMETER ( UNSET_I      = 123456789  )
87    
88    C     debLevX  :: used to decide when to print debug messages
89          INTEGER debLevZero
90          PARAMETER ( debLevZero=0 )
91          INTEGER debLevA
92          PARAMETER ( debLevA=1 )
93          INTEGER debLevB
94          PARAMETER ( debLevB=2 )
95    
96  C     SQUEEZE_RIGHT       - Flag indicating right blank space removal  C     SQUEEZE_RIGHT       - Flag indicating right blank space removal
97  C                           from text field.  C                           from text field.
# Line 98  C     INDEX_NONE Line 124  C     INDEX_NONE
124        PARAMETER ( commentCharacter = '#' )        PARAMETER ( commentCharacter = '#' )
125        INTEGER INDEX_I        INTEGER INDEX_I
126        INTEGER INDEX_J        INTEGER INDEX_J
127        INTEGER INDEX_K          INTEGER INDEX_K
128        INTEGER INDEX_NONE        INTEGER INDEX_NONE
129        PARAMETER ( INDEX_I    = 1,        PARAMETER ( INDEX_I    = 1,
130       &            INDEX_J    = 2,       &            INDEX_J    = 2,
# Line 126  C     TANGENT_SIMULATION Line 152  C     TANGENT_SIMULATION
152  C--   COMMON /EEPARAMS_L/ Execution environment public logical variables.  C--   COMMON /EEPARAMS_L/ Execution environment public logical variables.
153  C     eeBootError - Flag indicating error during multi-processing  C     eeBootError - Flag indicating error during multi-processing
154  C     eeEndError    initialisation/termination.  C     eeEndError    initialisation/termination.
155  C     fatalError  - Flag used to indicate that the model is ended with  C     fatalError  - Flag used to indicate that the model is ended with an error
156  C                   an error  C     printMapIncludesZeros :: Flag that controls whether character constant
157    C                              map code ignores exact zero values.
158  C     useCoupler  - use Coupler for a multi-components set-up  C     useCoupler  - use Coupler for a multi-components set-up
159        COMMON /EEPARAMS_L/ eeBootError, fatalError, eeEndError,        COMMON /EEPARAMS_L/
160       &     useCubedSphereExchange, useCoupler, useSETRLSTK, useSIGREG,       &  eeBootError, fatalError, eeEndError,
161       &     useEMBEDSRC       &  printMapIncludesZeros,
162         &  useCubedSphereExchange, useCoupler, useSETRLSTK, useSIGREG
163        LOGICAL eeBootError        LOGICAL eeBootError
164        LOGICAL eeEndError        LOGICAL eeEndError
165        LOGICAL fatalError        LOGICAL fatalError
166          LOGICAL printMapIncludesZeros
167        LOGICAL useCubedSphereExchange        LOGICAL useCubedSphereExchange
168        LOGICAL useCoupler        LOGICAL useCoupler
169        LOGICAL useSETRLSTK        LOGICAL useSETRLSTK
170        LOGICAL useSIGREG        LOGICAL useSIGREG
171        LOGICAL useEMBEDSRC  
172    
173  C--   COMMON /EPARAMS_I/ Execution environment public integer variables.  C--   COMMON /EPARAMS_I/ Execution environment public integer variables.
174  C     errorMessageUnit    - Fortran IO unit for error messages  C     errorMessageUnit    - Fortran IO unit for error messages
175  C     standardMessageUnit - Fortran IO unit for informational messages  C     standardMessageUnit - Fortran IO unit for informational messages
176    C     maxLengthPrt1D :: maximum length for printing (to Std-Msg-Unit) 1-D array
177  C     scrUnit1      - Scratch file 1 unit number  C     scrUnit1      - Scratch file 1 unit number
178  C     scrUnit2      - Scratch file 2 unit number  C     scrUnit2      - Scratch file 2 unit number
179  C     eeDataUnit    - Unit number used for reading "execution environment" parameter file.  C     eeDataUnit    - Unit # for reading "execution environment" parameter file.
180  C     modelDataUnit - Unit number for reading "model" parameter file.  C     modelDataUnit - Unit number for reading "model" parameter file.
181  C     numberOfProcs - Number of processes computing in parallel  C     numberOfProcs - Number of processes computing in parallel
182  C     pidIO         - Id of process to use for I/O.  C     pidIO         - Id of process to use for I/O.
# Line 175  C                   gridding of the thre Line 205  C                   gridding of the thre
205  C                   but that makes it easier.  C                   but that makes it easier.
206  C     ioErrorCount - IO Error Counter. Set to zero initially and increased  C     ioErrorCount - IO Error Counter. Set to zero initially and increased
207  C                    by one every time an IO error occurs.  C                    by one every time an IO error occurs.
208        COMMON /EEPARAMS_I/ errorMessageUnit, standardMessageUnit,        COMMON /EEPARAMS_I/
209       & scrUnit1, scrUnit2, eeDataUnit, modelDataUnit,       &  errorMessageUnit, standardMessageUnit, maxLengthPrt1D,
210       & numberOfProcs, pidIO, myProcId,       &  scrUnit1, scrUnit2, eeDataUnit, modelDataUnit,
211       & myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads,       &  numberOfProcs, pidIO, myProcId,
212       & myBxLo, myBxHi, myByLo, myByHi,       &  myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads,
213       & nTx, nTy, ioErrorCount       &  myBxLo, myBxHi, myByLo, myByHi,
214        INTEGER eeDataUnit       &  nTx, nTy, ioErrorCount
215        INTEGER errorMessageUnit        INTEGER errorMessageUnit
216        INTEGER ioErrorCount(MAX_NO_THREADS)        INTEGER standardMessageUnit
217          INTEGER maxLengthPrt1D
218          INTEGER scrUnit1
219          INTEGER scrUnit2
220          INTEGER eeDataUnit
221        INTEGER modelDataUnit        INTEGER modelDataUnit
222          INTEGER ioErrorCount(MAX_NO_THREADS)
223        INTEGER myBxLo(MAX_NO_THREADS)        INTEGER myBxLo(MAX_NO_THREADS)
224        INTEGER myBxHi(MAX_NO_THREADS)        INTEGER myBxHi(MAX_NO_THREADS)
225        INTEGER myByLo(MAX_NO_THREADS)        INTEGER myByLo(MAX_NO_THREADS)
# Line 199  C                    by one every time a Line 234  C                    by one every time a
234        INTEGER nTy        INTEGER nTy
235        INTEGER numberOfProcs        INTEGER numberOfProcs
236        INTEGER pidIO        INTEGER pidIO
       INTEGER scrUnit1  
       INTEGER scrUnit2  
       INTEGER standardMessageUnit  
237    
238  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
239  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22