3 |
#ifdef ALLOW_MPI |
#ifdef ALLOW_MPI |
4 |
COMMON /MPI_INFO/ |
COMMON /MPI_INFO/ |
5 |
& mpi_pid, mpi_np, |
& mpi_pid, mpi_np, |
6 |
& mpi_northId, mpi_southId |
#ifdef DECOMP2D |
7 |
|
& ewslice, nsslice, |
8 |
|
& mpi_eastId, mpi_westId, |
9 |
|
#endif |
10 |
|
& mpi_northId, mpi_southId, |
11 |
|
& comm_use |
12 |
|
|
13 |
INTEGER mpi_pid |
INTEGER mpi_pid |
14 |
INTEGER mpi_np |
INTEGER mpi_np |
15 |
INTEGER mpi_northId |
INTEGER mpi_northId |
16 |
INTEGER mpi_southId |
INTEGER mpi_southId |
17 |
|
#ifdef DECOMP2D |
18 |
|
INTEGER mpi_eastId |
19 |
|
INTEGER mpi_westId |
20 |
|
INTEGER ewslice |
21 |
|
INTEGER nsslice |
22 |
|
#endif |
23 |
|
INTEGER comm_use |
24 |
|
|
25 |
|
#ifndef USE_SINGLE_PRECISION |
26 |
|
#define _MPI_TYPE_REAL MPI_REAL8 |
27 |
|
#else |
28 |
|
#define _MPI_TYPE_REAL MPI_REAL |
29 |
|
#endif |
30 |
#endif |
#endif |