Changeset 37 for XMLIO_SERVER/trunk/src/IOSERVER/mod_global_memory.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_global_memory.f90 (modified) (4 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_global_memory.f90

@@ -11 +11 @@
 
   SUBROUTINE Allocate_global_memory_r8(size,Pt)
+  USE mpi_mod
   IMPLICIT NONE
-    INCLUDE 'mpif.h'
     REAL(kind=8),POINTER :: Pt(:)
     INTEGER              :: size
@@ -39 +39 @@
 
   SUBROUTINE Allocate_global_memory_i8(size,Pt)
+  USE mpi_mod
   IMPLICIT NONE
-    INCLUDE 'mpif.h'
     INTEGER(kind=8),POINTER :: Pt(:)
     INTEGER              :: size
@@ -66 +66 @@
   
 !  SUBROUTINE Allocate_global_memory_r4(size,Pt)
+!  USE mpi_mod
 !  IMPLICIT NONE
-!    INCLUDE 'mpif.h'
 !    REAL(kind=4),POINTER :: Pt(:)
 !    INTEGER              :: size
@@ -95 +95 @@
 
   SUBROUTINE Allocate_global_memory_i4(size,Pt)
+  USE mpi_mod
   IMPLICIT NONE
-    INCLUDE 'mpif.h'
     INTEGER(kind=4),POINTER :: Pt(:)
     INTEGER              :: size