Get the current log level.
@return Current log level
function s3_get_log_level() result(level) integer :: level level = current_log_level end function s3_get_log_level