#########################################################################
#												                                                #
#				                     Cost Analysis                              #
#												                                                #
#########################################################################

# Author: George Gardner
# Date Created: 06/06/23
# Last Updated: 11/20/23
#   Replaced 1.7% discount rate (proposed Circular A-4 Revisions) with 2% (final Circular A-4 Revisions)

# The purpose of this code is to calculate the costs to WWTP associated with
# achieving a higher WQS in the fishery maintenance area (FMA) of the Delaware River.
# Changes to original analysis:
# - period of analysis is 30 years (2024 - 2053)
# - capital costs occur only in the first year (2024).
# - no costs occur for the next 4 years (2025-2028).
# - O&M costs occur over a 25-year period (2029-2053)
# These alternative costs assume all capital costs occur within the first year of the
# period of analysis (changed to 30-years), no costs occur for a 4-year period, and
# O&M costs occur over a 25-year period.

# Preliminaries
rm(list=ls())
gc()

options(stringsAsFactors=FALSE)
pacman::p_load(dplyr, tidyr, purrr, magrittr, readxl)

Scen_RunDate <-"11-20-23"

# Set file paths:
# input path:
input_path <- "C:/Users/40179/ICF/CWA Anniversary & Econ Support - General/06_Technical Support for Economic Analysis/TD3_Delaware River WQS/Costs/Inputs/"
# R-generated output path:
output_path <- "C:/Users/40179/ICF/CWA Anniversary & Econ Support - General/06_Technical Support for Economic Analysis/TD3_Delaware River WQS/Costs/Output/"
# functions path:
functions_path <- "C:/Users/40179/ICF/CWA Anniversary & Econ Support - General/06_Technical Support for Economic Analysis/TD3_Delaware River WQS/Costs/Functions/"

##################################
# Step 1: Read in cost data      #
##################################

# Kleinfelder cost estimates
Kleinfelder <- read_excel(paste0(input_path, "Lower_Delaware_River_Costs_5-24-2023.xlsx"))

######################################################################
# Step 2: Filter cost data to original and revised HADO scenarios    #
######################################################################
## Original HADO:
# Scenario AA15 only includes Class A' and A facilities (filter out Class B facilities).
# Scenario AA15 only includes ammonia limits of 1.5 mg/L for Class A' and 5 mg/L for Class A facilities.

Cost <- Kleinfelder %>%
  select(-(c(3,4,5))) %>%
  filter((Fac_Class == "A'" & NH3 == 1.5) | (Fac_Class == "A" & NH3 == 5))

## Revised HADO:
# Similar to Original HADO but also includes costs associated with achieving 6 mg/L DO

Cost_Rev_a <- Kleinfelder %>%
  select(-(c(3,4,5))) %>%
  filter((Fac_Class == "A'" & NH3 == 1.5) | (Fac_Class == "A" & NH3 == 5))

Cost_Rev_b <- Kleinfelder[,1:5] %>%
  filter(DO == 6)

Cost_Rev <- left_join(Cost_Rev_a, Cost_Rev_b, by='Plant') %>%
  select(-c(6))
Cost_Rev <- Cost_Rev %>%
  mutate(DO = ifelse(is.na(DO),"NA",DO)) %>%
  mutate(Capital_Cost_DO_19 = ifelse(is.na(Capital_Cost_DO_19), 0, Capital_Cost_DO_19)) %>%
  mutate(OM_Cost_DO_19 = ifelse(is.na(OM_Cost_DO_19), 0, OM_Cost_DO_19)) %>%
  mutate(Tot_Capital_Cost_19 = Capital_Cost_NH3_19 + Capital_Cost_DO_19) %>%
  mutate(Tot_OM_Cost_19 = OM_Cost_NH3_19 + OM_Cost_DO_19)

Cost_Rev <- Cost_Rev[,c(1:3, 6, 4:5, 7:10)]
colnames(Cost_Rev)[colnames(Cost_Rev) == 'Fac_Class.x'] <- 'Fac_Class'

rm(Cost_Rev_a, Cost_Rev_b)

######################################################################
# Step 3: Convert cost from 2019$ to 2022$ using the CCI             #
######################################################################
CCI <- read_excel(paste0(input_path, "Construction_Cost_Index_2023.xlsx"))

# NOTE: REPLACE WITH 2022$
Conv <- CCI$AVG.[2]/CCI$AVG.[5]

# For original HADO
Cost$Capital_Cost_NH3_22 <- Cost$Capital_Cost_NH3_19*Conv
Cost$OM_Cost_NH3_22 <- Cost$OM_Cost_NH3_19*Conv
Cost <- Cost[,-c(4,5)]

# For revised HADO
Cost_Rev$Capital_Cost_NH3_22 <- Cost_Rev$Capital_Cost_NH3_19*Conv
Cost_Rev$OM_Cost_NH3_22 <- Cost_Rev$OM_Cost_NH3_19*Conv
Cost_Rev$Capital_Cost_DO_22 <- Cost_Rev$Capital_Cost_DO_19*Conv
Cost_Rev$OM_Cost_DO_22 <- Cost_Rev$OM_Cost_DO_19*Conv
Cost_Rev$Tot_Capital_Cost_22 <- Cost_Rev$Tot_Capital_Cost_19*Conv
Cost_Rev$Tot_OM_Cost_22 <- Cost_Rev$Tot_OM_Cost_19*Conv
Cost_Rev <- Cost_Rev[c(3:4, 1:2, 5:9),]

######################################################################
# Step 4: Create a matrix containing year-to-year costs incurred for #
# each facility. Calculate the TPV and annualized value.             #
######################################################################
# Assumptions:
# Capital Costs are spread evenly over 7-year period from 2024 to 2030
# O&M Costs occur over a 25-year period (to 2055).
# Discount cash flow at 3% and 7% back to the year 2024

promulg_yr <- 2024
analysis_pd <- 30
discount_1_5 <- 0.015
discount_2 <- 0.02
discount_3 <- 0.03
discount_7 <- 0.07

# prepare a matrix of annual costs
# Original HADO
cost_tbl <- matrix(0,nrow = nrow(Cost), ncol = analysis_pd)
colnames(cost_tbl) <- c("2024","2025","2026","2027","2028","2029","2030","2031","2032","2033",
                     "2034","2035","2036","2037","2038","2039","2040","2041","2042","2043",
                     "2044","2045","2046","2047","2048","2049", "2050", "2051", "2052", "2053")
# capital cost component
cost_tbl_capital <- cost_tbl
cost_tbl_capital[,c(1)] <- Cost$Capital_Cost_NH3_22
# O&M cost component
cost_tbl_om <- cost_tbl
cost_tbl_om[,6:30] <- Cost$OM_Cost_NH3_22
# capital and O&M
cost_tbl[,c(1)] <- Cost$Capital_Cost_NH3_22
cost_tbl[,6:30] <- Cost$OM_Cost_NH3_22

# Revised HADO
cost_tbl_rev <- matrix(0,nrow = nrow(Cost), ncol = analysis_pd)
colnames(cost_tbl_rev) <- c("2024","2025","2026","2027","2028","2029","2030","2031","2032","2033",
                        "2034","2035","2036","2037","2038","2039","2040","2041","2042","2043",
                        "2044","2045","2046","2047","2048","2049", "2050", "2051", "2052", "2053")
# capital cost component
cost_tbl_rev_capital <- cost_tbl_rev
cost_tbl_rev_capital[,c(1)] <- Cost_Rev$Tot_Capital_Cost_22
# O&M cost component
cost_tbl_rev_om <- cost_tbl_rev
cost_tbl_rev_om[,6:30] <- Cost_Rev$Tot_OM_Cost_22
# capital and O&M
cost_tbl_rev[,c(1)] <- Cost_Rev$Tot_Capital_Cost_22
cost_tbl_rev[,6:30] <- Cost_Rev$Tot_OM_Cost_22

