Newer
Older
*** | (C) 2006-2019 Potsdam Institute for Climate Impact Research (PIK)
*** | authors, and contributors see CITATION.cff file. This file is part
*** | of REMIND and licensed under AGPL-3.0-or-later. Under Section 7 of
*** | AGPL-3.0, you are granted additional permissions described in the
*** | REMIND License Exception, version 1.0 (see LICENSE file).
*** | Contact: remind@pik-potsdam.de
*** SOF ./modules/35_transport/complex/datainput.gms
*** substitution elasticities
Parameter
p35_cesdata_sigma(all_in) "substitution elasticities"
/
entrp 1.5
fetf 0.8
/
p35_valconv "temporary parameter used to set convergence between regions"
;
pm_cesdata_sigma(ttot,in)$p35_cesdata_sigma(in) = p35_cesdata_sigma(in);
*RP* read-in of regionalized transport mode shares and efficiencies
table f35_transp_eff(all_regi,char35) "read-in of regionalized transport mobility shares and efficiencies"
$ondelim
$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_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");
Marianna Rottoli
committed
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);
Marianna Rottoli
committed
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);
Marianna Rottoli
committed
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);
display p35_pass_nonLDV_ES_efficiency;
display p35_passLDV_ES_efficiency;
display p35_freight_ES_efficiency;
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
*CB* read-in of bunker share in non-LDV transport, i.e. fedie. Based on regional linear regional aggregation, but limited to 50% (binding in EU, OAS, RUS)
Parameter pm_bunker_share_in_nonldv_fe(tall,all_regi) "share of bunkers in non-LDV transport, i.e. fedie"
/
$ondelim
$include "./modules/35_transport/complex/input/pm_bunker_share_in_nonldv_fe.cs4r"
$offdelim
/
;
display pm_bunker_share_in_nonldv_fe;
*** limit share to maximum 55%
loop(regi,
loop(t,
if( pm_bunker_share_in_nonldv_fe(t,regi) > 0.55,
pm_bunker_share_in_nonldv_fe(t,regi) = 0.55;
);
);
);
display pm_bunker_share_in_nonldv_fe;
*** RP: to be able to better reproduce the 2010 decrease of liquids and solids demand in the US, additionally decrease the refineries build-up in 2005:
table f35_factorVintages(all_regi,opTimeYr,all_te) "factor to be able to better reproduce the 2010 decrease of liquids and solids demand"
$ondelim
$include "./modules/35_transport/complex/input/f35_factorVintages.cs3r"
$offdelim
;
loop(regi,
loop(opTimeYr,
loop(te,
if(f35_factorVintages(regi,opTimeYr,te) = 0,
f35_factorVintages(regi,opTimeYr,te) = 1;
);
);
);
);
pm_vintage_in(regi,opTimeYr,te) = f35_factorVintages(regi,opTimeYr,te) * pm_vintage_in(regi,opTimeYr,te);
display pm_vintage_in;
*RP* end vintages
*** EOF ./modules/35_transport/complex/datainput.gms