Changeset 3250


Ignore:
Timestamp:
Sep 14, 2018 12:59:33 PM (3 years ago)
Author:
sward
Message:

Added an empty output string to STOP keywords to clean up job protocol

File:
1 edited

Legend:

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

    r2718 r3250  
    2525! -----------------
    2626! $Id$
     27! Added an empty output string to stop keywords to clean up job protocol
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    98101          IF ( abort_mode == 1 )  THEN
    99102             CALL MPI_FINALIZE( ierr )
    100              STOP
     103             STOP ''
    101104          ELSEIF ( abort_mode == 2 )  THEN
    102105             CALL MPI_ABORT( comm2d, 9999, ierr )
     
    137140             ENDIF
    138141             CALL MPI_FINALIZE( ierr )
    139              STOP
     142             STOP ''
    140143
    141144          CASE ( 1 )
     
    146149             ENDIF
    147150             CALL MPI_FINALIZE( ierr )
    148              STOP
     151             STOP ''
    149152
    150153          CASE ( 2 )
     
    192195#else
    193196
    194     STOP
     197    STOP ''
    195198
    196199#endif
Note: See TracChangeset for help on using the changeset viewer.