Cost_Rev_Subset = subset(Cost_Rev, select = c(Plant, Fac_Class, NH3, DO, Tot_Capital_Cost_22, Tot_OM_Cost_22))

source(paste0(functions_path, "TPV_func.R"))
source(paste0(functions_path, "annualization.R"))

# create vector of years to apply to the TPV function
Year_vec = c(2024:2053)

# Original HADO ################################################
## Capital costs
# TPV using 1.5% discount rate.
TPV_1_5pct <- tot_pv(cost_tbl_capital, discount_1_5, Year_vec, promulg_yr)
# TPV using 2% discount rate.
TPV_2pct <- tot_pv(cost_tbl_capital, discount_2, Year_vec, promulg_yr)
# TPV using 3% discount rate.
TPV_3pct <- tot_pv(cost_tbl_capital, discount_3, Year_vec, promulg_yr)
# TPV using 7% discount rate.
TPV_7pct <- tot_pv(cost_tbl_capital, discount_7, Year_vec, promulg_yr)
# annualization of costs using a 1.5% discount rate
AN_1_5pct <- annualize(TPV_1_5pct, discount_1_5, analysis_pd, 1)
# annualization of costs using a 2% discount rate
AN_2pct <- annualize(TPV_2pct, discount_2, analysis_pd, 1)
# annualization of costs using a 3% discount rate
AN_3pct <- annualize(TPV_3pct, discount_3, analysis_pd, 1)
# annualization of costs using a 7% discount rate
AN_7pct <- annualize(TPV_7pct, discount_7, analysis_pd, 1)

# convert to million $
TPV_1_5pct <- TPV_1_5pct/1000000
TPV_2pct <- TPV_2pct/1000000
TPV_3pct <- TPV_3pct/1000000
TPV_7pct <- TPV_7pct/1000000
AN_1_5pct <- AN_1_5pct/1000000
AN_2pct <- AN_2pct/1000000
AN_3pct <- AN_3pct/1000000
AN_7pct <- AN_7pct/1000000

plant_costs <- cbind(Cost,TPV_1_5pct, AN_1_5pct, TPV_2pct, AN_2pct, TPV_3pct, AN_3pct, TPV_7pct, AN_7pct)
tot_costs <- c(sum(TPV_1_5pct), sum(AN_1_5pct), sum(TPV_2pct), sum(AN_2pct), sum(TPV_3pct), sum(AN_3pct), sum(TPV_7pct), sum(AN_7pct))
tot_costs <- as.data.frame(tot_costs)
names(tot_costs) <- c("Cost")
row.names(tot_costs) <- c("TPV (1.5%, million 2022$)", "total annualized value (1.5%, million 2022$)",
                          "TPV (2%, million 2022$)", "total annualized value (2%, million 2022$)",
                          "TPV (3%, million 2022$)", "total annualized value (3%, million 2022$)",
                          "TPV (7%, million 2022$)", "total annualized value (7%, million 2022$)")

names(plant_costs) <- c("Plant", "Facility Class", "Ammonia Limit", "Capital Cost (2022$)", "O&M Cost (2022$)",
                        "TPV (1.5%, million 2022$)", "annualized (1.5%, million 2022$)",
                        "TPV (2%, million 2022$)", "annualized (2%, million 2022$)",
                        "TPV (3%, million 2022$)", "annualized (3%, million 2022$)",
                        "TPV (7%, million 2022$)", "annualized (7%, million 2022$)")

# capital costs
write.csv(plant_costs, paste0(output_path, "Alternate_Orig_HADO_Plant_Capital_Costs_",Scen_RunDate,".csv"))
write.csv(tot_costs, paste0(output_path, "Alternate_Orig_HADO_Total_Capital_Costs_",Scen_RunDate,".csv"), row.names = TRUE)

## O&M Costs
# TPV using 1.5% discount rate.
TPV_1_5pct <- tot_pv(cost_tbl_om, discount_1_5, Year_vec, promulg_yr)
# TPV using 2% discount rate.
TPV_2pct <- tot_pv(cost_tbl_om, discount_2, Year_vec, promulg_yr)
# TPV using 3% discount rate.
TPV_3pct <- tot_pv(cost_tbl_om, discount_3, Year_vec, promulg_yr)
# TPV using 7% discount rate.
TPV_7pct <- tot_pv(cost_tbl_om, discount_7, Year_vec, promulg_yr)
# annualization of costs using a 1.5% discount rate
AN_1_5pct <- annualize(TPV_1_5pct, discount_1_5, analysis_pd, 1)
# annualization of costs using a 2% discount rate
AN_2pct <- annualize(TPV_2pct, discount_2, analysis_pd, 1)
# annualization of costs using a 3% discount rate
AN_3pct <- annualize(TPV_3pct, discount_3, analysis_pd, 1)
# annualization of costs using a 7% discount rate
AN_7pct <- annualize(TPV_7pct, discount_7, analysis_pd, 1)

# convert to million $
TPV_1_5pct <- TPV_1_5pct/1000000
TPV_2pct <- TPV_2pct/1000000
TPV_3pct <- TPV_3pct/1000000
TPV_7pct <- TPV_7pct/1000000
AN_1_5pct <- AN_1_5pct/1000000
AN_2pct <- AN_2pct/1000000
AN_3pct <- AN_3pct/1000000
AN_7pct <- AN_7pct/1000000

plant_costs <- cbind(Cost,TPV_1_5pct, AN_1_5pct, TPV_2pct, AN_2pct, TPV_3pct, AN_3pct, TPV_7pct, AN_7pct)
tot_costs <- c(sum(TPV_1_5pct), sum(AN_1_5pct), sum(TPV_2pct), sum(AN_2pct), sum(TPV_3pct), sum(AN_3pct), sum(TPV_7pct), sum(AN_7pct))
tot_costs <- as.data.frame(tot_costs)
names(tot_costs) <- c("Cost")
row.names(tot_costs) <- c("TPV (1.5%, million 2022$)", "total annualized value (1.5%, million 2022$)",
                          "TPV (2%, million 2022$)", "total annualized value (2%, million 2022$)",
                          "TPV (3%, million 2022$)", "total annualized value (3%, million 2022$)",
                          "TPV (7%, million 2022$)", "total annualized value (7%, million 2022$)")

names(plant_costs) <- c("Plant", "Facility Class", "Ammonia Limit", "Capital Cost (2022$)", "O&M Cost (2022$)",
                        "TPV (1.5%, million 2022$)", "annualized (1.5%, million 2022$)",
                        "TPV (2%, million 2022$)", "annualized (2%, million 2022$)",
                        "TPV (3%, million 2022$)", "annualized (3%, million 2022$)",
                        "TPV (7%, million 2022$)", "annualized (7%, million 2022$)")

# O&M costs
write.csv(plant_costs, paste0(output_path, "Alternate_Orig_HADO_Plant_OM_Costs_",Scen_RunDate,".csv"))
write.csv(tot_costs, paste0(output_path, "Alternate_Orig_HADO_Total_OM_Costs_",Scen_RunDate,".csv"), row.names = TRUE)

## Capital and O&M costs
# TPV using 1.5% discount rate.
TPV_1_5pct <- tot_pv(cost_tbl, discount_1_5, Year_vec, promulg_yr)
# TPV using 2% discount rate.
TPV_2pct <- tot_pv(cost_tbl, discount_2, Year_vec, promulg_yr)
# TPV using 3% discount rate.
TPV_3pct <- tot_pv(cost_tbl, discount_3, Year_vec, promulg_yr)
# TPV using 7% discount rate.
TPV_7pct <- tot_pv(cost_tbl, discount_7, Year_vec, promulg_yr)
# annualization of costs using a 1.5% discount rate
AN_1_5pct <- annualize(TPV_1_5pct, discount_1_5, analysis_pd, 1)
# annualization of costs using a 2% discount rate
AN_2pct <- annualize(TPV_2pct, discount_2, analysis_pd, 1)
# annualization of costs using a 3% discount rate
AN_3pct <- annualize(TPV_3pct, discount_3, analysis_pd, 1)
# annualization of costs using a 7% discount rate
AN_7pct <- annualize(TPV_7pct, discount_7, analysis_pd, 1)

