From f212534641b86b496ea9a576a254aa85982717ba Mon Sep 17 00:00:00 2001
From: Alois Dirnaichner <alodi@directbox.com>
Date: Tue, 24 Mar 2020 15:48:38 +0100
Subject: [PATCH] Add harmonization for non-LDV passenger shares in HDV
transport. Shares are harmonized to EUR in 2150.
---
modules/35_transport/complex/datainput.gms | 12 ++++++++----
modules/35_transport/complex/declarations.gms | 5 ++++-
2 files changed, 12 insertions(+), 5 deletions(-)
diff --git a/modules/35_transport/complex/datainput.gms b/modules/35_transport/complex/datainput.gms
index 7a4ed4d..9437d6a 100644
--- a/modules/35_transport/complex/datainput.gms
+++ b/modules/35_transport/complex/datainput.gms
@@ -26,7 +26,11 @@ $include "./modules/35_transport/complex/input/f35_transp_eff.cs3r"
$offdelim
;
-p35_pass_FE_share_transp(regi) = f35_transp_eff(regi,"share_Pass_nonLDV");
+p35_pass_FE_target_share = f35_transp_eff("EUR","share_Pass_nonLDV");
+p35_harmonizing_year = 2150;
+
+p35_pass_FE_share_transp(ttot,regi)$(ttot.val ge 2005) = (f35_transp_eff(regi, "share_Pass_nonLDV")*(p35_harmonizing_year-ttot.val)+p35_pass_FE_target_share*(ttot.val-2005))/(p35_harmonizing_year-2005);
+
p35_pass_nonLDV_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = f35_transp_eff(regi,"Eff_Pass_nonLDV");
p35_passLDV_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = f35_transp_eff(regi,"Eff_Pass_LDV");
p35_freight_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = f35_transp_eff(regi,"Eff_Freight");
@@ -34,15 +38,15 @@ p35_freight_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = f35_transp_eff(re
p35_valconv = sum((regi),f35_transp_eff(regi,"Eff_Pass_nonLDV"))/ card(regi);
-p35_pass_nonLDV_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = (p35_pass_nonLDV_ES_efficiency(ttot,regi)*(2200-ttot.val)+p35_valconv*(ttot.val-2005))/(2200-2005);
+p35_pass_nonLDV_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = (p35_pass_nonLDV_ES_efficiency(ttot,regi)*(p35_harmonizing_year-ttot.val)+p35_valconv*(ttot.val-2005))/(p35_harmonizing_year-2005);
p35_valconv = sum((regi),f35_transp_eff(regi,"Eff_Pass_LDV"))/ card(regi);
-p35_passLDV_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = (p35_passLDV_ES_efficiency(ttot,regi)*(2200-ttot.val)+p35_valconv*(ttot.val-2005))/(2200-2005);
+p35_passLDV_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = (p35_passLDV_ES_efficiency(ttot,regi)*(p35_harmonizing_year-ttot.val)+p35_valconv*(ttot.val-2005))/(p35_harmonizing_year-2005);
p35_valconv = sum((regi),f35_transp_eff(regi,"Eff_Freight"))/ card(regi);
-p35_freight_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = (p35_freight_ES_efficiency(ttot,regi)*(2200-ttot.val)+p35_valconv*(ttot.val-2005))/(2200-2005);
+p35_freight_ES_efficiency(ttot,regi)$(ttot.val ge 2005) = (p35_freight_ES_efficiency(ttot,regi)*(p35_harmonizing_year-ttot.val)+p35_valconv*(ttot.val-2005))/(p35_harmonizing_year-2005);
display p35_pass_nonLDV_ES_efficiency;
diff --git a/modules/35_transport/complex/declarations.gms b/modules/35_transport/complex/declarations.gms
index 8340911..6b00b95 100644
--- a/modules/35_transport/complex/declarations.gms
+++ b/modules/35_transport/complex/declarations.gms
@@ -16,11 +16,14 @@ q35_shUePeTbal(ttot,all_regi) "shares sum must be equal to 100"
;
Parameter
-p35_pass_FE_share_transp(all_regi) "Share of 'non-LDV passenger FE' in 'total non-LDV FE. Unit: share [0..1]"
+p35_pass_FE_share_transp(ttot,all_regi) "Share of 'non-LDV passenger FE' in 'total non-LDV FE. Unit: share [0..1]"
p35_pass_nonLDV_ES_efficiency(ttot,all_regi) "Non-LDV passenger energy service per non-LDV FE. Unit: bn pkm/EJ"
p35_passLDV_ES_efficiency(ttot,all_regi) "LDV passenger energy service per non-LDV FE. Only correct if applied to CES-input, as BEV and H2FCV have higher efficiencies. Unit: bn pkm/EJ"
p35_freight_ES_efficiency(ttot,all_regi) "Freight energy service per freight FE. Unit: bn tkm/EJ"
+p35_pass_FE_target_share "The target share for the harmonization of non-LDV passenger FE (p35_pass_FE_share_transp). Unit: share [0..1]"
+p35_harmonizing_year "Year when full harmonization of shares and efficiencies would be reached."
+
p35_share_seliq_t(ttot,all_regi) "share of liquids used for transport sector (fedie + fepet). Unit 0..1"
p35_share_seh2_t(ttot,all_regi) "share of hydrogen used for transport sector (feh2t). Unit 0..1"
p35_share_seel_t(ttot,all_regi) "Share of electricity used for transport sector (feelt). Unit 0..1"
--
GitLab