MITgcm_contrib/cg2d_bench/MPI_INFO.h

C       $Id$    
C      Parameters used with MPI.

#ifdef ALLOW_MPI
       COMMON /MPI_INFO/
     &  mpi_pid,     mpi_np,
#ifdef DECOMP2D
     &  ewslice, nsslice,
     &  mpi_eastId, mpi_westId,
#endif
     &  mpi_northId, mpi_southId,
     &  comm_use

       INTEGER mpi_pid
       INTEGER mpi_np
       INTEGER mpi_northId
       INTEGER mpi_southId
#ifdef DECOMP2D
       INTEGER mpi_eastId
       INTEGER mpi_westId
       INTEGER ewslice
       INTEGER nsslice
#endif
       INTEGER comm_use

#ifndef USE_SINGLE_PRECISION
#define _MPI_TYPE_REAL MPI_REAL8
#else
#define _MPI_TYPE_REAL MPI_REAL
#endif
#endif
1	ce107	1.3	C $Id$
2	ce107	1.1	C Parameters used with MPI.
3
4			#ifdef ALLOW_MPI
5			COMMON /MPI_INFO/
6			& mpi_pid, mpi_np,
7	ce107	1.2	#ifdef DECOMP2D
8			& ewslice, nsslice,
9			& mpi_eastId, mpi_westId,
10			#endif
11			& mpi_northId, mpi_southId,
12			& comm_use
13
14	ce107	1.1	INTEGER mpi_pid
15			INTEGER mpi_np
16			INTEGER mpi_northId
17			INTEGER mpi_southId
18	ce107	1.2	#ifdef DECOMP2D
19			INTEGER mpi_eastId
20			INTEGER mpi_westId
21			INTEGER ewslice
22			INTEGER nsslice
23			#endif
24			INTEGER comm_use
25
26			#ifndef USE_SINGLE_PRECISION
27			#define _MPI_TYPE_REAL MPI_REAL8
28			#else
29			#define _MPI_TYPE_REAL MPI_REAL
30			#endif
31	ce107	1.1	#endif