# convert to million $
TPV_1_5pct <- TPV_1_5pct/1000000
TPV_2pct <- TPV_2pct/1000000
TPV_3pct <- TPV_3pct/1000000
TPV_7pct <- TPV_7pct/1000000
AN_1_5pct <- AN_1_5pct/1000000
AN_2pct <- AN_2pct/1000000
AN_3pct <- AN_3pct/1000000
AN_7pct <- AN_7pct/1000000

plant_costs <- cbind(Cost,TPV_1_5pct, AN_1_5pct, TPV_2pct, AN_2pct, TPV_3pct, AN_3pct, TPV_7pct, AN_7pct)
tot_costs <- c(sum(TPV_1_5pct), sum(AN_1_5pct), sum(TPV_2pct), sum(AN_2pct), sum(TPV_3pct), sum(AN_3pct), sum(TPV_7pct), sum(AN_7pct))
tot_costs <- as.data.frame(tot_costs)
names(tot_costs) <- c("Cost")
row.names(tot_costs) <- c("TPV (1.5%, million 2022$)", "total annualized value (1.5%, million 2022$)",
                          "TPV (2%, million 2022$)", "total annualized value (2%, million 2022$)",
                          "TPV (3%, million 2022$)", "total annualized value (3%, million 2022$)",
                          "TPV (7%, million 2022$)", "total annualized value (7%, million 2022$)")

names(plant_costs) <- c("Plant", "Facility Class", "Ammonia Limit", "Capital Cost (2022$)", "O&M Cost (2022$)",
                        "TPV (1.5%, million 2022$)", "annualized (1.5%, million 2022$)",
                        "TPV (2%, million 2022$)", "annualized (2%, million 2022$)",
                        "TPV (3%, million 2022$)", "annualized (3%, million 2022$)",
                        "TPV (7%, million 2022$)", "annualized (7%, million 2022$)")

# total costs
write.csv(plant_costs, paste0(output_path, "Alternate_Orig_HADO_Plant_Costs_",Scen_RunDate,".csv"))
write.csv(tot_costs, paste0(output_path, "Alternate_Orig_HADO_Total_Costs_",Scen_RunDate,".csv"), row.names = TRUE)

# Revised HADO ################################################

## Capital costs
# TPV using 1.5% discount rate.
TPV_1_5pct <- tot_pv(cost_tbl_rev_capital, discount_1_5, Year_vec, promulg_yr)
# TPV using 2% discount rate.
TPV_2pct <- tot_pv(cost_tbl_rev_capital, discount_2, Year_vec, promulg_yr)
# TPV using 3% discount rate.
TPV_3pct <- tot_pv(cost_tbl_rev_capital, discount_3, Year_vec, promulg_yr)
# TPV using 7% discount rate.
TPV_7pct <- tot_pv(cost_tbl_rev_capital, discount_7, Year_vec, promulg_yr)
# annualization of costs using a 1.5% discount rate
AN_1_5pct <- annualize(TPV_1_5pct, discount_1_5, analysis_pd, 1)
# annualization of costs using a 2% discount rate
AN_2pct <- annualize(TPV_2pct, discount_2, analysis_pd, 1)
# annualization of costs using a 3% discount rate
AN_3pct <- annualize(TPV_3pct, discount_3, analysis_pd, 1)
# annualization of costs using a 7% discount rate
AN_7pct <- annualize(TPV_7pct, discount_7, analysis_pd, 1)

# convert to million $
TPV_1_5pct <- TPV_1_5pct/1000000
TPV_2pct <- TPV_2pct/1000000
TPV_3pct <- TPV_3pct/1000000
TPV_7pct <- TPV_7pct/1000000
AN_1_5pct <- AN_1_5pct/1000000
AN_2pct <- AN_2pct/1000000
AN_3pct <- AN_3pct/1000000
AN_7pct <- AN_7pct/1000000

plant_costs <- cbind(Cost_Rev_Subset,TPV_1_5pct, AN_1_5pct, TPV_2pct, AN_2pct, TPV_3pct, AN_3pct, TPV_7pct, AN_7pct)
tot_costs <- c(sum(TPV_1_5pct), sum(AN_1_5pct), sum(TPV_2pct), sum(AN_2pct), sum(TPV_3pct), sum(AN_3pct), sum(TPV_7pct), sum(AN_7pct))
tot_costs <- as.data.frame(tot_costs)
names(tot_costs) <- c("Cost")
row.names(tot_costs) <- c("TPV (1.5%, million 2022$)", "total annualized value (1.5%, million 2022$)",
                          "TPV (2%, million 2022$)", "total annualized value (2%, million 2022$)",
                          "TPV (3%, million 2022$)", "total annualized value (3%, million 2022$)",
                          "TPV (7%, million 2022$)", "total annualized value (7%, million 2022$)")

names(plant_costs) <- c("Plant", "Facility Class", "Ammonia Limit", "DO Limit", "Capital Cost (2022$)", "O&M Cost (2022$)",
                        "TPV (1.5%, million 2022$)", "annualized (1.5%, million 2022$)",
                        "TPV (2%, million 2022$)", "annualized (2%, million 2022$)",
                        "TPV (3%, million 2022$)", "annualized (3%, million 2022$)",
                        "TPV (7%, million 2022$)", "annualized (7%, million 2022$)")

# capital costs
write.csv(plant_costs, paste0(output_path, "Alternate_Revised_HADO_Plant_Capital_Costs_",Scen_RunDate,".csv"))
write.csv(tot_costs, paste0(output_path, "Alternate_Revised_HADO_Total_Capital_Costs_",Scen_RunDate,".csv"), row.names = TRUE)

## O&M Costs
# TPV using 1.5% discount rate.
TPV_1_5pct <- tot_pv(cost_tbl_rev_om, discount_1_5, Year_vec, promulg_yr)
# TPV using 2% discount rate.
TPV_2pct <- tot_pv(cost_tbl_rev_om, discount_2, Year_vec, promulg_yr)
# TPV using 3% discount rate.
TPV_3pct <- tot_pv(cost_tbl_rev_om, discount_3, Year_vec, promulg_yr)
# TPV using 7% discount rate.
TPV_7pct <- tot_pv(cost_tbl_rev_om, discount_7, Year_vec, promulg_yr)
# annualization of costs using a 1.5% discount rate
AN_1_5pct <- annualize(TPV_1_5pct, discount_1_5, analysis_pd, 1)
# annualization of costs using a 2% discount rate
AN_2pct <- annualize(TPV_2pct, discount_2, analysis_pd, 1)
# annualization of costs using a 3% discount rate
AN_3pct <- annualize(TPV_3pct, discount_3, analysis_pd, 1)
# annualization of costs using a 7% discount rate
AN_7pct <- annualize(TPV_7pct, discount_7, analysis_pd, 1)

# convert to million $
TPV_1_5pct <- TPV_1_5pct/1000000
TPV_2pct <- TPV_2pct/1000000
TPV_3pct <- TPV_3pct/1000000
TPV_7pct <- TPV_7pct/1000000
AN_1_5pct <- AN_1_5pct/1000000
AN_2pct <- AN_2pct/1000000
AN_3pct <- AN_3pct/1000000
AN_7pct <- AN_7pct/1000000

plant_costs <- cbind(Cost_Rev_Subset,TPV_1_5pct, AN_1_5pct, TPV_2pct, AN_2pct, TPV_3pct, AN_3pct, TPV_7pct, AN_7pct)
tot_costs <- c(sum(TPV_1_5pct), sum(AN_1_5pct), sum(TPV_2pct), sum(AN_2pct), sum(TPV_3pct), sum(AN_3pct), sum(TPV_7pct), sum(AN_7pct))
tot_costs <- as.data.frame(tot_costs)
names(tot_costs) <- c("Cost")
row.names(tot_costs) <- c("TPV (1.5%, million 2022$)", "total annualized value (1.5%, million 2022$)",
                          "TPV (2%, million 2022$)", "total annualized value (2%, million 2022$)",
                          "TPV (3%, million 2022$)", "total annualized value (3%, million 2022$)",
                          "TPV (7%, million 2022$)", "total annualized value (7%, million 2022$)")

