Difference between revisions of "Helsinki energy production"

Revision as of 08:01, 25 June 2015

Question

What is the amount of energy produced (including distributed production) in Helsinki? Where is it produced (-> emissions)? Which processes are used in its production?

Answer

Rationale

Amount produced is determined largely by the energy balance in Helsinki and Helsinki energy consumption.

These equations aim to reflect the energy production facilities and capabilities.

Hanasaari > 0
Hanasaari < 640
Hanasaari E = 0.34 Hanasaari # 220 MW / 640 MW (E = electricity)
Hanasaari H = 0.66 Hanasaari # 420 MW / 640 MW (H = heat)
Vuosaari > 0
Vuosaari< 1210
Vuosaari E = 0.52 Vuosaari
Vuosaari H = 0.48 Vuosaari
Salmisaari > 0
Salmisaari < 460
Salmisaari E = 0.35 Salmisaari # 160 MW / 460 MW
Salmisaari H = 0.65 Salmisaari # 300 MW / 460 MW
Electricity = Hanasaari E + Vuosaari E + Salmisaari E + Kymijoki + Vanhakaupunki + Kellosaari + Suvilahti + Suvilahti storage
Heat plants > 0
Heat plants < 2200
Katri Vala H > 0
Katri Vala H < 90
Katri Vala C > 0
Katri Vala C < 60
Kymijoki > 0
Kymijoki < 60
Vanhakaupunki = 0.2
Kellosaari > 0
Kellosaari < 120
Suvilahti > 0
Suvilahti < 3 # Guesswork, data missing
Suvilahti storage > -1.2
Suvilahti storage < 1.2

Heating

Fuel use by heating type

Only district heating is Helsinki specific, rest should be taken from Emission factors for burning processes.

## This code is Op_en7311/fuelShares on page [[Helsinki energy production]]

library(OpasnetUtils)

fuelShares <- Ovariable("fuelShares", 
	dependencies = data.frame(
		Name = "fuelSharesgeneric",
		Ident = "Op_en2791/fuelSharesgeneric" # [[Emission factors for burning processes]]
	),
	formula = function(...) {
	
		dat <- EvalOutput(Ovariable("dat", ddata = "Op_en7311.fuel_use_by_heating_type")) # [[Helsinki energy production]]
		colnames(dat@output) <- gsub("[ \\.]", "_", colnames(dat@output))

		out <- combine(fuelSharesgeneric, dat, name = "fuelShares")
		out <- out * Ovariable(output = data.frame(Time = 1900:2080, Result = 1), marginal = c(TRUE, FALSE))
		out <- unkeep(out, prevresults = TRUE, sources = TRUE)

		return(out)
	}
)

objects.store(fuelShares)
cat("Object fuelShares stored.\n")

Emission locations

Emission location and height by heating type.

This code creates technical ovariables emissionLocations and heatingShares that are needed to run the Building model and its ovariables buildings and heatingEnergy.

## This code is Op_en7311/emissionLocations [[Helsinki energy production]]

library(OpasnetUtils)

emissionLocations <- Ovariable("emissionLocations", ddata = "Op_en7311", subset = "Emission locations") 
colnames(emissionLocations@data) <- gsub("[ \\.]", "_", colnames(emissionLocations@data))
emissionLocations@data$emissionLocationsResult <- 1

heatingShares <- 1 # This is already in the Basel data.

objects.store(emissionLocations, heatingShares)
cat("Objects emissionsLocations, heatingShares stored.\n")

Production and emission statistics

Dependencies

Calculations

library(OpasnetUtils)
emissionLocations <- Ovariable("emissionLocations", ddata = "Op_en7311/Emission_locations")
result(emissionLocations) <- 1
objects.store(
	emissionLocations
)

cat("Objects
	emissionLocations
stored.\n")

See also

• The model for small-scale energy production in Helsinki Metropolitan area is made by Gabi 4.3 - life cycle assessment software. It is a versatile program which can be used for life cycle assessment, cost analysis, efficiency analysis, Global Reporting Initiative-reports (GRI) and companies annual reports.

Keywords

References