From eedaf03590ff6d93ea00699494aa2b3a1d86d766 Mon Sep 17 00:00:00 2001 From: Peter Kalverla Date: Fri, 2 Aug 2024 14:25:26 +0200 Subject: [PATCH] Exit with error status on abort and parallel abort --- geogrid/src/module_debug.F | 2 +- geogrid/src/parallel_module.F | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/geogrid/src/module_debug.F b/geogrid/src/module_debug.F index 315ce4d28..be5ea481e 100644 --- a/geogrid/src/module_debug.F +++ b/geogrid/src/module_debug.F @@ -320,7 +320,7 @@ subroutine mprintf(assertion, level, fmtstring, & #ifdef _METGRID call parallel_abort() #endif - stop + error stop end if end if diff --git a/geogrid/src/parallel_module.F b/geogrid/src/parallel_module.F index dc7c5b89b..472e3416b 100644 --- a/geogrid/src/parallel_module.F +++ b/geogrid/src/parallel_module.F @@ -1038,7 +1038,7 @@ subroutine parallel_abort() call MPI_Abort(MPI_COMM_WORLD, mpi_errcode, mpi_ierr) #endif - stop + error stop end subroutine parallel_abort