names(plant_costs) <- c("Plant", "Facility Class", "Ammonia Limit", "DO Limit", "Capital Cost (2022$)", "O&M Cost (2022$)",
                        "TPV (1.5%, million 2022$)", "annualized (1.5%, million 2022$)",
                        "TPV (2%, million 2022$)", "annualized (2%, million 2022$)",
                        "TPV (3%, million 2022$)", "annualized (3%, million 2022$)",
                        "TPV (7%, million 2022$)", "annualized (7%, million 2022$)")

# O&M costs
write.csv(plant_costs, paste0(output_path, "Alternate_Revised_HADO_Plant_OM_Costs_",Scen_RunDate,".csv"))
write.csv(tot_costs, paste0(output_path, "Alternate_Revised_HADO_Total_OM_Costs_",Scen_RunDate,".csv"), row.names = TRUE)

## Capital and O&M costs
# TPV using 1.5% discount rate.
TPV_1_5pct <- tot_pv(cost_tbl_rev, discount_1_5, Year_vec, promulg_yr)
# TPV using 2% discount rate.
TPV_2pct <- tot_pv(cost_tbl_rev, discount_2, Year_vec, promulg_yr)
# TPV using 3% discount rate.
TPV_3pct <- tot_pv(cost_tbl_rev, discount_3, Year_vec, promulg_yr)
# TPV using 7% discount rate.
TPV_7pct <- tot_pv(cost_tbl_rev, discount_7, Year_vec, promulg_yr)
# annualization of costs using a 1.5% discount rate
AN_1_5pct <- annualize(TPV_1_5pct, discount_1_5, analysis_pd, 1)
# annualization of costs using a 2% discount rate
AN_2pct <- annualize(TPV_2pct, discount_2, analysis_pd, 1)
# annualization of costs using a 3% discount rate
AN_3pct <- annualize(TPV_3pct, discount_3, analysis_pd, 1)
# annualization of costs using a 7% discount rate
AN_7pct <- annualize(TPV_7pct, discount_7, analysis_pd, 1)

# convert to million $
TPV_1_5pct <- TPV_1_5pct/1000000
TPV_2pct <- TPV_2pct/1000000
TPV_3pct <- TPV_3pct/1000000
TPV_7pct <- TPV_7pct/1000000
AN_1_5pct <- AN_1_5pct/1000000
AN_2pct <- AN_2pct/1000000
AN_3pct <- AN_3pct/1000000
AN_7pct <- AN_7pct/1000000

plant_costs <- cbind(Cost_Rev_Subset,TPV_1_5pct, AN_1_5pct, TPV_2pct, AN_2pct, TPV_3pct, AN_3pct, TPV_7pct, AN_7pct)
tot_costs <- c(sum(TPV_1_5pct), sum(AN_1_5pct), sum(TPV_2pct), sum(AN_2pct), sum(TPV_3pct), sum(AN_3pct), sum(TPV_7pct), sum(AN_7pct))
tot_costs <- as.data.frame(tot_costs)
names(tot_costs) <- c("Cost")
row.names(tot_costs) <- c("TPV (1.5%, million 2022$)", "total annualized value (1.5%, million 2022$)",
                          "TPV (2%, million 2022$)", "total annualized value (2%, million 2022$)",
                          "TPV (3%, million 2022$)", "total annualized value (3%, million 2022$)",
                          "TPV (7%, million 2022$)", "total annualized value (7%, million 2022$)")

names(plant_costs) <- c("Plant", "Facility Class", "Ammonia Limit", "DO Limit", "Capital Cost (2022$)", "O&M Cost (2022$)",
                        "TPV (1.5%, million 2022$)", "annualized (1.5%, million 2022$)",
                        "TPV (2%, million 2022$)", "annualized (2%, million 2022$)",
                        "TPV (3%, million 2022$)", "annualized (3%, million 2022$)",
                        "TPV (7%, million 2022$)", "annualized (7%, million 2022$)")

# total costs
write.csv(plant_costs, paste0(output_path, "Alternate_Revised_HADO_Plant_Costs_Rev_",Scen_RunDate,".csv"))
write.csv(tot_costs, paste0(output_path, "Alternate_Revised_HADO_Total_Costs_Rev_",Scen_RunDate,".csv"), row.names = TRUE)


[Federal Register: August 7, 2009 (Volume 74, Number 151)]
[Proposed Rules]
[Page 39584-39589]
[DOCID:fr07au09-12]

=======================================================================
-----------------------------------------------------------------------

DEPARTMENT OF HOMELAND SECURITY

Coast Guard

33 CFR Part 165

[Docket No. USCG-2009-0277]
RIN 1625-AA00

Safety Zone; San Clemente Island, CA

AGENCY: Coast Guard, DHS.

ACTION: Notice of proposed rulemaking.

-----------------------------------------------------------------------

SUMMARY: The Coast Guard proposes establishing a safety zone around San
Clemente Island in support of potentially hazardous military training
and testing exercises. The existing zones do not sufficiently overlap
potential danger zones and testing areas used by the Navy during live-
fire and ocean research operations resulting in a delay or cancellation
of these operations. The proposed safety zone would protect the public
from hazardous, live-fire and testing operations and ensure operations
proceed as scheduled.

DATES: Comments and related material must be received by the Coast
Guard on or before November 5, 2009. Requests for public meetings must
be received by the Coast Guard on or before August 28, 2009.

ADDRESSES: You may submit comments identified by docket number USCG-
2009-0277 using any one of the following methods:
    (1) Federal eRulemaking Portal: http://www.regulations.gov.
    (2) Fax:<PHONE_NUMBER>.
    (3) Mail: Docket Management Facility (M-30), U.S. Department of
Transportation, West Building Ground Floor, Room W12-140, 1200 New
Jersey Avenue, SE., Washington, DC 20590-0001.
    (4) Hand delivery: Same as mail address above, between 9 a.m. and 5
p.m., Monday through Friday, except Federal holidays. The telephone
number is<PHONE_NUMBER>.
    To avoid duplication, please use only one of these four methods.
See the ``Public Participation and Request for Comments'' portion of
the SUPPLEMENTARY INFORMATION section below for instructions on
submitting comments.

FOR FURTHER INFORMATION CONTACT: If you have questions on this proposed
rule, call or e-mail Petty Officer Kristen Beer, Waterways Management,
U.S. Coast Guard Sector San Diego, Coast Guard; telephone<PHONE_NUMBER>,
e-mail<EMAIL_ADDRESS>If you have questions on viewing or
submitting material to the docket, call Renee V. Wright, Program
Manager, Docket Operations, telephone<PHONE_NUMBER>.

SUPPLEMENTARY INFORMATION:

Public Participation and Request for Comments

    We encourage you to participate in this rulemaking by submitting
comments and related materials. All comments received will be posted
without change to http://www.regulations.gov and will include any
personal information you have provided.

Submitting Comments

    If you submit a comment, please include the docket number for this
