Index: /LMDZ5/trunk/libf/dyn3dmem/mod_const_mpi.F90
===================================================================
--- /LMDZ5/trunk/libf/dyn3dmem/mod_const_mpi.F90	(revision 1855)
+++ /LMDZ5/trunk/libf/dyn3dmem/mod_const_mpi.F90	(revision 1856)
@@ -22,4 +22,5 @@
     INCLUDE 'mpif.h'
 #endif
+
     INTEGER             :: ierr
     INTEGER             :: comp_id
@@ -51,4 +52,7 @@
   
   SUBROUTINE Init_mpi
+#ifdef CPP_XIOS
+    USE wxios
+#endif
   IMPLICIT NONE
 #ifdef CPP_MPI
@@ -70,5 +74,17 @@
       COMM_LMDZ=MPI_COMM_WORLD
       MPI_REAL_LMDZ=MPI_REAL8
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Initialisation de XIOS
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+#ifdef CPP_XIOS
+      CALL wxios_init("LMDZ", outcom=COMM_LMDZ)
+#endif
 !$OMP END MASTER
+#else
+#ifdef CPP_XIOS
+!$OMP MASTER
+      CALL wxios_init("LMDZ")
+!$OMP END MASTER
+#endif
 #endif
 
Index: /LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90
===================================================================
--- /LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90	(revision 1855)
+++ /LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90	(revision 1856)
@@ -367,4 +367,8 @@
     
     subroutine Finalize_parallel
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+	USE wxios
+#endif
 #ifdef CPP_COUPLE
     use mod_prism_proto
@@ -400,4 +404,8 @@
 #endif 
       else
+#ifdef CPP_XIOS
+    !Fermeture propre de XIOS
+      CALL wxios_close()
+#endif
 #ifdef CPP_MPI
          IF (using_mpi) call MPI_FINALIZE(ierr)
Index: /LMDZ5/trunk/libf/dyn3dpar/mod_const_mpi.F90
===================================================================
--- /LMDZ5/trunk/libf/dyn3dpar/mod_const_mpi.F90	(revision 1855)
+++ /LMDZ5/trunk/libf/dyn3dpar/mod_const_mpi.F90	(revision 1856)
@@ -83,5 +83,7 @@
 #else
 #ifdef CPP_XIOS
+!$OMP MASTER
       CALL wxios_init("LMDZ")
+!$OMP END MASTER
 #endif
 #endif