abort_trans_mod.F90

Go to the documentation of this file.

MODULE abort_trans_mod
CONTAINS
SUBROUTINE abort_trans(CDTEXT)

USE tpm_gen  , ONLY : nout,nerr
USE tpm_distr, ONLY : nproc,myproc
!USE MPL_MODULE, ONLY : MPL_ABORT   ! MPL 1.12.08
USE sdl_module, ONLY : sdl_traceback, sdl_srlabort

IMPLICIT NONE


CHARACTER(LEN=*),INTENT(IN) :: CDTEXT

WRITE(nout,'(1X,A)') 'ABORT_TRANS CALLED'

WRITE(nout,'(1X,A)') cdtext
WRITE(nerr,'(1X,A,1X,I3,1X,A)') 'ABORT! ',myproc,cdtext
CLOSE(nout)
IF (nproc > 1) THEN
! CALL MPL_ABORT(CDTEXT)  ! MPL 1.12.08
  CALL abor1('DANS ABORT_TRANS_MOD')
ELSE
  CALL sdl_traceback
  CALL flush(0)
  CALL sdl_srlabort
ENDIF

END SUBROUTINE abort_trans
END MODULE abort_trans_mod