Changeset 213 for palm/trunk/SOURCE/local_stop.f90

Timestamp:

Nov 13, 2008 10:26:18 AM (15 years ago)

Author:

raasch

Message:

Output message can be handled with new subroutine handle_palm_message. All output messages will be replaced by this routine step by step within the next revisions

File:

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

palm/trunk/SOURCE/local_stop.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! Implementation of a MPI-1 coupling: replaced myid with target_id
+! Implementation of a MPI-1 coupling: replaced myid with target_id.
+! The uncoupled case allows stop or mpi_abort depending on new steering
+! parameter abort_mode, which is set in handle_palm_message.
 !
 ! Former revisions:
@@ -36 +38 @@
 #if defined( __parallel )
     IF ( coupling_mode == 'uncoupled' )  THEN
-       CALL MPI_FINALIZE( ierr )
-       STOP
+       IF ( abort_mode == 1 )  THEN
+          CALL MPI_FINALIZE( ierr )
+          STOP
+       ELSEIF ( abort_mode == 2 )  THEN
+          CALL MPI_ABORT( comm2d, 9999, ierr )
+       ENDIF
     ELSE