report_error Subroutine

private subroutine report_error(subrou, messg, nerr, level)

Report an error message.

Replacement for original XERMSG error message printing routine. This one just prints the message to the console.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: subrou

subroutine where error occurred
character(len=*), intent(in) :: messg

error message
integer, intent(in) :: nerr

error code
integer, intent(in) :: level

[Not used here] * -1: warning message (once), * 0: warning message, * 1: recoverable error, * 2: fatal error

Called by

proc~~report_error~~CalledByGraph proc~report_error report_error proc~ddeabm ddeabm_class%ddeabm proc~ddeabm->proc~report_error proc~ddes ddeabm_class%ddes proc~ddeabm->proc~ddes proc~ddeabm_with_event_wrapper ddeabm_with_event_class%ddeabm_with_event_wrapper proc~ddeabm_with_event_wrapper->proc~report_error proc~ddeabm_with_event_wrapper->proc~ddeabm proc~ddeabm_with_event_wrapper_vec ddeabm_with_event_class_vec%ddeabm_with_event_wrapper_vec proc~ddeabm_with_event_wrapper_vec->proc~report_error proc~ddeabm_with_event_wrapper_vec->proc~ddeabm proc~ddeabm_wrapper ddeabm_class%ddeabm_wrapper proc~ddeabm_wrapper->proc~report_error proc~ddeabm_wrapper->proc~ddeabm proc~ddes->proc~report_error

Source Code

   subroutine report_error(subrou, messg, nerr, level)

      implicit none

      character(len=*), intent(in) :: subrou  !! subroutine where error occurred
      character(len=*), intent(in) :: messg   !! error message
      integer, intent(in)          :: nerr    !! error code
      integer, intent(in)          :: level   !! [Not used here]
                                              !!  * -1: warning message (once),
                                              !!  * 0: warning message,
                                              !!  * 1: recoverable error,
                                              !!  * 2: fatal error

      write (error_unit, '(A)') 'Error in '//trim(subrou)//': '//trim(messg)

   end subroutine report_error