1 |
|
C $Id$ |
2 |
C Parameters used with MPI. |
C Parameters used with MPI. |
3 |
|
|
4 |
#ifdef ALLOW_MPI |
#ifdef ALLOW_MPI |
5 |
COMMON /MPI_INFO/ |
COMMON /MPI_INFO/ |
6 |
& mpi_pid, mpi_np, |
& mpi_pid, mpi_np, |
7 |
& mpi_northId, mpi_southId |
#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 |
INTEGER mpi_pid |
15 |
INTEGER mpi_np |
INTEGER mpi_np |
16 |
INTEGER mpi_northId |
INTEGER mpi_northId |
17 |
INTEGER mpi_southId |
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 |
#endif |