add WACC module

config/scenario_config_WACC.csv

@@ -0,0 +1,13 @@
+title;start;c_keep_iteration_gdxes;CES_parameters;slurmConfig;regionmapping;extramappings_historic;cm_rcp_scen;subsidizeLearning;cm_prtpScen;capitalMarket;cm_iterative_target_adj;cm_budgetCO2from2020;cm_budgetCO2_absDevTol;carbonprice;cm_taxCO2_functionalForm;cm_taxCO2_startyear;cm_peakBudgYr;cm_taxCO2_regiDiff;cm_taxCO2_regiDiff_endYr;cm_emiscen;c_regi_earlyreti_rate;c_tech_earlyreti_rate;cm_fetaxscen;cm_bioenergy_SustTax;cm_33EW;cm_33OAE;cm_33_OAE_limit_EEZ;cm_frac_NetNegEmi;c_ccsinjecratescen;c_ccscapratescen;cm_CESMkup_build;cm_wasteIncinerationCCSshare;techpol;regipol;cm_implicitQttyTarget;cm_emiMktTarget;cm_NucRegiPol;cm_CoalRegiPol;cm_altFeEmiFac;cm_GDPpopScen;cm_demScen;cm_oil_scen;cm_gas_scen;cm_coal_scen;c_techAssumptScen;cm_nucscen;cm_so2tax_scen;cm_multigasscen;cm_LU_emi_scen;cm_tradecostBio;cm_maxProdBiolc;cm_1stgen_phaseout;c_SSP_forcing_adjust;cm_APscen;cm_EDGEtr_scen;c_changeProdCost;cm_startyear;path_gdx;path_gdx_ref;path_gdx_bau;path_gdx_refpolicycost;description
+# H12 SSP2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+#SSP2-NPi-calibrate;1;;calibrate;14;;;;;;imperfect;;;;NPi;;;;;;;;;;;;;;;;;;;NPi2018;;;;;;;;;;;;;;;;;;;;;;Mix1;;2005;;;;;SSP2-NPi-calibrate: This reference policy/baseline scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road.
+#SSP2-NPi-calibrate;0;;calibrate;1;;;;;;;;;;NPi;;;;;;;;;;;;;;;;;;;NPi2018;;;;;;;;;;;;;;;;;;;;;;Mix1;;2005;;;;;SSP2-NPi-calibrate: This reference policy/baseline scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road.
+SSP2-NDC;0;;;;;;;globallyOptimal;;;3;;;NDC;;;;;;;;;;;;;;;;;;;NDC;;2030.EUR_regi.tax.t.FE_wo_b_wo_n_e.all 1.2809;2020.2030.EUR_regi.all.year.netGHG_LULUCFGrassi 2.450;;;;;;;;;;;;;;;;;;;;1;2030;;SSP2-NPi2025;SSP2-NPi;SSP2-NPi2025;SSP2-NDC: This Nationally Determined Contribution (NDC) scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road. It assumes NPi2025 until 2025 and has start year 2030. The NDC includes all pledged policies even if not yet implemented. It assumes that the moderate and heterogeneous climate ambition reflected in the NDCs at the begining of 2021 continues over the 21st century.
+SSP2-NDCsy2025;0;;;;;;;globallyOptimal;;;3;;;NDC;;;;;;;;;;;;;;;;;;;NDC;;2030.EUR_regi.tax.t.FE_wo_b_wo_n_e.all 1.2809;2020.2030.EUR_regi.all.year.netGHG_LULUCFGrassi 2.450;;;;;;;;;;;;;;;;;;;;5;2025;;SSP2-NPi;SSP2-NPi;SSP2-NPi2025;SSP2-NDCsy2025: This Nationally Determined Contribution (NDC) scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road. It assumes NPi until 2020 and has start year 2025.The NDC includes all pledged policies even if not yet implemented. It assumes that the moderate and heterogeneous climate ambition reflected in the NDCs at the begining of 2021 continues over the 21st century.
+SSP2-NPi;0;;;;;;;;;;0;;;NPi;;;;;;;;;;;;;;;;;;;NPi2018;;;;;;;;;;;;;;;;;;;;;;Mix1;;2005;;;;;SSP2-NPi: This National Policies Implemented (NPi) scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road. The NPi assumes that policies fail to achieve NDC targets in 2030. Instead, carbon prices are assumed to grow and converge more slowly, leading to emissions trajectories in line with bottom-up studies on the effect of currently implemented policies.
+SSP2-NPi2025;1;;;;;;;;;imperfect;0;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;2005;;;;;SSP2-NPi2025: This National Policies Implemented (NPi) scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road. The NPi assumes that policies fail to achieve NDC targets in 2030. Instead, carbon prices are assumed to grow and converge more slowly, leading to emissions trajectories in line with bottom-up studies on the effect of currently implemented policies.
+SSP2-PkBudg500;0;;;;;;rcp20;globallyOptimal;;;9;500;;functionalForm;;200;2045;;;;;;;;;;;;;;;2050.GLO 0.9;NDC;;2030.EUR_regi.tax.t.FE_wo_b_wo_n_e.all 1.2809;;;;;;;;;;;;;2;;;;;;;Mix4ICEban;1;2030;;SSP2-NPi2025;;SSP2-NPi2025;SSP2-PkBudg500: This climate policy scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road. The stylized climate policy scenario assumes a peak budget of 500 Gt CO2 on total CO2 emissions from 2015 to 2100. This is a 1.5C scenario, peak warming is allowed to be well below 1.5C at median climate sensitivity but returns to values below 1.5C in at least 67 % of scenarios by the end of the century.
+SSP2-PkBudg650;0;;;;;;rcp20;globallyOptimal;;;9;650;;functionalForm;;100;2055;;;;;;;;;;;;;;;2050.GLO 0.9;NDC;;2030.EUR_regi.tax.t.FE_wo_b_wo_n_e.all 1.2809;;;;;;;;;;;;;2;;;;;;;Mix4ICEban;1;2030;;SSP2-NPi2025;;SSP2-NPi2025;SSP2-PkBudg650: This climate policy scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road. The stylized climate policy scenario assumes a peak budget of 650 Gt CO2 on total CO2 emissions from 2015 to 2100. This is a 1.5C scenario, peak warming is allowed to be at or slightly above 1.5C at median climate sensitivity but returns to values below 1.5C in at least 67 % of scenarios by the end of the century.
+SSP2-PkBudg1000;1;;;;;;rcp26;globallyOptimal;;imperfect;9;1000;;functionalForm;;75;2080;;;;;;;;;;;;;;;2050.GLO 0.5;NDC;;2030.EUR_regi.tax.t.FE_wo_b_wo_n_e.all 1.2809;;;;;;;;;;;;;2;;;;;;;Mix3ICEban;1;2030;;SSP2-NPi2025;;SSP2-NPi2025;SSP2-PkBudg1050: This climate policy scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road. The stylized climate policy scenario assumes a peak budget of 1150 Gt CO2 on total CO2 emissions from 2015 to 2100. This is a well below 2C scenario at median climate sensitivity but returns to values below 2C in at least 67 % of scenarios during the whole century.
+SSP2-EcBudg400;0;;;;;;rcp26;globallyOptimal;;;5;400;5;functionalForm;exponential;70;;initialSpread20;GLO 2070;;;;;;1;1;5000;0;;;;2060.GLO 0.9;NDC;;;;;;;;;;;;;;;2;;;300;;;;Mix3ICEban;1;2035;;SSP2-NPi2025;;SSP2-NPi2025;SSP2-EcBudg400: This climate policy scenario follows the Shared Socioeconomic Pathways 2 called Middle of the Road. The stylized climate policy scenario assumes an end-of-century budget of 400 Gt CO2 on total CO2 emissions from 2020 to 2100. This is a high overshoot scenario with delayed climate policy.
+SSP2-rollBack;0;;;;;;;;;;0;;;none;;;;;;0;;;5;;;;;;;;;;none;;;;;;;;;;;;;;;;;;;;;;Mix1;1;2030;;SSP2-NPi2025;;SSP2-NPi2025;SSP2-rollBack: This rollback of climate policy scenario follows the Shared Socioeconomic Pathways 3 called Middle of the Road.

