s3_log_warn Subroutine

public subroutine s3_log_warn(message)

Log a warning message.

@param[in] message Warning message to log

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	message

Source Code

    subroutine s3_log_warn(message)
        character(len=*), intent(in) :: message
        if (current_log_level >= S3_LOG_LEVEL_WARN) then
            write(*, '(A,A)') '[S3 WARN]  ', trim(message)
        end if
    end subroutine s3_log_warn