source:
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mpi_mod.F90
@
1988
| Last change on this file since 1988 was 1988, checked in by rblod, 14 years ago | |
|---|---|
| File size: 208 bytes | |
| Line | |
|---|---|
| 1 | MODULE mpi_mod |
| 2 | |
| 3 | #if ! defined key_mpp_mpi |
| 4 | LOGICAL, PARAMETER :: using_mpi=.FALSE. |
| 5 | INCLUDE 'ios_mpif.h' |
| 6 | #else |
| 7 | LOGICAL, PARAMETER :: using_mpi=.TRUE. |
| 8 | INCLUDE 'mpif.h' |
| 9 | #endif |
| 10 | |
| 11 | END MODULE mpi_mod |
Note: See TracBrowser
for help on using the repository browser.
