Changeset 1747 for LMDZ5/trunk/libf/dyn3dmem/abort_gcm.F

Timestamp:

Apr 23, 2013, 4:06:30 PM (12 years ago)

Author:

lguez

Message:

When an MPI process is stopped by a Fortran stop, other MPI processes may not stop. Use mpi_abort instead.

File:

• LMDZ5/trunk/libf/dyn3dmem/abort_gcm.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dmem/abort_gcm.F

@@ -1 +1 @@
 !
-! $Id$
+! $Id: abort_gcm.F 1492 2011-03-08 08:10:25Z fairhead $
 !
 c
@@ -24 +24 @@
 
       character(len=*) modname
-      integer ierr
+      integer ierr, ierror_mpi
       character(len=*) message
 
@@ -47 +47 @@
       else
         write(lunout,*) 'Houston, we have a problem ', ierr
+#ifdef CPP_MPI
+C$OMP CRITICAL MPI
+        call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi)
+C$OMP END CRITICAL MPI
+#else
         stop 1
+#endif          
       endif
       END