Changeset 1407 for trunk/LMDZ.GENERIC

Timestamp:

Apr 2, 2015, 9:03:02 AM (10 years ago)

Author:

emillour

Message:

Generic model:
To avoid issues when compiling with LMDZ.COMMON parallel dynamics, defrun_new contents should only be "seen" when compiling serial models.
EM

File:

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

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

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