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	C $Id$
2	C Parameters used with MPI.
3
4	#ifdef ALLOW_MPI
5	COMMON /MPI_INFO/
6	& mpi_pid, mpi_np,
7	#ifdef DECOMP2D
8	& ewslice, nsslice,
9	& mpi_eastId, mpi_westId,
10	#endif
11	& mpi_northId, mpi_southId,
12	& comm_use
13
14	INTEGER mpi_pid
15	INTEGER mpi_np
16	INTEGER mpi_northId
17	INTEGER mpi_southId
18	#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	#endif