core/datainput.gms

@@ -828,7 +828,7 @@ pm_data(regi,"lifetime","tdh2b") = pm_data(regi,"lifetime","tdh2s");
 *' provided in generisdata_tech.prn.
 *' There is still some non-zero capacity beyond the average lifetime, until the maximum lifetime p_lifetime_max
 *' (calculated from an integral as 5/4 times the average lifetime).
-p_lifetime_max(regi,te) = 5 / 4 * pm_data(regi,"lifetime",te);
+pm_lifetime_max(regi,te) = 5 / 4 * pm_data(regi,"lifetime",te);
 pm_omeg(regi,opTimeYr,te) = max(0, 1 - ((opTimeYr.val - 0.5) / p_lifetime_max(regi,te))**4);
 
 *** Map each technology with its possible age
@@ -859,7 +859,7 @@ loop(regi,
     if(pm_omeg(regi,"1",te) eq 0,
       abort "Technology has zero lifetime", pm_omeg);
 ***   - lifetime of technology is longer than allowed by opTimeYr
-    if(p_lifetime_max(regi,te) > smax(opTimeYr, opTimeYr.val),
+    if(pm_lifetime_max(regi,te) > smax(opTimeYr, opTimeYr.val),
       abort "Technology has longer lifetime than allowed by opTimeYr", opTimeYr, p_lifetime_max);
 ***   - technology has remaining capacity beyond its lifetime
     if(

core/declarations.gms

@@ -228,7 +228,7 @@ pm_cf(tall,all_regi,all_te)                          "read-in parameter for capa
 p_tkpremused(all_regi,all_te)                        "turn-key cost premium used in the model (with a discount rate of 3 + pure rate of time preference), measured as relative increase of overnight investment costs)"
 pm_inco0_t(ttot,all_regi,all_te)                     "investment cost parameter including exogenuous time-variance for non-learning technologies [T$/TW]"
 pm_omeg(all_regi,opTimeYr,all_te)                    "technical depreciation parameter, gives the share of a capacity that is still usable after technical life time. [none/share, value between 0 and 1]"
-p_lifetime_max(all_regi,all_te)                      "maximum lifetime of a technology (generisdata_tech gives the average lifetime) [years]"
+pm_lifetime_max(all_regi,all_te)                      "maximum lifetime of a technology (generisdata_tech gives the average lifetime) [years]"
 p_discountedLifetime(all_te)                         "Sum over the discounted (@6%) depreciation factor (omega) [unitless]"
 pm_teAnnuity(all_te)                                 "Annuity factor of a technology [unitless]"
 
@@ -424,6 +424,7 @@ vm_flexAdj(tall,all_regi,all_te)                     "flexibility mark-up cost o
 vm_taxrevimplicitQttyTargetTax(ttot,all_regi)        "tax revenue of implict tax for quantity target bound [T$]"
 vm_taxrevimplicitPriceTax(ttot,all_regi,entySe,all_enty,sector)   "tax revenue of implict tax for final energy price target [T$]"
 vm_taxrevimplicitPePriceTax(ttot,all_regi,all_enty)  "tax revenue of implict tax forprimary energy price target [T$]"
+vm_waccCost(ttot,all_regi)                               "difference between WACC costs in current and previous iteration"
 ;
 
 

core/sets.gms

@@ -944,6 +944,7 @@ sets
        subsidizeLearning
        capitalMarket
        trade
+       WACC
        agCosts
        CES_parameters
        biomass
@@ -980,6 +981,7 @@ module2realisation(modules,*) "mapping of modules and active realisations" /
        subsidizeLearning . %subsidizeLearning%
        capitalMarket . %capitalMarket%
        trade . %trade%
+       WACC . %WACC%
        agCosts . %agCosts%
        CES_parameters . %CES_parameters%
        biomass . %biomass%

main.gms

@@ -297,6 +297,11 @@ $setglobal capitalMarket  debt_limit           !! def = debt_limit
 *' * (se_trade): macro-economic commodities, primary energy commodities and secondary energy hydrogen and electricity trading
 *' * (capacity): capacity-based trade implementation
 $setglobal trade  standard           !! def = standard
+*'---------------------    25_WACC    ------------------------------------------
+*'
+*' * (standard): WACC like tax
+*' * (off): no WACC
+$setglobal WACC  standard           !! def = standard
 *'----------------------   26_agCosts  ----------------------------------------
 *'
 *' * (off): agricultural costs zero, no trade taken into account

modules/01_macro/singleSectorGr/datainput.gms

@@ -9,9 +9,23 @@
 *** depreciation rate of capital
 pm_delta_kap(regi,"kap") = 0.05;
 
+p01_investeffectv('CAZ') = 0.8167;
+p01_investeffectv('CHA') = 0.8693;
+p01_investeffectv('EUR') = 0.7945;
+p01_investeffectv('IND') = 0.7404;
+p01_investeffectv('JPN') = 0.8565;
+p01_investeffectv('LAM') = 0.6906;
+p01_investeffectv('MEA') = 0.7231;
+p01_investeffectv('NEU') = 0.7940;
+p01_investeffectv('OAS') = 0.7458;
+p01_investeffectv('REF') = 0.7815;
+p01_investeffectv('SSA') = 0.6760;
+p01_investeffectv('USA') = 0.87 ;
+
 *AL* initialize parameter (avoid compilation errors)
 p01_ppfen_ratios(t,regi,in,in2) = 0; 
-p01_ppfen_shares(t,regi,in,in2) = 0; 
+p01_ppfen_shares(t,regi,in,in2) = 0;
+
 *** load data for macro investments in 2005, used as bound
 parameter p01_boundInvMacro(all_regi)        "macro investments in 2005" 
 /

modules/01_macro/singleSectorGr/declarations.gms

@@ -22,6 +22,7 @@ parameters
 o01_CESderivatives(ttot,all_regi,all_in,all_in)        "derivatives of production CES function"
 o01_totalCESEff(ttot,all_regi,all_in)                  "total CES efficiency" 
 o01_CESmrs(ttot,all_regi,all_in,all_in)                "marginal rate of subsitution of CES production factors"
+p01_investeffectv(all_regi)                                "efficiency rate of investments"
 ;
 
 ***------------------------------------------------------------ -------------------

modules/01_macro/singleSectorGr/equations.gms

@@ -53,6 +53,7 @@ qm_budget(ttot,regi)$( ttot.val ge cm_startyear ) ..
   + sum(enty$(emiMacSector(enty) AND (NOT emiMacMagpie(enty))), pm_macCost(ttot,regi,enty))
   + vm_costMatPrc(ttot,regi)
   + vm_costEnergySys(ttot,regi)
+  + vm_waccCost(ttot,regi)$(ttot.val ge 2010)
 ;
 
 ***---------------------------------------------------------------------------
@@ -124,10 +125,16 @@ q01_kapMo(ttot,regi,ppfKap(in))$(ord(ttot) lt card(ttot)
     vm_cesIO(ttot,regi,in)
   * (1 - pm_delta_kap(regi,in))
  ** (pm_ttot_val(ttot+1) - pm_ttot_val(ttot))
-  + p01_cumDeprecFactor_old(ttot+1,regi,in) * vm_invMacro(ttot,regi,in)
-  + p01_cumDeprecFactor_new(ttot+1,regi,in) * vm_invMacro(ttot+1,regi,in)
+   + p01_cumDeprecFactor_old(ttot+1,regi,in) * vm_invMacro(ttot,regi,in) * p01_investeffectv(regi)
+*    + p01_cumDeprecFactor_old(ttot+1,regi,in) * vm_invMacro(ttot,regi,in) 
+   + p01_cumDeprecFactor_new(ttot+1,regi,in) * vm_invMacro(ttot+1,regi,in) * p01_investeffectv(regi)
+*    + p01_cumDeprecFactor_new(ttot+1,regi,in) * vm_invMacro(ttot+1,regi,in)
 ;
 
+* * p01_investeffectv(regi) * (1 + (sum(inLocal, vm_invMacro(ttot+1,regi,inLocal)) - sum(inLocal, vm_invMacro(ttot,regi,inLocal))) / sum(inLocal, vm_invMacro(ttot,regi,inLocal)))
+*   + p01_cumDeprecFactor_new(ttot+1,regi,in) * vm_invMacro(ttot+1,regi,in)
+* * p01_investeffectv(regi) * (1 + (sum(inLocal, vm_invMacro(ttot+1,regi,inLocal)) - sum(inLocal, vm_invMacro(ttot,regi,inLocal))) / sum(inLocal, vm_invMacro(ttot,regi,inLocal)))
+
 ***---------------------------------------------------------------------------
 *' Adjustment costs of macro economic investments:
 ***---------------------------------------------------------------------------

modules/01_macro/singleSectorGr/sets.gms

@@ -35,5 +35,6 @@ alias(cesOut2cesIn,cesOut2cesIn2,cesOut2cesIn3);
 alias(in,out);
 alias(in,in2,in3);
 alias(ipf,ipf2);
+alias (in, inLocal);
 *** EOF ./modules/01_macro/singleSectorGr/sets.gms
 

modules/25_WACC/module.gms

@@ -0,0 +1,17 @@
+*** |  (C) 2006-2024 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/25_WACC/module.gms
+
+*' @title WACC Module
+*'
+*' @description The WACC module calculates the WACC related costs on technology investments. 
+
+*###################### R SECTION START (MODULETYPES) ##########################
+$Ifi "%WACC%" == "off" $include "./modules/25_WACC/off/realization.gms"
+$Ifi "%WACC%" == "standard" $include "./modules/25_WACC/standard/realization.gms"
+*###################### R SECTION END (MODULETYPES) ############################
+*** EOF ./modules/25_WACC/module.gms

modules/25_WACC/off/bounds.gms

@@ -0,0 +1,13 @@
+*** |  (C) 2006-2024 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/25_WACC/off/bounds.gms
+*fix the WACC term of the budget equation equal to zero for all times
+vm_waccCost(t, regi) = 0;
+
+***vm_techwaccCost(t, regi) = 0;
+***vm_invwaccCost(t, regi) = 0;
+*** EOF ./modules/25_WACC/off/bounds.gms

modules/25_WACC/off/not_used.txt

@@ -0,0 +1,6 @@
+name,type,reason
+vm_costInvTeDir,input,added by codeCheck
+vm_costInvTeAdj,input,added by codeCheck
+vm_invMacro,input,added by codeCheck
+pm_delta_kap,input,added by codeCheck
+pm_lifetime_max,input,added by codeCheck

modules/25_WACC/off/realization.gms

@@ -0,0 +1,12 @@
+*** |  (C) 2006-2024 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/25_WACC/off/realization.gms
+
+*####################### R SECTION START (PHASES) ##############################
+$Ifi "%phase%" == "bounds" $include "./modules/25_WACC/off/bounds.gms"
+*######################## R SECTION END (PHASES) ###############################
+*** EOF ./modules/25_WACC/off/realization.gms

modules/25_WACC/standard/bounds.gms

@@ -0,0 +1,25 @@
+*** |  (C) 2006-2024 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/25_WACC/standard/bounds.gms
+*fix budget equation term to zero for 2005
+***vm_waccCost.fx("2005",regi) = 0;
+
+p25_techwaccCostO("2005", regi)  = 0 ;
+p25_techwaccCost1("2005", regi)  = 0 ;
+p25_invwaccCost0("2005", regi)  = 0 ;
+p25_waccCostO_tewacc("2005", regi, tewacc) = 0 ;
+p25_waccCost1_tewacc("2005", regi, tewacc) = 0 ;
+
+*** EOF ./modules/25_WACC/standard/bounds.gms
+
+
+
+
+
+
+
+

modules/25_WACC/standard/datainput.gms

@@ -0,0 +1,65 @@
+*** |  (C) 2006-2024 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/25_WACC/standard/datainput.gms
+
+***---------------------------------------------------------------------------
+*** Read WACC values across technologies and countries
+***---------------------------------------------------------------------------
+*** Initialize WACC parameter for different regions and technologies  
+***p25_wacc(t, regi, tewacc) = 0;
+***p25_wacc(t, regi, tewacc) = 0;
+***p25_techwacc(t, regi, tewacc) = 0;
+
+p25_invwacc(t, 'CAZ') = 0.0043;
+p25_invwacc(t, 'CHA') = 0.0083;
+p25_invwacc(t, 'EUR') = 0.0085;
+p25_invwacc(t, 'IND') = 0.0215;
+p25_invwacc(t, 'JPN') = 0.0098;
+p25_invwacc(t, 'LAM') = 0.0364;
+p25_invwacc(t, 'MEA') = 0.0335;
+p25_invwacc(t, 'NEU') = 0.0243;
+p25_invwacc(t, 'OAS') = 0.0222;
+p25_invwacc(t, 'REF') = 0.0295;
+p25_invwacc(t, 'SSA') = 0.0401;
+p25_invwacc(t, 'USA') = 0.0055;
+
+*** Set WACC to 4% specifically for ngcc in EUR region
+***p25_wacc(t, regi, 'windon')$sameas(regi,'EUR') = 0.09;
+***p25_wacc(t, regi, 'windoff')$sameas(regi,'EUR') = 0.08;
+***p25_wacc(t, regi, 'spv')$sameas(regi,'EUR') = 0.07;
+
+
+***p25_wacc(t, regi, tewacc)$(
+***      sameas(regi, "EUR")
+***   AND (sameas(tewacc, "windon") OR sameas(tewacc, "windoff") OR sameas(tewacc, "spv"))
+***   AND (sameas(t, "2050") OR sameas(t, "2055") OR sameas(t, "2060")  
+***        OR sameas(t, "2070") OR sameas(t, "2080") OR sameas(t, "2090")  
+***        OR sameas(t, "2100") OR sameas(t, "2110") OR sameas(t, "2130")  
+***        OR sameas(t, "2150"))
+***) = 0.05;
+
+
+***Check if WACC data should be loaded  
+Parameter p25_techwacc(ttot, all_regi, tewacc)                       "WACC markup for each power technology in each REMIND region"   
+   /
+$ondelim 
+$include "./modules/25_WACC/standard/input/p25_wacc_extended.cs4r"   
+$offdelim
+  /
+;
+
+***Parameter p25_invwacc(ttot, all_regi)                       "WACC markup for each country"   
+***   /
+***$ondelim 
+***$include "./modules/25_WACC/standard/input/p25_wacc_extended.cs4r"   
+***$offdelim
+***  /
+***;
+
+***p25_wacc(ttot, all_regi, tewacc) = 2 * p25_wacc(ttot, all_regi, tewacc);
+
+*** EOF ./modules/25_WACC/standard/datainput.gms