source: LMDZ6/branches/contrails/libf/misc/lmdz_mpi.F90 @ 5456

Last change on this file since 5456 was 4600, checked in by yann meurdesoif, 18 months ago

Suppress CPP_MPI key usage in source code. MPI wrappers is used to supress missing symbol if the mpi library is not linked

YM

File size: 753 bytes
Line 
1#ifdef CPP_MPI
2MODULE lmdz_mpi
3
4  INCLUDE 'mpif.h'
5  LOGICAL,PARAMETER :: using_mpi = .TRUE.
6END MODULE lmdz_mpi
7
8#else
9
10MODULE lmdz_mpi
11  LOGICAL,PARAMETER :: using_mpi = .FALSE.
12
13  INTEGER, PARAMETER         :: MPI_REAL8 = 1
14  INTEGER, PARAMETER         :: MPI_INTEGER = 1
15  INTEGER, PARAMETER         :: MPI_CHARACTER = 1
16  INTEGER, PARAMETER         :: MPI_LOGICAL = 1
17  INTEGER, PARAMETER         :: MPI_SUM = 1
18  INTEGER, PARAMETER         :: MPI_MIN = 1
19  INTEGER, PARAMETER         :: MPI_COMM_WORLD = 1
20  INTEGER, PARAMETER         :: MPI_STATUS_SIZE = 1
21  INTEGER, PARAMETER         :: MPI_THREAD_SERIALIZED =1
22  INTEGER(kind=8), PARAMETER :: MPI_ADDRESS_KIND = 1
23  INTEGER, PARAMETER         :: MPI_INFO_NULL = 1
24
25END MODULE lmdz_mpi
26
27#endif
Note: See TracBrowser for help on using the repository browser.