acm0009_equations.RdFunctions translating the ACM0009 baseline, project, leakage, and net emission equations for natural-gas fuel switching projects.
calculate_baseline_emissions_acm0009(fuel_consumption_tonnes, net_calorific_value_gj_per_tonne, emission_factor_tco2_per_gj)
calculate_project_emissions_acm0009(gas_consumption_nm3, net_calorific_value_gj_per_nm3, emission_factor_tco2_per_gj, methane_slip_tonnes = 0, gwp_ch4 = 28)
calculate_leakage_emissions_acm0009(pipeline_leakage_tco2e = 0, upstream_leakage_tco2e = 0, auxiliary_electricity_mwh = 0, grid_emission_factor_tco2_per_mwh = 0)
calculate_net_emission_reductions_acm0009(baseline_emissions_tco2e, project_emissions_tco2e, leakage_emissions_tco2e)Numeric vector of baseline coal or petroleum fuel consumption in tonnes during the monitoring period.
Net calorific value of the baseline fuel expressed in gigajoules per tonne.
Carbon dioxide emission factor for the fuel expressed in tonnes CO2 per gigajoule.
Measured natural gas consumption in normal cubic metres for the project scenario.
Net calorific value of the natural gas in gigajoules per normal cubic metre.
Quantity of unburned methane released from the gas system, expressed in tonnes.
Global warming potential applied to methane slip, defaulting to the 100-year value adopted by ACM0009.
Emissions attributed to project-side pipeline leaks, in tonnes CO2e.
Leakage from gas extraction, processing, or transport attributable to the fuel switch, in tonnes CO2e.
Auxiliary electricity consumption associated with the retrofit, in megawatt-hours.
Emission factor for the grid electricity used to operate the converted plant, in tonnes CO2 per megawatt-hour.
Baseline emissions computed for the monitoring period in tonnes CO2e.
Project scenario emissions in tonnes CO2e.
Total leakage emissions to be deducted from the project results, in tonnes CO2e.
Numeric vectors containing the calculated baseline, project, leakage, and net emission reductions for each observation.
baseline <- calculate_baseline_emissions_acm0009(
fuel_consumption_tonnes = 120000,
net_calorific_value_gj_per_tonne = 26.5,
emission_factor_tco2_per_gj = 0.094
)
project <- calculate_project_emissions_acm0009(
gas_consumption_nm3 = 220000000,
net_calorific_value_gj_per_nm3 = 0.038,
emission_factor_tco2_per_gj = 0.0561,
methane_slip_tonnes = 12
)
leakage <- calculate_leakage_emissions_acm0009(
pipeline_leakage_tco2e = 450,
upstream_leakage_tco2e = 820,
auxiliary_electricity_mwh = 1500,
grid_emission_factor_tco2_per_mwh = 0.75
)
calculate_net_emission_reductions_acm0009(baseline, project, leakage)
#> [1] 1637246