Changeset 3250 for palm/trunk/SOURCE

Timestamp:

Sep 14, 2018 12:59:33 PM (6 years ago)

Author:

sward

Message:

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

File:

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

palm/trunk/SOURCE/local_stop.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added an empty output string to stop keywords to clean up job protocol
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -98 +101 @@
           IF ( abort_mode == 1 )  THEN
              CALL MPI_FINALIZE( ierr )
-             STOP
+             STOP ''
           ELSEIF ( abort_mode == 2 )  THEN
              CALL MPI_ABORT( comm2d, 9999, ierr )
@@ -137 +140 @@
              ENDIF
              CALL MPI_FINALIZE( ierr )
-             STOP
+             STOP ''
 
           CASE ( 1 )
@@ -146 +149 @@
              ENDIF
              CALL MPI_FINALIZE( ierr )
-             STOP
+             STOP ''
 
           CASE ( 2 )
@@ -192 +195 @@
 #else
 
-    STOP
+    STOP ''
 
 #endif