tem_debug_for Subroutine

private subroutine tem_debug_for(me, level, msg)

Write a message to a dedicated debug logger.

Arguments

Type IntentOptional AttributesName
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.


Called by

proc~~tem_debug_for~~CalledByGraph proc~tem_debug_for tem_debug_for interface~tem_debug tem_debug interface~tem_debug->proc~tem_debug_for

Contents

Source Code


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