s3_init_logger Subroutine

public subroutine s3_init_logger()

Initialize logger from environment variable.

Reads S3_LOG_LEVEL environment variable and sets log level accordingly. If not set or invalid, defaults to ERROR level.

Called automatically by s3_init(), but can be called manually.

Arguments

None

Source Code

    subroutine s3_init_logger()
        character(len=256) :: env_value
        integer :: status

        call get_environment_variable('S3_LOG_LEVEL', env_value, status=status)
        if (status == 0 .and. len_trim(env_value) > 0) then
            call parse_log_level(trim(env_value), current_log_level)
        end if
    end subroutine s3_init_logger