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

Timestamp:

Jun 29, 2020 7:54:21 AM (4 years ago)

Author:

raasch

Message:

bugfix for aborts in case of nested runs, data handling with MPI-IO for cyclic-fill added (so far only for global data)

File:

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

palm/trunk/SOURCE/message.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for aborts in case of nested runs
+! 
+! 4578 2020-06-25 15:43:32Z gronemeier
 ! bugfix : do not save input values from last call of routines debug_message and location_message
 ! changes: layout changes according to PALM coding standards
@@ -220 +223 @@
     IF ( requested_action > 0 )  THEN
        abort_mode = requested_action
-       CALL local_stop
+!
+!--    Since nested runs always use MPI_ABORT, let only the PE which output a message initiate
+!--    the abort. Others just wait.
+       IF ( nested_run  .AND.  requested_action == 1  .AND.  .NOT. do_output )  THEN
+#if defined( __parallel )
+          CALL MPI_BARRIER( comm2d, ierr )
+#endif
+       ELSE
+          CALL local_stop
+       ENDIF
     ENDIF