clark-evans · clark-evans · Jan 19, 2025 · Jun 13, 2025 · Jun 13, 2025 · Jun 16, 2025
diff --git a/src/framework/mpas_abort.F b/src/framework/mpas_abort.F
@@ -98,6 +98,8 @@ subroutine mpas_dmpar_global_abort(mesg, deferredAbort)!{{{
 
       if (.not. local_deferredAbort) then
 #ifdef _MPI
+         mpi_errcode = 6   ! corresponds to POSIX SIGABRT, though the specific
+                           ! value here probably does not matter much
          call MPI_Abort(MPI_COMM_WORLD, mpi_errcode, mpi_ierr)
 #else
          stop

diff --git a/src/framework/mpas_dmpar.F b/src/framework/mpas_dmpar.F
@@ -391,6 +391,8 @@ subroutine mpas_dmpar_abort(dminfo)!{{{
 #ifdef _MPI
       integer :: mpi_ierr, mpi_errcode
 
+      mpi_errcode = 6   ! corresponds to POSIX SIGABRT, though the specific
+                        ! value here probably does not matter much
       call MPI_Abort(dminfo % comm, mpi_errcode, mpi_ierr)
 #endif
 

diff --git a/src/framework/mpas_log.F b/src/framework/mpas_log.F
@@ -852,6 +852,8 @@ subroutine log_abort()
       deallocate(mpas_log_info)
 
 #ifdef _MPI
+      mpi_errcode = 6   ! corresponds to POSIX SIGABRT, though the specific
+                        ! value here probably does not matter much
       call MPI_Abort(MPI_COMM_WORLD, mpi_errcode, mpi_ierr)
 #else
       stop