Changeset 4462

Timestamp:

Mar 9, 2023, 5:44:30 PM (16 months ago)

Author:

lguez

Message:

Abort even when ierr is 0

This is consistent with the name of the subroutine.

File:

• LMDZ6/trunk/libf/dyn3dmem/abort_gcm.F (modified) (1 diff)

LMDZ6/trunk/libf/dyn3dmem/abort_gcm.F

@@ -45 +45 @@
       if (ierr .eq. 0) then
         write(lunout,*) 'Everything is cool'
+#ifdef CPP_MPI
+c$OMP CRITICAL (MPI_ABORT_GCM)
+        call MPI_ABORT(COMM_LMDZ, 0, ierror_mpi)
+c$OMP END CRITICAL (MPI_ABORT_GCM)
+#else
+        stop 0
+#endif          
       else
         write(lunout,*) 'Houston, we have a problem, ierr = ', ierr