Changeset 3312 for palm/trunk/SOURCE

Timestamp:

Oct 6, 2018 2:15:46 PM (6 years ago)

Author:

knoop

Message:

Added proper exit code to PALM and fixed exit code handling by palmbuild and palmrun

Location:

palm/trunk/SOURCE

Files:

• check_parameters.f90 (modified) (1 diff)
• chem_emissions_mod.f90 (modified) (1 diff)
• local_stop.f90 (modified) (4 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -824 +824 @@
 !
 !-- Check for overlap combinations, which are not realized yet
-    IF ( transpose_compute_overlap )  THEN
-       IF ( numprocs == 1 )  STOP '+++ transpose-compute-overlap not implemented for single PE runs'
+    IF ( transpose_compute_overlap  .AND. numprocs == 1 )  THEN
+          message_string = 'transpose-compute-overlap not implemented for single PE runs'
+          CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
     ENDIF
 

palm/trunk/SOURCE/chem_emissions_mod.f90

@@ -1078 +1078 @@
                                  ' are not the ones required by PALM-4U: please check '      // &
                                  ' chemistry emission module documentation.'                                 
-                CALL message( 'chem_emissions_setup', 'CM0446', 2, 2, 0, 6, 0 ) 
-
-                STOP
+                CALL message( 'chem_emissions_setup', 'CM0446', 2, 2, 0, 6, 0 )
+
           END SELECT
 

palm/trunk/SOURCE/local_stop.f90

@@ -101 +101 @@
           IF ( abort_mode == 1 )  THEN
              CALL MPI_FINALIZE( ierr )
-             STOP ''
+             STOP 1
           ELSEIF ( abort_mode == 2 )  THEN
              CALL MPI_ABORT( comm2d, 9999, ierr )
@@ -140 +140 @@
              ENDIF
              CALL MPI_FINALIZE( ierr )
-             STOP ''
+             STOP 1
 
           CASE ( 1 )
@@ -149 +149 @@
              ENDIF
              CALL MPI_FINALIZE( ierr )
-             STOP ''
+             STOP 1
 
           CASE ( 2 )
@@ -195 +195 @@
 #else
 
-    STOP ''
+    STOP 1
 
 #endif