rulemaking (USCG-2009-0277), indicate the specific section of this
document to which each comment applies, and provide a reason for each
suggestion or recommendation. You may submit your comments and material
online (via http://www.regulations.gov) or by fax, mail, or hand
deliver, but please use only one of these means. If you submit a
comment online via http://www.regulations.gov, it will be considered
received by the Coast Guard when you successfully transmit the comment.
If you fax, hand deliver, or mail your comment, it will be considered
as having been received by the Coast Guard when it is received at the
Docket Management Facility. We recommend that you include your name and
a mailing address, an e-mail address, or a telephone number in the body
of your document so that we can

contact you if we have questions regarding your submission.
    To submit your comment online, go to http://www.regulations.gov,
select the Advanced Docket Search option on the right side of the
screen, insert ``USCG-2009-0277'' in the Docket ID box, press Enter,
and then click on the balloon shape in the Actions column. If you
submit your comments by mail or hand delivery, submit them in an
unbound format, no larger than 8[frac12] by 11 inches, suitable for
copying and electronic filing. If you submit comments by mail and would
like to know that they reached the Facility, please enclose a stamped,
self-addressed postcard or envelope. We will consider all comments and
material received during the comment period and may change the rule
based on your comments.

Viewing Comments and Documents

    To view comments, as well as documents mentioned in this preamble
as being available in the docket, go to http://www.regulations.gov,
select the Advanced Docket Search option on the right side of the
screen, insert USCG-2009-0277 in the Docket ID box, press Enter, and
then click on the item in the Docket ID column. You may also visit the
Docket Management Facility in Room W12-140 on the ground floor of the
Department of Transportation West Building, 1200 New Jersey Avenue,
SE., Washington, DC 20590, between 9 a.m. and 5 p.m., Monday through
Friday, except Federal holidays. We have an agreement with the
Department of Transportation to use the Docket Management Facility.

Privacy Act

    Anyone can search the electronic form of comments received into any
of our dockets by the name of the individual submitting the comment (or
signing the comment, if submitted on behalf of an association,
business, labor union, etc.). You may review a Privacy Act notice
regarding our public dockets in the January 17, 2008 issue of the
Federal Register (73 FR 3316).

Public Meeting

    We do not now plan to hold a public meeting. But you may submit a
request for one using one of the four methods specified under
ADDRESSES. Please explain why you believe a public meeting would be
beneficial. If we determine that one would aid this rulemaking, we will
hold one at a time and place announced by a later notice in the Federal
Register.

Regulatory Information

    The Coast Guard is proposing to establish this safety zone to
conduct training essential to successful accomplishment of U.S. Navy
missions relating to military operations and national security.
Accordingly, this proposed safety zone falls within the military
function exception to the Administrative Procedure Act (APA), 5 U.S.C.
553(a)(1). Notice and comment rulemaking under 5 U.S.C. 553(b) and an
effective date of 30 days after publication under 5 U.S.C. 553(d) are
not required for this rulemaking.
    However, we have determined that it would be beneficial to accept
public comments on this proposed rule. Therefore, we will be accepting
comments until November 5, 2009. By issuing this notice of proposed
rulemaking and accepting public comments, the Coast Guard does not
waive its ability to claim the military function exception to notice
and comment rulemaking.

Background and Purpose

    As part of the Southern California Range Complex, San Clemente
Island (SCI) and the surrounding littoral waters support the training
requirements for the U.S. Pacific Fleet, Fleet Marine Forces Pacific,
Naval Special Warfare Command, Naval Expeditionary Combat Command and
other military training and research units. In 1934, Executive Order
6897 transferred ownership of SCI from the Department of Commerce to
the Department of the Navy for ``naval purposes''. The San Clemente
Island Range Complex (SCIRC) has the capability to support training in
all warfare areas including Undersea Warfare, Surface Warfare, Mine
Warfare, Strike Warfare, Air Warfare, Amphibious Warfare, Command and
Control, and Naval Special Warfare. It is the only location in the
United States that supports Naval Special Warfare full-mission training
profiles. The Shore Bombardment Area (SHOBA) is the only range in the
United States where expeditionary fire support exercises utilizing ship
to shore naval gunfire can be conducted. SCI's unique coastal
topography, proximity to the major Fleet and Marine concentration areas
in San Diego County, supporting infrastructure, and exclusive Navy
ownership make the island and surrounding waters vitally important for
fleet training, weapon and electronic systems testing, and research and
development activities.
    The proposed safety zone is necessary to protect the public from
hazardous, live-fire and testing operations and ensure operations
proceed as scheduled.

Discussion of Proposed Rule

    The Coast Guard proposes to establish a permanent safety zone
around San Clemente Island for use by the U.S. Navy. The segmented
safety zone would extend from the high tide line seaward 3 NM. The zone
would be broken down into the following sections:

(a) Section A

    Beginning at 33[deg]02.05[min] N, 118[deg]35.85[min] W; thence to
33[deg]04.93[min] N, 118[deg]37.07[min] W; thence running parallel to
the shore at a distance of approximately 3 NM from the high tide line
to 33[deg]02.82[min] N, 118[deg]30.65[min] W; thence to
33[deg]17.28[min] N, 118[deg]33.88[min] W; thence along the shoreline
returning to 33[deg]02.05[min] N, 118[deg]35.85[min] W.

(b) Section B

    Beginning at 32[deg]57.30[min] N, 118[deg]30.88[min] W; thence to
32[deg]59.60[min] N, 118[deg]28.33[min] W; thence running parallel to
the shore at a distance of approximately 3 NM from the high tide line
to 32[deg]55.83[min] N, 118[deg]24.22[min] W; thence to
32[deg]53.53[min] N, 118[deg]26.52[min] W; thence along the shoreline
returning to 32[deg]57.30[min] N, 118[deg]30.88[min] W.

(c) Section C

    Beginning at 32[deg]53.53[min] N, 118[deg]26.52[min] W; thence to
32[deg]55.83[min] N, 118[deg]24.22[min] W; thence running parallel to
the shoreline at a distance of approximately 3 NM from the high tide
line to 32[deg]47.27[min] N, 118[deg]18.23[min] W; thence to
32[deg]49.10[min] N, 118[deg]21.05[min] W; thence along the shoreline
returning to 32[deg]53.53[min] N, 118[deg]26.52[min] W.

(d) Section D

    Beginning at 32[deg]49.10[min] N, 118[deg]21.05[min] W; thence to
32[deg]47.27[min] N, 118[deg]18.23[min] W; thence running parallel to
the shoreline at a distance of approximately 3 NM from the high tide
line to 32[deg]48.38[min] N, 118[deg]31.69[min] W; thence to
32[deg]50.70[min] N, 118[deg]29.37[min] W; thence along the shoreline
returning to 32[deg]49.10[min] N, 118[deg]21.05[min] W.

(e) Section E

    Beginning at 32[deg]50.70' N, 118[deg]29.37' W; thence to
32[deg]48.05' N, 118[deg]31.68' W; thence running parallel to the
shoreline at a distance of approximately 3 NM from the high tide line
to 32[deg]53.62' N, 118[deg]35.93' W; thence to 32[deg]56.13' N,
118[deg]32.95' W; thence along the shoreline returning to 32[deg]50.70'
N, 118[deg]29.37' W.

(f) Section F

    Beginning at 32[deg]56.13' N, 118[deg]32.95' W; thence to
32[deg]53.62' N, 118[deg]35.93' W; thence running parallel to the
shoreline at a distance of approximately 3 NM

from the high tide line to 32[deg]59.95' N, 118[deg]39.77' W; thence to
33[deg]01.08' N, 118[deg]36.33' W; thence along the shoreline returning
to 32[deg]56.13' N, 118[deg]32.95' W.

(g) Section G

    Beginning at 33[deg]01.08' N, 118[deg]36.333' W; thence to
32[deg]59.95' N, 118[deg]39.77' W; thence running parallel to the
shoreline at a distance of approximately 3 NM from the high tide line
to 33[deg]04.93' N, 118[deg]37.07' W; thence to 33[deg]02.05' N,
118[deg]35.85' W; thence along the shoreline returning to 33[deg]01.08'
N, 118[deg]36.33' W.

(h) Wilson Cove

    Beginning at 33[deg]01.28' N, 118[deg]33.88' W; thence to
33[deg]02.82' N, 118[deg]30.65' W; thence running parallel to the
shoreline at a distance of approximately 3 NM from the high tide line
to 32[deg]59.60' N, 118[deg]28.33' W; thence to 32[deg]57.30' N,
118[deg]30.88' W; thence along the shoreline returning to 33[deg]01.28'
N, 118[deg]33.88' W.
    All of the sections above would be continually enforced as a safety
zone, thereby restricting public use of these offshore waters. Mariners
desiring to transit through Section G or the Wilson Cove section would
be required to request authorization to do so from the Fleet Area
Control and Surveillance Facility (FACSFAC) San Diego. In the final
rule, the Navy will provide a call sign to be used by mariners to
request transfer to the appropriate FACSFAC point of contact for
authorizing safe transit through these safety zone sections.
    Mariners who wish to transit through any of the other six sections
(A, B, C, D, E, and/or F) would also be required to request permission
from FACSFAC San Diego, using the same procedure described above,
except during periods when the Navy is not conducting potentially
hazardous military training or testing activity. Mariners would be able
to transit some or all of these sections without obtaining prior
authorization from FACSFAC San Diego only when the Coast Guard notifies
the public that enforcement of the zone in specified sections is
temporarily suspended. Notice of suspended enforcement would be
provided through broadcast notice to mariners and publication in the
local notice to mariners; and the schedule of restricted access periods
by date, location and duration would continue to be posted at http://
www.scisland.org.

Regulatory Analyses

    We developed this proposed rule after considering numerous statutes
and executive orders related to rulemaking. Below we summarize our
analyses based on 13 of these statutes or executive orders.

Regulatory Planning and Review

    This proposed rule is not a significant regulatory action under
section 3(f) of Executive Order 12866, Regulatory Planning and Review,
and does not require an assessment of potential costs and benefits
under section 6(a)(3) of that Order. The Office of Management and
Budget has not reviewed it under that Order. We expect the economic
impact of this rule to be so minimal that a full Regulatory Evaluation
is unnecessary. This determination is based on the fact that the
majority of the proposed safety zone will be open a significant portion
of the time.

Small Entities

    Under the Regulatory Flexibility Act (5 U.S.C. 601-612), we have
considered whether this proposed rule would have a significant economic
impact on a substantial number of small entities. The term ``small
entities'' comprises small businesses, not-for-profit organizations
that are independently owned and operated and are not dominant in their
fields, and governmental jurisdictions with populations of less than
50,000.
    The Coast Guard certifies under 5 U.S.C. 605(b) that this proposed
rule would not have a significant economic impact on a substantial
number of small entities.
    This proposed rule would affect the following entities, some of
which might be small entities: The owners or operators of vessels
intending to transit or anchor in a portion of the Pacific Ocean around
San Clemente Island.
    This safety zone would not have a significant economic impact on a
substantial number of small entities for the following reasons. Except
for Section G and Wilson Cove, which will be continually enforced, the
safety zone would be activated, and thus subject to enforcement, only
during naval training and testing exercises. During periods when
portions of the safety zone are enforced in sections A through F,
vessel traffic could pass safely around the safety zone. When the
safety zone is not enforced, vessel traffic would be allowed to use the
offshore waters for commercial and recreational activities. Permission
for safe vessel transit through the permanently restricted safety zones
designated Section G and Wilson Cove may be requested of the Fleet Area
Control and Surveillance Facility, San Diego.
    If you think that your business, organization, or governmental
jurisdiction qualifies as a small entity and that this rule would have
a significant economic impact on it, please submit a comment (see
ADDRESSES) explaining why you think it qualifies and how and to what
degree this rule would economically affect it.

Assistance for Small Entities

    Under section 213(a) of the Small Business Regulatory Enforcement
Fairness Act of 1996 (Pub. L. 104-121), we want to assist small
entities in understanding this proposed rule so that they can better
evaluate its possible effects, if any, on them and participate in the
rulemaking. If the rule would affect your small business, organization,
or governmental jurisdiction and you have questions concerning its
provisions or options for compliance, please contact Petty Officer
Kristen Beer (see ADDRESSES). The Coast Guard will not retaliate
against small entities that question or complain about this proposed
rule or any policy or action of the Coast Guard.

Collection of Information

    This proposed rule would call for no new collection of information
under the Paperwork Reduction Act of 1995 (44 U.S.C. 3501-3520).

Federalism

    A rule has implications for federalism under Executive Order 13132,
Federalism, if it has a substantial direct effect on State or local
governments and would either preempt State law or impose a substantial
direct cost of compliance on them. We have analyzed this proposed rule
under that Order and have determined that it does not have implications
for federalism.

Unfunded Mandates Reform Act

    The Unfunded Mandates Reform Act of 1995 (2 U.S.C. 1531-1538)
requires Federal agencies to assess the effects of their discretionary
regulatory actions. In particular, the Act addresses actions that may
result in the expenditure by a State, local, or tribal government, in
the aggregate, or by the private sector of $100,000,000 or more in any
one year. Though this proposed rule would not result in such an
expenditure, we do discuss the effects of this rule elsewhere in this
preamble.

Taking of Private Property

    This proposed rule would not effect a taking of private property or
otherwise have taking implications under Executive Order 12630,
Governmental Actions and Interference with

Constitutionally Protected Property Rights.

Civil Justice Reform

    This proposed rule meets applicable standards in sections 3(a) and
3(b)(2) of Executive Order 12988, Civil Justice Reform, to minimize
litigation, eliminate ambiguity, and reduce burden.

Protection of Children

    We have analyzed this proposed rule under Executive Order 13045,
Protection of Children from Environmental Health Risks and Safety
Risks. This rule is not an economically significant rule and would not
create an environmental risk to health or risk to safety that might
disproportionately affect children.

Indian Tribal Governments

    This proposed rule does not have tribal implications under
Executive Order 13175, Consultation and Coordination with Indian Tribal
Governments, because it would not have a substantial direct effect on
one or more Indian tribes, on the relationship between the Federal
Government and Indian tribes, or on the distribution of power and
responsibilities between the Federal Government and Indian tribes.

Energy Effects

    We have analyzed this proposed rule under Executive Order 13211,
Actions Concerning Regulations That Significantly Affect Energy Supply,
Distribution, or Use. We have determined that it is not a ``significant
energy action'' under that order because it is not a ``significant
regulatory action'' under Executive Order 12866 and is not likely to
have a significant adverse effect on the supply, distribution, or use
of energy. The Administrator of the Office of Information and
Regulatory Affairs has not designated it as a significant energy
action. Therefore, it does not require a Statement of Energy Effects
under Executive Order 13211.

Technical Standards

    The National Technology Transfer and Advancement Act (NTTAA) (15
U.S.C. 272 note) directs agencies to use voluntary consensus standards
in their regulatory activities unless the agency provides Congress,
through the Office of Management and Budget, with an explanation of why
using these standards would be inconsistent with applicable law or
otherwise impractical. Voluntary consensus standards are technical
standards (e.g., specifications of materials, performance, design, or
operation; test methods; sampling procedures; and related management
systems practices) that are developed or adopted by voluntary consensus
standards bodies.
    This proposed rule does not use technical standards. Therefore, we
did not consider the use of voluntary consensus standards.

Environment

    We have analyzed this proposed rule under Department of Homeland
Security Management Directive 0023.1 and Commandant Instruction
M16475.lD, which guide the Coast Guard in complying with the National
Environmental Policy Act of 1969 (NEPA) (42 U.S.C. 4321-4370f), and
have made a preliminary determination that this action is one of a
category of actions which do not individually or cumulatively have a
significant effect on the human environment. A preliminary
environmental analysis checklist supporting this determination is
available in the docket where indicated under ADDRESSES. This proposed
rule involves establishing a safety zone under figure 2-1, paragraph
(34)(g), of the Instruction. We seek any comments or information that
may lead to the discovery of a significant environmental impact from
this proposed rule.

List of Subjects in 33 CFR Part 165

    Harbors, Marine safety, Navigation (water), Reporting and
recordkeeping requirements, Security measures, Waterways.

    For the reasons discussed in the preamble, the Coast Guard proposes
to amend 33 CFR part 165 as follows:

PART 165--REGULATED NAVIGATION AREAS AND LIMITED ACCESS AREAS

    1. The authority citation for part 165 continues to read as
follows:

    Authority:  33 U.S.C. 1226, 1231; 46 U.S.C. Chapter 701, 3306,
3703; 50 U.S.C. 191, 195; 33 CFR 1.05-1, 6.04-1, 6.04-6, and 160.5;
Public Law 107-295, 116 Stat. 2064; Department of Homeland Security
Delegation No. 0170.1.

    2. Add a new Sec.  165.1141:

Sec.  165.1141  Safety Zone; San Clemente Island, CA.

    (a) Location. The following area is a safety zone: All waters of
the Pacific Ocean surrounding San Clemente Island, from surface to
bottom, extending from the high tide line on the island seaward 3 NM.
The zone consists of the following sections (see Figure 1):

(1) Section A

    Beginning at 33[deg]02.05' N, 118[deg]35.85' W; thence to
33[deg]04.93' N, 118[deg]37.07' W; thence running parallel to the shore
at a distance of approximately 3 NM from the high tide line to
33[deg]02.82' N, 118[deg]30.65' W; thence to 33[deg]17.28' N,
118[deg]33.88' W; thence along the shoreline returning to 33[deg]02.05'
N, 118[deg]35.85' W.

(2) Section B

    Beginning at 32[deg]57.30' N, 118[deg]30.88' W; thence to
32[deg]59.60' N, 118[deg]28.33' W; thence running parallel to the shore
at a distance of approximately 3 NM from the high tide line to
32[deg]55.83' N, 118[deg]24.22' W; thence to 32[deg]53.53' N,
118[deg]26.52' W; thence along the shoreline returning to 32[deg]57.30'
N, 118[deg]30.88' W.

(3) Section C

    Beginning at 32[deg]53.53' N, 118[deg]26.52' W; thence to
32[deg]55.83' N, 118[deg]24.22' W; thence running parallel to the
shoreline at a distance of approximately 3 NM from the high tide line
to 32[deg]47.27' N, 118[deg]18.23' W; thence to 32[deg]49.10' N,
118[deg]21.05' W; thence along the shoreline returning to 32[deg]53.53'
N, 118[deg]26.52' W.

(4) Section D

    Beginning at 32[deg]49.10' N, 118[deg]21.05' W; thence to
32[deg]47.27' N, 118[deg]18.23' W; thence running parallel to the
shoreline at a distance of approximately 3 NM from the high tide line
to 32[deg]48.38' N, 118[deg]31.69' W; thence to 32[deg]50.70' N,
118[deg]29.37' W; thence along the shoreline returning to 32[deg]49.10'
N, 118[deg]21.05' W.

(5) Section E

    Beginning at 32[deg]50.70' N, 118[deg]29.37' W; thence to
32[deg]48.05' N, 118[deg]31.68' W; thence running parallel to the
shoreline at a distance of approximately 3 NM from the high tide line
to 32[deg]53.62' N, 118[deg]35.93' W; thence to 32[deg]56.13' N,
118[deg]32.95' W; thence along the shoreline returning to 32[deg]50.70'
N, 118[deg]29.37' W.

(6) Section F

    Beginning at 32[deg]56.13' N, 118[deg]32.95' W; thence to
32[deg]53.62' N, 118[deg]35.93' W; thence running parallel to the
shoreline at a distance of approximately 3 NM from the high tide line
to 32[deg]59.95' N, 118[deg]39.77' W; thence to 33[deg]01.08' N,
118[deg]36.33' W; thence along the shoreline returning to 32[deg]56.13'
N, 118[deg]32.95' W.

(7) Section G

    Beginning at 33[deg]01.08' N, 118[deg]36.333' W; thence to
32[deg]59.95' N, 118[deg]39.77' W; thence running parallel to the
shoreline at a distance of approximately 3 NM from the high tide line
to 33[deg]04.93' N,

118[deg]37.07' W; thence to 33[deg]02.05' N, 118[deg]35.85' W; thence
along the shoreline returning to 33[deg]01.08' N, 118[deg]36.33' W.

(8) Wilson Cove

    Beginning at 33[deg]01.28' N, 118[deg]33.88' W; thence to
33[deg]02.82' N, 118[deg]30.65' W; thence running parallel to the
shoreline at a distance of approximately 3 NM from the high tide line
to 32[deg]59.60' N, 118[deg]28.33' W; thence to 32[deg]57.30' N,
118[deg]30.88' W; thence along the shoreline returning to 33[deg]01.28'
N, 118[deg]33.88' W.
[GRAPHIC] [TIFF OMITTED] TP07AU09.066

    (b) Definitions. The following definition applies to this section:
Designated representative means any commissioned, warrant, or petty
officers of the Coast Guard on board Coast Guard, Coast Guard
Auxiliary, or local, state, or federal law enforcement vessels who have
been authorized to act on the behalf of the Captain of the Port.
    (c) Enforcement. (1) This regulation will be enforced at all times
in Section G and the Wilson Cove section of the safety zone described
in paragraph (a). Mariners must obtain permission in accordance with
the procedure described in paragraph (d)(2) before entering either of
those sections.
    (2) This regulation will be enforced in Sections A through F of the
safety zone described in paragraph (a) except when the Coast Guard
notifies the public that enforcement of the zone in specified sections
is temporarily suspended. Mariners need not obtain permission in
accordance with the procedure described in paragraph (d)(2) to enter a
zone section in which enforcement is temporarily suspended. At all
other times, mariners must obtain permission in accordance with the
procedure described in paragraph (d)(2) before entering any of those
sections.
    (3) The COTP will provide notice of suspended enforcement by means
appropriate to effect the widest publicity, including broadcast notice
to mariners, publication in the local notice to mariners, and posting
the schedule of restricted access periods by date, location and
duration at http://www.scisland.org.
    (d) Regulations. (1) The general regulations governing safety zones
found in 33 CFR 165.23 apply to the safety zone described in paragraph
(a) of this section.
    (2) Mariners requesting permission to transit through any section
of the zone may request authorization to do so from the Fleet Area
Control and Surveillance Facility (FACSFAC) San Diego by either calling
(619) 545-4742 or establishing a VHF bridge-to-bridge radio connection
on Channel 16. Immediately upon completing transit, the vessel operator
must promptly notify FACSFAC of safe passage through the safety zone.
Failure to expeditiously notify FACSFAC of passage through the safety
zone will result in a determination by the Navy that the vessel is
still in the safety zone, thereby restricting the use of the area for
naval operations. If the Navy determines that facilitating safe transit
through the zone negatively impacts range operations, the Navy will
cease this practice and enforce the safety zone without exception.
    (3) All persons and vessels must comply with the instructions of
the U.S. Navy, Coast Guard Captain of the Port or the designated
representative.

    (4) Upon being hailed by U.S. Navy or U.S. Coast Guard patrol
personnel by siren, radio, flashing light, or other means, the operator
of a vessel must proceed as directed.
    (5) The U.S. Coast Guard may be assisted in the patrol and
enforcement of the safety zone described in paragraph (a) of this
section by the U.S. Navy and local law enforcement agencies.

    Dated: June 15, 2009.
T.H. Farris,
Captain, U.S. Coast Guard, Captain of the Port San Diego.
[FR Doc. E9-18760 Filed 8-6-09; 8:45 am]

BILLING CODE 4910-15-P


[Federal Register Volume 84, Number 86 (Friday, May 3, 2019)]
[Notices]
[Pages 19093-19094]
[FR Doc No: 2019-09033]

-----------------------------------------------------------------------

DEPARTMENT OF HOMELAND SECURITY

Coast Guard

[Docket No. USCG-2019-0259]

Information Collection Request to Office of Management and
Budget; OMB Control Number: 1625-0046

AGENCY: Coast Guard, DHS.

ACTION: Sixty-day notice requesting comments.

-----------------------------------------------------------------------

SUMMARY: In compliance with the Paperwork Reduction Act of 1995, the
U.S. Coast Guard intends to submit an Information Collection Request
(ICR) to the Office of Management and Budget (OMB), Office of
Information and Regulatory Affairs (OIRA), requesting approval for
reinstatement, without change, of the following collection of
information: 1625-0046, Certificates of Financial Responsibility under
the Oil Pollution Act of 1990. Our ICR describes the information we
seek to collect from the public. Before submitting this ICR to OIRA,
the Coast Guard is inviting comments as described below.

DATES: Comments must reach the Coast Guard on or before July 2, 2019.

ADDRESSES: You may submit comments identified by Coast Guard docket
number [USCG-2019-0259] to the Coast Guard using the Federal
eRulemaking Portal at https://www.regulations.gov. See the ``Public
participation and request for comments'' portion of the SUPPLEMENTARY
INFORMATION section for further instructions on submitting comments.
    A copy of the ICR is available through the docket on the internet
at https://www.regulations.gov. Additionally, copies are available
from: Commandant (CG-612), ATTN: Paperwork Reduction Act Manager, U.S.
Coast Guard, 2703 Martin Luther King Jr. Ave. SE, STOP 7710,
Washington, DC 20593-7710.

FOR FURTHER INFORMATION CONTACT: Mr. Anthony Smith, Office of
Information Management, telephone<PHONE_NUMBER>, or fax<PHONE_NUMBER>,
for questions on these documents.

SUPPLEMENTARY INFORMATION:

Public Participation and Request for Comments

    This notice relies on the authority of the Paperwork Reduction Act
of 1995; 44 U.S.C. chapter 35, as amended. An ICR is an application to
OIRA seeking the approval, extension, or renewal of a Coast Guard
collection of information (Collection). The ICR contains information
describing the Collection's purpose, the Collection's likely burden

on the affected public, an explanation of the necessity of the
Collection, and other important information describing the Collection.
There is one ICR for each Collection.
    The Coast Guard invites comments on whether this ICR should be
granted based on the Collection being necessary for the proper
performance of Departmental functions. In particular, the Coast Guard
would appreciate comments addressing: (1) The practical utility of the
Collection; (2) the accuracy of the estimated burden of the Collection;
(3) ways to enhance the quality, utility, and clarity of information
subject to the Collection; and (4) ways to minimize the burden of the
Collection on respondents, including the use of automated collection
techniques or other forms of information technology. Consistent with
the requirements of Executive Order 13771, Reducing Regulation and
Controlling Regulatory Costs, and Executive Order 13777, Enforcing the
Regulatory Reform Agenda, the Coast Guard is also requesting comments
on the extent to which this request for information could be modified
to reduce the burden on respondents. In response to your comments, we
may revise this ICR or decide not to seek reinstatement of the
Collection. We will consider all comments and material received during
the comment period.
    We encourage you to respond to this request by submitting comments
and related materials. Comments must contain the OMB Control Number of
the ICR and the docket number of this request, [USCG-2019-0259], and
must be received by July 2, 2019.

Submitting Comments

    We encourage you to submit comments through the Federal eRulemaking
Portal at https://www.regulations.gov. If your material cannot be
submitted using https://www.regulations.gov, contact the person in the
FOR FURTHER INFORMATION CONTACT section of this document for alternate
instructions. Documents mentioned in this notice, and all public
comments, are in our online docket at https://www.regulations.gov and
can be viewed by following that website's instructions. Additionally,
if you go to the online docket and sign up for email alerts, you will
be notified when comments are posted.
    We accept anonymous comments. All comments received will be posted
without change to https://www.regulations.gov and will include any
personal information you have provided. For more about privacy and the
docket, you may review a Privacy Act notice regarding the Federal
Docket Management System in the March 24, 2005, issue of the Federal
Register (70 FR 15086).

Information Collection Request

    Title: Certificates of Financial Responsibility under the Oil
Pollution Act of 1990.
    OMB Control Number: 1625-0046.
    Summary: The information collection requirements described in this
supporting statement are necessary to provide evidence of a
respondent's ability to pay for removal costs and damages associated
with discharges or substantial threats of discharges of hazardous
material or oil into the navigable waters, adjoining shorelines or the
exclusive economic zone of the United States. The requirements are
imposed generally on operators and financial guarantors of vessels over
300 gross tons.
    Need: If the requested information is not collected, the Coast
Guard will be unable to comply with the provisions of OPA and CERCLA to
ensure that responsible parties have the ability to pay for cleanup
costs and damages when there is an oil or hazardous material spill or
threat of a spill.
    Legal Authority: Section 1002 of OPA 90, as limited by section
1004(a), or section 107(a)(1) of CERCLA.
    Forms: CG-5585, Application for Vessel Certificate of Financial
Responsibility (Water Pollution); CG-5586, Insurance Guaranty; CG-5586-
1, Master Insurance Guaranty; CG-5586-2, Surety Bond Guaranty; CG-5586-
3, Financial Guaranty; and CG-5586-4, Master Financial Guaranty.
    Respondents: Vessel operators and approved insurers.
    Frequency: Annually, to include collection of information on a
three year cycle.
    Hour Burden Estimate: The estimated annual burden remains 3,400
hours a year.

    Authority: The Paperwork Reduction Act of 1995; 44 U.S.C.
chapter 35, as amended.

    Dated: April 29, 2019.
James D. Roppel,
U.S. Coast Guard, Chief, Office of Information Management.
[FR Doc. 2019-09033 Filed 5-2-19; 8:45 am]
BILLING CODE 9110-04-P


[Federal Register Volume 77, Number 69 (Tuesday, April 10, 2012)]
[Notices]
[Page 21555]
[FR Doc No: 2012-8526]

-----------------------------------------------------------------------

DEPARTMENT OF ENERGY

Federal Energy Regulatory Commission

[Docket No. ER12-1400-000]

 Flat Ridge 2 Wind Energy LLC; Supplemental Notice That Initial
Market-Based Rate Filing Includes Request for Blanket Section 204
Authorization

    This is a supplemental notice in the above-referenced proceeding of
Flat Ridge 2 Wind Energy LLC's application for market-based rate
authority, with an accompanying rate tariff, noting that such
application includes a request for blanket authorization, under 18 CFR
Part 34, of future issuances of securities and assumptions of
liability.
    Any person desiring to intervene or to protest should file with the
Federal Energy Regulatory Commission, 888 First Street NE., Washington,
DC 20426, in accordance with Rules 211 and 214 of the Commission's
Rules of Practice and Procedure (18 CFR 385.211 and 385.214). Anyone
filing a motion to intervene or protest must serve a copy of that
document on the Applicant.
    Notice is hereby given that the deadline for filing protests with
regard to the applicant's request for blanket authorization, under 18
CFR Part 34, of future issuances of securities and assumptions of
liability, is April 23, 2012.
    The Commission encourages electronic submission of protests and
interventions in lieu of paper, using the FERC Online links at http://www.ferc.gov. To facilitate electronic service, persons with Internet
access who will eFile a document and/or be listed as a contact for an
intervenor must create and validate an eRegistration account using the
eRegistration link. Select the eFiling link to log on and submit the
intervention or protests.
    Persons unable to file electronically should submit an original and
14 copies of the intervention or protest to the Federal Energy
Regulatory Commission, 888 First Street NE., Washington, DC 20426.
    The filings in the above-referenced proceeding are accessible in
the Commission's eLibrary system by clicking on the appropriate link in
the above list. They are also available for review in the Commission's
Public Reference Room in Washington, DC. There is an eSubscription link
on the Web site that enables subscribers to receive email notification
when a document is added to a subscribed docket(s). For assistance with
any FERC Online service, please email<EMAIL_ADDRESS>or
call<PHONE_NUMBER> (toll free). For TTY, call<PHONE_NUMBER>.

    Dated: April 2, 2012.
Kimberly D. Bose,
Secretary.
[FR Doc. 2012-8526 Filed 4-9-12; 8:45 am]
BILLING CODE 6717-01-P