* The values of parameters in the file have to be checked for each run to make sure they are set correctly

parameter
* define share of perfect flows of production factors
         FreeF_SH(f,r)  the share of factors that can be freely moved from one sector to another
         NFreeF_SH(f,a,y,r)  the share of factors that can be freely moved from one sector to another
* green bond
         FreeF_SH_noC(f,r)  the share of factors that can be freely moved among non-coal sectors
         FreeF_SH_noF(f,r)  the share of factors that can be freely moved among non-fossil_fuel sectors

* Introduce carbon tax/permits
         C_toggle(r)   activate the carbon market
         Ctax_toggle(r)   switches between carbon tax and permit control. carbon tax is activated if its value is 1
         Csub_toggle(r)   subsidy from carbon premium is activated to agricultural land use
         Ctrad_toggle    switch the carbon trade among regions if its value is 1

         calib_toggle     calibrate total factor productivity (TFP) to given GDP growth rate if its value is 1
         calib_GDP(r) calibrate GDP to given path if its value is 1
         calib_primen(y,r) calibrate primary energy use or electricity use to given path if its value is 1
         calib_capa(a,y,r) calibrate electricity generation to given path if its value is 1
         calib_KHAT(r) calibrate init normal rate of growth in the rate of return to capital so that balanced rate of return (RORE) is zero

* Full employment or fixed wage rate
         Unemp(r)  allow unemployment by fixing wage rate at the BAU level if its value is 1
         ;

C_toggle(r) = 0;
Ctrad_toggle = 0;
Ctax_toggle(r) = 0;
Csub_toggle(r) = 0 ;
calib_toggle = 1;
$if exist efftfp.gdx calib_toggle = 0;
calib_GDP(r) = 1;
calib_primen(y,r)$ipep(y)  = 1 ;
calib_capa(a,y,r)$(ielc(y) and ay(a,y) and XDAZ(a,y,r)) = 1;
calib_KHAT(r) = 0 ;
Unemp(r) = 0 ;

* define share of perfect flows of production factors
FreeF_SH(f,r)$flab(f) = 1 ;
FreeF_SH(f,r)$(not flab(f)) = 0 ;
FreeF_SH(f,r)$fcap(f) =   0.04;

FreeF_SH_noC(f,r)  =  0 ;
FreeF_SH_noF(f,r)  =  0 ;

NFreeF_SH(f,a,i,r)$(ay(a,i) and IFAZ(f,a,i,r)) = 1 ;

display FreeF_SH;