Calculate DPS reuse and end of pipe loads from raw facility data
Source:R/anlz_dps_facility.R
anlz_dps_facility.Rd
Calculate DPS reuse and end of pipe loads from raw facility data
Value
data frame with loading data for TP, TN, TSS, and BOD as tons per month and hydro load as million cubic meters per month. Information for each entity, facility, and outfall is retained.
Details
Input data should include flow as million gallons per day, and conc as mg/L. Steps include:
Multiply flow by day in month to get million gallons per month
Multiply flow by 3785.412 to get cubic meters per month
Multiply conc by flow and divide by 1000 to get kg var per month
Multiply m3 by 1000 to get L, then divide by 1e6 to convert mg to kg, same as dividing by 1000
TN, TP, TSS, BOD dps reuse is multiplied by attenuation factor for land application (varies by location)
Hydro load (m3 / mo) is also attenuated for the reuse, multiplied by 0.6 (40% attenuation)
Examples
fls <- list.files(system.file('extdata/', package = 'tbeploads'),
pattern = 'ps_dom', full.names = TRUE)
anlz_dps_facility(fls)
#> # A tibble: 144 × 11
#> Year Month entity facility coastco source tn_load tp_load tss_load bod_load
#> <int> <int> <chr> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 2021 1 Clearw… City of… 387 D-001 0.862 6.04 0.452 1.14
#> 2 2021 2 Clearw… City of… 387 D-001 1.37 1.15 0.553 2.87
#> 3 2021 3 Clearw… City of… 387 D-001 1.70 0.575 0.982 3.31
#> 4 2021 4 Clearw… City of… 387 D-001 0.344 0.0801 0.105 0.656
#> 5 2021 5 Clearw… City of… 387 D-001 1.09 0.460 0.603 2.23
#> 6 2021 6 Clearw… City of… 387 D-001 0.641 0.435 0.248 0.588
#> 7 2021 7 Clearw… City of… 387 D-001 0.667 0.183 0.360 1.33
#> 8 2021 8 Clearw… City of… 387 D-001 0.138 0.164 0.0601 0.327
#> 9 2021 9 Clearw… City of… 387 D-001 0.421 1.63 0.281 0.655
#> 10 2021 10 Clearw… City of… 387 D-001 1.15 0.217 0.563 0.666
#> # ℹ 134 more rows
#> # ℹ 1 more variable: hy_load <dbl>