Changeset 4460 for LMDZ6/trunk/libf/phy_common

Timestamp:

Mar 9, 2023, 5:16:38 PM (19 months ago)

Author:

lguez

Message:

Abort even when ierr is 0

This is consistent with the name of the subroutine.

File:

• LMDZ6/trunk/libf/phy_common/abort_physic.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phy_common/abort_physic.F90

@@ -38 +38 @@
       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