source:
codes/icosagcm/trunk/src/parallel/mpi_mod.F90
@
965
Last change on this file since 965 was 903, checked in by adurocher, 5 years ago | |
---|---|
File size: 1.3 KB |
Rev | Line | |
---|---|---|
[26] | 1 | MODULE mpi_mod |
2 | ||
3 | #ifdef CPP_USING_MPI | |
[903] | 4 | #ifdef CPP_USE_MPIF_H |
5 | INCLUDE 'mpif.h' | |
6 | #else | |
[901] | 7 | use mpi |
[903] | 8 | #endif |
[26] | 9 | #else |
10 | INTEGER :: MPI_COMM_WORLD | |
11 | INTEGER :: MPI_REAL8 | |
12 | INTEGER :: MPI_INTEGER | |
[266] | 13 | INTEGER :: MPI_CHARACTER |
14 | INTEGER :: MPI_LOGICAL | |
[26] | 15 | INTEGER :: MPI_ANY_SOURCE |
16 | INTEGER :: MPI_MAX | |
17 | INTEGER :: MPI_INFO_NULL | |
18 | INTEGER :: MPI_STATUS_SIZE | |
[171] | 19 | INTEGER :: MPI_SUM |
[189] | 20 | INTEGER :: MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED |
[186] | 21 | INTEGER :: MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE |
22 | ||
[151] | 23 | INTEGER,PARAMETER :: MPI_ADDRESS_KIND=KIND(INTEGER) |
[26] | 24 | #endif |
25 | ||
26 | END MODULE mpi_mod | |
27 | ||
28 | ||
29 | #ifndef CPP_USING_MPI | |
30 | ||
31 | SUBROUTINE MPI_INIT | |
[118] | 32 | PRINT *, 'Compiled without MPI' |
[26] | 33 | END |
[186] | 34 | |
35 | SUBROUTINE MPI_INIT_THREAD | |
36 | PRINT *, 'Compiled without MPI' | |
37 | END | |
[26] | 38 | |
39 | SUBROUTINE MPI_COMM_SIZE | |
40 | END | |
41 | ||
42 | SUBROUTINE MPI_COMM_RANK | |
43 | END | |
44 | ||
45 | SUBROUTINE MPI_FINALIZE | |
46 | END | |
47 | ||
48 | SUBROUTINE MPI_ALLREDUCE | |
49 | END | |
50 | ||
[172] | 51 | SUBROUTINE MPI_REDUCE |
52 | END | |
53 | ||
[26] | 54 | SUBROUTINE MPI_ALLTOALL |
55 | END | |
56 | ||
57 | SUBROUTINE MPI_ISEND | |
58 | END | |
59 | ||
[151] | 60 | SUBROUTINE MPI_ISSEND |
61 | END | |
62 | ||
[26] | 63 | SUBROUTINE MPI_IRECV |
64 | END | |
65 | ||
66 | SUBROUTINE MPI_WAITALL | |
67 | END | |
68 | ||
[151] | 69 | SUBROUTINE MPI_TESTALL |
70 | END | |
71 | ||
[26] | 72 | SUBROUTINE MPI_BARRIER |
73 | END | |
74 | ||
75 | SUBROUTINE MPI_ALLGATHER | |
76 | END | |
[151] | 77 | |
78 | SUBROUTINE MPI_TYPE_EXTENT | |
79 | END | |
80 | ||
81 | SUBROUTINE MPI_ALLOC_MEM | |
82 | END | |
[26] | 83 | |
[186] | 84 | SUBROUTINE MPI_FREE_MEM |
85 | END | |
86 | ||
[803] | 87 | SUBROUTINE MPI_BCAST |
88 | END | |
89 | ||
90 | SUBROUTINE MPI_GATHER | |
91 | END | |
[901] | 92 | |
93 | SUBROUTINE MPI_ABORT(comm, err, ierr) | |
94 | INTEGER :: comm, err, ierr | |
95 | STOP err | |
96 | END | |
[26] | 97 | #endif |
Note: See TracBrowser
for help on using the repository browser.