log_debug Subroutine

public subroutine log_debug(category, message)

Arguments

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

Source Code

    subroutine log_debug(category, message)
        character(len=*), intent(in) :: category, message
        if (current_verbose_level >= LEVEL_DEBUG) then
            write (*, '(A, A, A, A)') 'DEBUG[', category, ']: ', message
        end if
    end subroutine log_debug