Changeset 2961 for palm/trunk/SOURCE/message.f90

Timestamp:

Apr 12, 2018 10:13:48 AM (6 years ago)

Author:

suehring

Message:

Synchronize location message between parent and child. Message will not be flushed before all models finished their task.

File:

• palm/trunk/SOURCE/message.f90 (modified) (3 diffs)

palm/trunk/SOURCE/message.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! 
 ! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Synchronize location message between parent and child. Message will be not 
+! flushed before all models finished their respective task.  
+! 
+! 2932 2018-03-26 09:39:22Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -252 +256 @@
         ONLY:  OUTPUT_UNIT
 
-    USE pegrid,                                                                &
-        ONLY:  myid
+    USE pegrid
 
     USE pmc_interface,                                                         &
-        ONLY:  cpl_id
+        ONLY:  cpl_id, nested_run
 
     IMPLICIT NONE
@@ -263 +266 @@
     LOGICAL          ::  advance  !< switch for advancing/noadvancing I/O
 
+#if defined( __parallel )
+    IF ( nested_run )  CALL MPI_BARRIER( MPI_COMM_WORLD, ierr )
+#endif
 !
 !-- Output for nested runs only on the root domain