/[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.28 by jmc, Sat May 22 23:45:23 2010 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   =  4096 )
38        INTEGER MAX_NO_BARRIERS        INTEGER MAX_NO_BARRIERS
39        PARAMETER ( MAX_NO_BARRIERS = 1 )        PARAMETER ( MAX_NO_BARRIERS = 1 )
40    
# 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 124  C     TANGENT_SIMULATION Line 150  C     TANGENT_SIMULATION
150       &            TANGENT_SIMULATION = 2 )       &            TANGENT_SIMULATION = 2 )
151    
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    :: Flags indicating error during multi-processing
154  C     eeEndError    initialisation/termination.  C     eeEndError     :: initialisation and 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     useSingleCpuIO :: When useSingleCpuIO is set, MDS_WRITE_FIELD outputs from
157  C     useCoupler  - use Coupler for a multi-components set-up  C                       master MPI process only. -- NOTE: read from main parameter
158        COMMON /EEPARAMS_L/ eeBootError, fatalError, eeEndError,  C                       file "data" and not set until call to INI_PARMS.
159       &     useCubedSphereExchange, useCoupler, useSETRLSTK, useSIGREG,  C     printMapIncludesZeros  :: Flag that controls whether character constant
160       &     useEMBEDSRC  C                               map code ignores exact zero values.
161    C     useCubedSphereExchange :: use Cubed-Sphere topology domain.
162    C     useCoupler     :: use Coupler for a multi-components set-up.
163    C     useNEST_PARENT :: use Parent Nesting interface (pkg/nest_parent)
164    C     useNEST_CHILD  :: use Child  Nesting interface (pkg/nest_child)
165          COMMON /EEPARAMS_L/
166         &  eeBootError, fatalError, eeEndError,
167         &  useSingleCpuIO, printMapIncludesZeros,
168         &  useCubedSphereExchange, useCoupler,
169         &  useNEST_PARENT, useNEST_CHILD,
170         &  useSETRLSTK, useSIGREG
171        LOGICAL eeBootError        LOGICAL eeBootError
172        LOGICAL eeEndError        LOGICAL eeEndError
173        LOGICAL fatalError        LOGICAL fatalError
174          LOGICAL useSingleCpuIO
175          LOGICAL printMapIncludesZeros
176        LOGICAL useCubedSphereExchange        LOGICAL useCubedSphereExchange
177        LOGICAL useCoupler        LOGICAL useCoupler
178          LOGICAL useNEST_PARENT
179          LOGICAL useNEST_CHILD
180        LOGICAL useSETRLSTK        LOGICAL useSETRLSTK
181        LOGICAL useSIGREG        LOGICAL useSIGREG
       LOGICAL useEMBEDSRC  
182    
183  C--   COMMON /EPARAMS_I/ Execution environment public integer variables.  C--   COMMON /EPARAMS_I/ Execution environment public integer variables.
184  C     errorMessageUnit    - Fortran IO unit for error messages  C     errorMessageUnit    - Fortran IO unit for error messages
185  C     standardMessageUnit - Fortran IO unit for informational messages  C     standardMessageUnit - Fortran IO unit for informational messages
186    C     maxLengthPrt1D :: maximum length for printing (to Std-Msg-Unit) 1-D array
187  C     scrUnit1      - Scratch file 1 unit number  C     scrUnit1      - Scratch file 1 unit number
188  C     scrUnit2      - Scratch file 2 unit number  C     scrUnit2      - Scratch file 2 unit number
189  C     eeDataUnit    - Unit number used for reading "execution environment" parameter file.  C     eeDataUnit    - Unit # for reading "execution environment" parameter file.
190  C     modelDataUnit - Unit number for reading "model" parameter file.  C     modelDataUnit - Unit number for reading "model" parameter file.
191  C     numberOfProcs - Number of processes computing in parallel  C     numberOfProcs - Number of processes computing in parallel
192  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 215  C                   gridding of the thre
215  C                   but that makes it easier.  C                   but that makes it easier.
216  C     ioErrorCount - IO Error Counter. Set to zero initially and increased  C     ioErrorCount - IO Error Counter. Set to zero initially and increased
217  C                    by one every time an IO error occurs.  C                    by one every time an IO error occurs.
218        COMMON /EEPARAMS_I/ errorMessageUnit, standardMessageUnit,        COMMON /EEPARAMS_I/
219       & scrUnit1, scrUnit2, eeDataUnit, modelDataUnit,       &  errorMessageUnit, standardMessageUnit, maxLengthPrt1D,
220       & numberOfProcs, pidIO, myProcId,       &  scrUnit1, scrUnit2, eeDataUnit, modelDataUnit,
221       & myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads,       &  numberOfProcs, pidIO, myProcId,
222       & myBxLo, myBxHi, myByLo, myByHi,       &  myPx, myPy, myXGlobalLo, myYGlobalLo, nThreads,
223       & nTx, nTy, ioErrorCount       &  myBxLo, myBxHi, myByLo, myByHi,
224        INTEGER eeDataUnit       &  nTx, nTy, ioErrorCount
225        INTEGER errorMessageUnit        INTEGER errorMessageUnit
226        INTEGER ioErrorCount(MAX_NO_THREADS)        INTEGER standardMessageUnit
227          INTEGER maxLengthPrt1D
228          INTEGER scrUnit1
229          INTEGER scrUnit2
230          INTEGER eeDataUnit
231        INTEGER modelDataUnit        INTEGER modelDataUnit
232          INTEGER ioErrorCount(MAX_NO_THREADS)
233        INTEGER myBxLo(MAX_NO_THREADS)        INTEGER myBxLo(MAX_NO_THREADS)
234        INTEGER myBxHi(MAX_NO_THREADS)        INTEGER myBxHi(MAX_NO_THREADS)
235        INTEGER myByLo(MAX_NO_THREADS)        INTEGER myByLo(MAX_NO_THREADS)
# Line 199  C                    by one every time a Line 244  C                    by one every time a
244        INTEGER nTy        INTEGER nTy
245        INTEGER numberOfProcs        INTEGER numberOfProcs
246        INTEGER pidIO        INTEGER pidIO
       INTEGER scrUnit1  
       INTEGER scrUnit2  
       INTEGER standardMessageUnit  
247    
248  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
249  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22