abort_trip.F90

Go to the documentation of this file.

!     #############################################################
      SUBROUTINE abort_trip(YTEXT)
!     #############################################################
!
!!****  *ABORT_TRIP* - abort subroutine
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      B. Decharme   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    06/2013 
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modd_trip_listing, ONLY : nlisting, clisting
!     
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
 CHARACTER(LEN=*),  INTENT(IN)  :: YTEXT
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
!
!* get output listing file logical unit
!
IF (lhook) CALL dr_hook('ABORT_TRIP',0,zhook_handle)
!      
WRITE(*,*)ytext
WRITE(*,*)'---------------------------------------------------------------------------'
WRITE(*,*) 'MORE DETAILS ABOUT THE CRASH IN THE OUTPUT LISTING:',clisting
WRITE(*,*)'---------------------------------------------------------------------------'
!
WRITE(nlisting,*) '---------------------------------------------------------------------------'
WRITE(nlisting,*) '---------------------------------------------------------------------------'
WRITE(nlisting,*) '--------------------   FATAL ERROR in TRIP  -------------------------------'
WRITE(nlisting,*) '---------------------------------------------------------------------------'
WRITE(nlisting,*) '---------------------------------------------------------------------------'
WRITE(nlisting,*) '-                                                                         -'
WRITE(nlisting,*)ytext
WRITE(nlisting,*) '-                                                                         -'
WRITE(nlisting,*) '---------------------------------------------------------------------------'
WRITE(nlisting,*) '---------------------------------------------------------------------------'
 CLOSE(nlisting)
!
 CALL abort
stop
!
IF (lhook) CALL dr_hook('ABORT_TRIP',1,zhook_handle)
!
END SUBROUTINE abort_trip