1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
CBOP |
4 |
|
C !ROUTINE: EESUPPORT.h |
5 |
|
C !INTERFACE: |
6 |
|
C include "EESUPPORT.h" |
7 |
C |
C |
8 |
C /==========================================================\ |
C !DESCRIPTION: |
9 |
|
C *==========================================================* |
10 |
C | EESUPPORT.h | |
C | EESUPPORT.h | |
11 |
C |==========================================================| |
C *==========================================================* |
12 |
C | Support data structures for the MITgcm UV "execution | |
C | Support data structures for the MITgcm UV ``execution | |
13 |
C | environment" code. This data should be private to the | |
C | environment'' code. This data should be private to the | |
14 |
C | execution environment routines. Data which needs to be | |
C | execution environment routines. Data which needs to be | |
15 |
C | accessed directly by the numerical model goes in | |
C | accessed directly by a numerical model goes in | |
16 |
C | EEPARAMS.h. | |
C | EEPARAMS.h. | |
17 |
C \==========================================================/ |
C *==========================================================* |
18 |
|
CEOP |
19 |
|
|
20 |
C ERROR_HEADER - String which prefixes error messages |
C ERROR_HEADER - String which prefixes error messages |
21 |
CHARACTER*(*) ERROR_HEADER |
CHARACTER*(*) ERROR_HEADER |
285 |
INTEGER mpiTagN |
INTEGER mpiTagN |
286 |
INTEGER mpiTagS |
INTEGER mpiTagS |
287 |
|
|
288 |
|
C-- COMMON /MPI_FULLMAP_I/ holds integer arrays of the full list of MPI process |
289 |
|
C mpi_myXGlobalLo :: List of all processors bottom-left X-index in global domain |
290 |
|
C mpi_myYGlobalLo :: List of all processors bottom-left Y-index in global domain |
291 |
|
C Note: needed for mpi gather/scatter routines & singleCpuIO. |
292 |
|
COMMON /MPI_FULLMAP_I/ |
293 |
|
& mpi_myXGlobalLo, mpi_myYGlobalLo |
294 |
|
INTEGER mpi_myXGlobalLo(nPx*nPy) |
295 |
|
INTEGER mpi_myYGlobalLo(nPx*nPy) |
296 |
|
|
297 |
C MPI communicator describing this model realization |
C MPI communicator describing this model realization |
298 |
COMMON /MPI_COMMS/ |
COMMON /MPI_COMMS/ |
299 |
& MPI_COMM_MODEL |
& MPI_COMM_MODEL |
300 |
INTEGER MPI_COMM_MODEL |
INTEGER MPI_COMM_MODEL |
301 |
|
|
302 |
#endif /* ALLOW_USE_MPI */ |
#endif /* ALLOW_USE_MPI */ |