Changeset 37 for XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_server.f90

Timestamp:

07/10/09 17:01:28 (15 years ago)

Author:

ymipsl

Message:

Feature : permet d'utiliser XMLIO-SERVER sans MPI, donc en mode édition de lien, sans server.

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_server.f90 (modified) (1 diff)

XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_server.f90

@@ -54 +54 @@
   USE mod_ioserver_para
   USE mpitrace
-  IMPLICIT NONE
-  INCLUDE 'mpif.h'
+  USE mpi_mod
+  IMPLICIT NONE
     INTEGER :: n
     INTEGER :: status(MPI_STATUS_SIZE)