Index: trunk/LMDZ.MARS/libf/dyn3d/defrun_new.F
===================================================================
--- trunk/LMDZ.MARS/libf/dyn3d/defrun_new.F	(revision 1403)
+++ trunk/LMDZ.MARS/libf/dyn3d/defrun_new.F	(revision 1415)
@@ -1,3 +1,4 @@
       SUBROUTINE defrun_new( tapedef, etatinit )
+#ifndef CPP_PARA
 c
 c-----------------------------------------------------------------------
@@ -576,5 +577,8 @@
      &in run.def for this version... -> STOP ! '     
       end if
-
-      RETURN
+#else
+      write(*,*) "defrun_new should not be used in parallel mode!"
+      stop
+#endif
+! of #ifndef CPP_PARA
       END