source: codes/icosagcm/trunk/src/mpi_mod.F90 @ 171

Last change on this file since 171 was 171, checked in by ymipsl, 11 years ago
  • XIOS integration -

Compiling with "-with_xios" option. Adapt path to find XIOS library (arch.path)
Retro-compatible with the old output. If xios is not present, dynamico will use the standard writefield function.
Need to have the iodef.xml configuration file in the exec directory

YM
File size: 879 bytes
Line 
1MODULE mpi_mod
2
3#ifdef CPP_USING_MPI
4  INCLUDE 'mpif.h'
5#else
6  INTEGER :: MPI_COMM_WORLD
7  INTEGER :: MPI_REAL8
8  INTEGER :: MPI_INTEGER
9  INTEGER :: MPI_ANY_SOURCE
10  INTEGER :: MPI_MAX
11  INTEGER :: MPI_INFO_NULL
12  INTEGER :: MPI_STATUS_SIZE 
13  INTEGER :: MPI_SUM
14  INTEGER,PARAMETER :: MPI_ADDRESS_KIND=KIND(INTEGER)
15#endif
16
17END MODULE mpi_mod
18
19
20#ifndef CPP_USING_MPI
21
22 SUBROUTINE  MPI_INIT
23   PRINT *, 'Compiled without MPI'
24 END
25 
26 SUBROUTINE  MPI_COMM_SIZE
27 END
28
29 SUBROUTINE  MPI_COMM_RANK
30 END
31 
32 SUBROUTINE MPI_FINALIZE
33 END
34 
35 SUBROUTINE MPI_ALLREDUCE
36 END
37
38 SUBROUTINE MPI_ALLTOALL
39 END
40
41 SUBROUTINE MPI_ISEND
42 END
43
44 SUBROUTINE MPI_ISSEND
45 END
46
47 SUBROUTINE MPI_IRECV
48 END
49
50 SUBROUTINE MPI_WAITALL
51 END
52
53 SUBROUTINE MPI_TESTALL
54 END
55
56 SUBROUTINE MPI_BARRIER
57 END
58
59 SUBROUTINE MPI_ALLGATHER
60 END
61 
62 SUBROUTINE MPI_TYPE_EXTENT
63 END
64 
65 SUBROUTINE MPI_ALLOC_MEM
66 END
67
68#endif
Note: See TracBrowser for help on using the repository browser.