Index: LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90
===================================================================
--- LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90	(revision 1013)
+++ LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90	(revision 1014)
@@ -32,8 +32,7 @@
        CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
 !$OMP END MASTER
+#endif
 #ifdef CPP_MPI
-      COMM_LMDZ=MPI_COMM_WORLD
       MPI_REAL_LMDZ=MPI_REAL8
-#endif
 #endif
     ELSE