1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
CBOP |
CBOP |
4 |
C !ROUTINE: EESUPPORT.h |
C !ROUTINE: EESUPPORT.h |
5 |
C !INTERFACE: |
C !INTERFACE: |
6 |
C include "EESUPPORT.h" |
C include "EESUPPORT.h" |
7 |
C |
C |
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 */ |