! $Id: abort_gcm.F 1747 2013-04-23 14:06:30Z lguez $ ! ! SUBROUTINE abort_gcm(modname, message, ierr) USE IOIPSL USE parallel_lmdz INCLUDE "iniprint.h" ! ! Stops the simulation cleanly, closing files and printing various ! comments ! ! Input: modname = name of calling program ! message = stuff to print ! ierr = severity of situation ( = 0 normal ) character(len=*), intent(in):: modname integer :: ierr, ierror_mpi character(len=*), intent(in):: message write(lunout,*) 'in abort_gcm' !$OMP MASTER CALL histclo CALL restclo if (MPI_rank == 0) then CALL getin_dump endif !$OMP END MASTER ! CALL histclo(2) ! CALL histclo(3) ! CALL histclo(4) ! CALL histclo(5) write(lunout,*) 'Stopping in ', modname write(lunout,*) 'Reason = ',message if (ierr == 0) then write(lunout,*) 'Everything is cool' else write(lunout,*) 'Houston, we have a problem, ierr = ', ierr if (using_mpi) THEN !$OMP CRITICAL (MPI_ABORT_GCM) CALL MPI_ABORT(COMM_LMDZ, 1, ierror_mpi) !$OMP END CRITICAL (MPI_ABORT_GCM) else stop 1 endif endif END SUBROUTINE abort_gcm