tem_debug_main Subroutine

private subroutine tem_debug_main(level, msg)

Write a message to the main debug logger.

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: level

Log-Level of this message.

character(len=*), intent(in) :: msg

Message to write.


Called by

proc~~tem_debug_main~~CalledByGraph proc~tem_debug_main tem_debug_main interface~tem_debug tem_debug interface~tem_debug->proc~tem_debug_main

Contents

Source Code


Source Code

  subroutine tem_debug_main(level, msg)
    ! ---------------------------------------------------------------------------
    !> Log-Level of this message.
    integer, intent(in) :: level
    !> Message to write.
    character(len=*), intent(in) :: msg
    ! ---------------------------------------------------------------------------

    write(dbgUnit(level),*) msg

  end subroutine tem_debug_main