Index: LMDZ6/trunk/libf/phy_common/abort_physic.F90
===================================================================
--- LMDZ6/trunk/libf/phy_common/abort_physic.F90	(revision 4389)
+++ LMDZ6/trunk/libf/phy_common/abort_physic.F90	(revision 4460)
@@ -38,4 +38,11 @@
       if (ierr .eq. 0) then
         write(lunout,*) 'Everything is cool'
+#ifdef CPP_MPI
+        !$OMP CRITICAL (MPI_ABORT_PHYSIC)
+        call MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)
+        !$OMP END CRITICAL (MPI_ABORT_PHYSIC)
+#else
+        stop 0
+#endif          
       else
         write(lunout,*) 'Houston, we have a problem, ierr = ', ierr