Index: LMDZ6/trunk/libf/phy_common/abort_physic.F90
===================================================================
--- LMDZ6/trunk/libf/phy_common/abort_physic.F90	(revision 4458)
+++ 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
Index: LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90	(revision 4458)
+++ LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90	(revision 4460)
@@ -89,5 +89,4 @@
                 abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine' 
                 CALL abort_physic(modname,abort_message,0)
-                STOP 0
               ENDIF
 !$OMP BARRIER
@@ -110,5 +109,4 @@
               abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine' 
               CALL abort_physic(modname,abort_message,0)
-              STOP 0
           ENDIF
         ENDIF