Changeset 1415 for trunk/LMDZ.MARS/libf/dyn3d

Timestamp:

Apr 14, 2015, 9:46:47 AM (10 years ago)

Author:

milmd

Message:

Update newstart and start2archive programs of LMDZ.GENERIC and LMDZ.MARS to the new organization.

File:

• trunk/LMDZ.MARS/libf/dyn3d/defrun_new.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/dyn3d/defrun_new.F

@@ -1 +1 @@
       SUBROUTINE defrun_new( tapedef, etatinit )
+#ifndef CPP_PARA
 c
 c-----------------------------------------------------------------------
@@ -576 +577 @@
      &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