bugfix calculation of Emi|Co2|Accounted in other Sectors via CCU|Ener…

…gy|Industry|Fossil Synfuel Plastics Sequestration

R/reportEmi.R

@@ -1681,6 +1681,12 @@ reportEmi <- function(gdx, output = NULL, regionSubsetList = NULL,
        out[, , "Carbon Management|Materials|Plastics|+|Synfuels (Mt CO2/yr)"] * p_share_atmosco2) /
       out[, , "Carbon Management|Materials|+|Plastics (Mt CO2/yr)"])
 
+  # calculate share of fossil synfuels contained in plastic products
+  # (which is not contained in CDR but still needs to be added to gross emissions to get net emissions)
+  p_share_fossyn_plastics <- dimSums(
+      out[, , "Carbon Management|Materials|Plastics|+|Synfuels (Mt CO2/yr)"] * (1-p_share_atmosco2) /
+      out[, , "Carbon Management|Materials|+|Plastics (Mt CO2/yr)"])
+
 
 
   out <- mbind(out,
@@ -1790,16 +1796,16 @@ reportEmi <- function(gdx, output = NULL, regionSubsetList = NULL,
   out <- mbind(out,
                setNames( -out[, , "Carbon Management|Carbon Capture|Industry Energy|+|Synfuel (Mt CO2/yr)"] * (1-p_share_atmosco2) * p_share_CCS,
                          "Emi|CO2|Accounted in Other Sectors via CCU|Energy|Industry|Fossil Synfuel CCS (Mt CO2/yr)"),
-              setNames( -out[, , "Carbon Management|Materials|Plastics|Waste|++|Other destination (Mt CO2/yr)"] * (1-p_share_atmosco2_plastics),
+              setNames( -out[, , "Carbon Management|Materials|Plastics|Waste|++|Other destination (Mt CO2/yr)"] * p_share_fossyn_plastics,
                          "Emi|CO2|Accounted in Other Sectors via CCU|Energy|Industry|Fossil Synfuel Plastics Sequestration (Mt CO2/yr)"))
 
-
   out <- mbind(out,
                 setNames(  out[,,"Emi|CO2|Accounted in Other Sectors via CCU|Energy|Industry|Fossil Synfuel CCS (Mt CO2/yr)"]
                          + out[,,"Emi|CO2|Accounted in Other Sectors via CCU|Energy|Industry|Fossil Synfuel Plastics Sequestration (Mt CO2/yr)"],
                          "Emi|CO2|Accounted in Other Sectors via CCU|Energy|Industry (Mt CO2/yr)"))
 
 
+
   ## 4. Gross Emissions ----
   # (fossil co2 emissions, that is, net emissions excl. negative emissions from CDR and carbon accounted in other sectors)