Ignore:
Timestamp:
Nov 13, 2008 10:26:18 AM (13 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/local_stop.f90

    r206 r213  
    44! Actual revisions:
    55! -----------------
    6 ! Implementation of a MPI-1 coupling: replaced myid with target_id
     6! Implementation of a MPI-1 coupling: replaced myid with target_id.
     7! The uncoupled case allows stop or mpi_abort depending on new steering
     8! parameter abort_mode, which is set in handle_palm_message.
    79!
    810! Former revisions:
     
    3638#if defined( __parallel )
    3739    IF ( coupling_mode == 'uncoupled' )  THEN
    38        CALL MPI_FINALIZE( ierr )
    39        STOP
     40       IF ( abort_mode == 1 )  THEN
     41          CALL MPI_FINALIZE( ierr )
     42          STOP
     43       ELSEIF ( abort_mode == 2 )  THEN
     44          CALL MPI_ABORT( comm2d, 9999, ierr )
     45       ENDIF
    4046    ELSE
    4147
Note: See TracChangeset for help on using the changeset viewer.