tem_debug_for Subroutine

private subroutine tem_debug_for(me, level, msg)

Write a message to a dedicated debug logger.

Arguments

Type IntentOptional Attributes Name
type(tem_debug_type), intent(in) :: me

Debug type including the logger to use.
integer, intent(in) :: level

Log-Level of this message.
character(len=*), intent(in) :: msg

Message to write.

Source Code

  subroutine tem_debug_for( me, level, msg )
    ! ---------------------------------------------------------------------------
    !> Debug type including the logger to use.
    type(tem_debug_type), intent(in) :: me
    !> Log-Level of this message.
    integer, intent(in) :: level
    !> Message to write.
    character(len=*), intent(in) :: msg
    ! ---------------------------------------------------------------------------

    write(me%logger%funit(level),*) msg

  end subroutine tem_debug_for