set_log_level Subroutine

public subroutine set_log_level(level)

Sets the log level

The logger will write all message at or above this level

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: level

Source Code

    subroutine set_log_level(level)
        !! Sets the log level
        !!
        !! The logger will write all message at or above this level
        integer, intent(in) :: level
        if (level >= DEBUG .and. level <= ERROR) then
            log_level = level
        else
            print *, "ERROR! Invalid log level: ", level
            stop 1
        end if
    end subroutine set_log_level