ABOR1_SFX Subroutine

subroutine ABOR1_SFX(YTEXT)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: YTEXT

Contents

Source Code


Source Code

      SUBROUTINE ABOR1_SFX(YTEXT)
!     #############################################################
!
!!****  *ABOR1_SFX* - abor1 subroutine
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!	P. Le Moigne   *Meteo France*	
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    06/2008 
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
!
USE MODI_CLOSE_FILE
USE MODD_SURF_CONF, ONLY : CPROGNAME
!      
!*       0.1   Declarations of arguments
!              -------------------------
!
CHARACTER(LEN=*),  INTENT(IN)  :: YTEXT
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
CHARACTER(LEN=6)  :: YPROGRAM      
INTEGER           :: ILUOUT = 25        ! logical unit of output file      
!
!-------------------------------------------------------------------------------
!
!* get output listing file logical unit
!
YPROGRAM = CPROGNAME
!      
!
IF (YPROGRAM=='ASCII ' .OR. YPROGRAM=='TEXTE ' .OR. YPROGRAM=='BINARY') THEN
   WRITE(*,*)YTEXT
   WRITE(*,*)'---------------------------------------------------------------------------'
   WRITE(*,*) 'MORE DETAILS ABOUT THE CRASH IN THE OUTPUT LISTING: SEE THE FILE NAMED    '
   WRITE(*,*) 'LISTING_[NAME OF THE RUNNING .EXE: PGD, PREP, OFFLINE].txt              '
   WRITE(*,*)'---------------------------------------------------------------------------'
ENDIF
!
WRITE(ILUOUT,*) '---------------------------------------------------------------------------'
WRITE(ILUOUT,*) '---------------------------------------------------------------------------'
WRITE(ILUOUT,*) '--------------------   FATAL ERROR in SURFEX  -----------------------------'
WRITE(ILUOUT,*) '---------------------------------------------------------------------------'
WRITE(ILUOUT,*) '---------------------------------------------------------------------------'
WRITE(ILUOUT,*) '-                                                                         -'
WRITE(ILUOUT,*)YTEXT
WRITE(ILUOUT,*) '-                                                                         -'
WRITE(ILUOUT,*) '---------------------------------------------------------------------------'
WRITE(ILUOUT,*) '---------------------------------------------------------------------------'
CALL CLOSE_FILE(YPROGRAM,ILUOUT)
!
STOP
!
END SUBROUTINE ABOR1_SFX