Index: LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90	(revision 4600)
+++ LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90	(revision 4604)
@@ -40,20 +40,21 @@
 !$OMP BARRIER
 
-    IF (type_ocean=='couple') THEN
+    IF (using_mpi) THEN
+      IF (type_ocean=='couple') THEN
 #ifdef CPP_COUPLE
 !$OMP MASTER
 #ifdef CPP_XIOS
-      CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
+        CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
 #else
-       CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
-       CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
+        CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
+        CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
 #endif
 !$OMP END MASTER
 #endif
-      MPI_REAL_LMDZ=MPI_REAL8
-    ELSE
-      CALL init_mpi
+        MPI_REAL_LMDZ=MPI_REAL8
+      ELSE
+        CALL init_mpi
+      ENDIF
     ENDIF
-
   END SUBROUTINE Init_const_mpi