Changeset 4471 for LMDZ6/trunk/libf

Timestamp:

Mar 10, 2023, 10:54:14 PM (21 months ago)

Author:

lguez

Message:

Reverse commit r4462

Because, in leapfrog_loc, abort_gcm is called after
finalize_parallel and mpi_abort cannot be called after
mpi_finalize. Note that leapfrog_loc is the only place where
abort_gcm is called with code 0.

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