log_warn Subroutine

    subroutine log_warn(message)
        character(len=*), intent(in) :: message
        if (current_verbose_level >= LEVEL_WARN) then
            write (*, '(A, A)') 'WARN: ', message
        end if
    end subroutine log_warn