Index: LMDZ6/trunk/libf/dyn3dmem/abort_gcm.F
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/abort_gcm.F	(revision 4470)
+++ LMDZ6/trunk/libf/dyn3dmem/abort_gcm.F	(revision 4471)
@@ -45,11 +45,4 @@
       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