* put file for Optimal results

$include put_opt_early.gms
$include put_base25_early.gms
$include put_base5_early.gms
$include put_lim2deg_early.gms
$include put_lim25deg_early.gms
$include put_2xco2_early.gms
$include put_hotel_early.gms
$include put_limpart_early.gms
$include put_stern_early.gms
$include put_kyoto_withus_early.gms 
$include put_kyoto_nous_early.gms 


$include put_opt_late.gms
$include put_base25_late.gms
$include put_base5_late.gms
$include put_lim2deg_late.gms
$include put_lim25deg_late.gms
$include put_2xco2_late.gms
$include put_hotel_late.gms 
 


  

* put file for limited participation results

Put / "limit participation run";
Put / "year";
Loop (tlate, put year(tlate)::0);
Put / "output";
Loop (tlate, put limpart_y(tlate)::3);
Put / "pccon";
Loop (tlate, put limpart_cpc(tlate)::3);
Put / "savrate";
Loop (tlate, put limpart_s(tlate)::4);
Put / "indem";
Loop (tlate, put limpart_indem(tlate)::4);
Put / "participation rate";
Loop (tlate, put limpart_partfract(tlate)::4);
Put / "temp";
Loop (tlate, put limpart_tatm(tlate)::3);
Put / "conc";
Loop (tlate, put limpart_mat(tlate)::3);
Put / "soc cost carbon";
Loop (tlate, put limpart_tax(tlate)::2);
Put / "intrate";
Loop (tlate, put limpart_ri(tlate)::3);
Put / "discrate";
Loop (tlate, put limpart_rr(tlate)::5);
Put / "prod";
Loop (tlate, put limpart_al(tlate)::5);
Put / "exogforc";
Loop (tlate, put limpart_forcoth(tlate)::3);
Put / "pop";
Loop (tlate, put limpart_l(tlate)::3);
Put / "carbon tax";
Loop (tlate, put limpart_mcemis(tlate)::4);
Put / "margy";
Loop (tlate, put limpart_yy(tlate)::3);
Put / "margc";
Loop (tlate, put limpart_cc(tlate)::3);
Put / "miu";
Loop (tlate, put limpart_miu(tlate)::3);
Put / "total emissions";
Loop (tlate, put limpart_wem(tlate)::3);
Put / "interest rate";
Loop (tlate, put limpart_ri(tlate)::4);
Put / "damages";
Loop (tlate, put limpart_dam(tlate)::5);
Put / "abatement cost";
Loop (tlate, put limpart_abate(tlate)::5);
Put /"objective function";
Put limpart_utility::3;



* put file for original damage

Put / "Stern controls";
Put / "year";
Loop (tlate, put year(tlate)::0);
Put / "output";
Loop (tlate, put stern_y(tlate)::3);
Put / "pccon";
Loop (tlate, put stern_cpc(tlate)::3);
Put / "savrate";
Loop (tlate, put stern_s(tlate)::4);
Put / "indem";
Loop (tlate, put stern_indem(tlate)::4);
Put / "sigma";
Loop (tlate, put stern_sigma(tlate)::4);
Put / "temp";
Loop (tlate, put stern_tatm(tlate)::3);
Put / "conc";
Loop (tlate, put stern_mat(tlate)::3);
Put / "soc cost carbon";
Loop (tlate, put stern_tax(tlate)::2);
Put / "intrate";
Loop (tlate, put stern_ri(tlate)::3);
Put / "discrate";
Loop (tlate, put stern_rr(tlate)::5);
Put / "prod";
Loop (tlate, put stern_al(tlate)::5);
Put / "exogforc";
Loop (tlate, put stern_forcoth(tlate)::3);
Put / "pop";
Loop (tlate, put stern_l(tlate)::3);
Put / "carbon tax";
Loop (tlate, put stern_mcemis(tlate)::4);
Put / "margy";
Loop (tlate, put stern_yy(tlate)::3);
Put / "margc";
Loop (tlate, put stern_cc(tlate)::3);
Put / "miu";
Loop (tlate, put stern_miu(tlate)::3);
Put / "total emissions";
Loop (tlate, put stern_wem(tlate)::3);
Put / "interest rate";
Loop (tlate, put stern_ri(tlate)::4);
Put / "damages";
Loop (tlate, put stern_dam(tlate)::5);
Put / "abatement cost";
Loop (tlate, put stern_abate(tlate)::5);
Put /"objective function";
Put stern_utility::3;



* put file for Kyoto with US late

Put / "Kyoto with US";
Put / "year";
Loop (tlate, put year(tlate)::0);
Put / "output";
Loop (tlate, put kyoto_withus_y(tlate)::3);
Put / "pccon";
Loop (tlate, put kyoto_withus_cpc(tlate)::3);
Put / "savrate";
Loop (tlate, put kyoto_withus_s(tlate)::4);
Put / "indem";
Loop (tlate, put kyoto_withus_indem(tlate)::4);
Put / "participation rate";
Loop (tlate, put kyoto_withus_partfract(tlate)::4);
Put / "temp";
Loop (tlate, put kyoto_withus_tatm(tlate)::3);
Put / "conc";
Loop (tlate, put kyoto_withus_mat(tlate)::3);
Put / "soc cost carbon";
Loop (tlate, put kyoto_withus_tax(tlate)::2);
Put / "intrate";
Loop (tlate, put kyoto_withus_ri(tlate)::3);
Put / "discrate";
Loop (tlate, put kyoto_withus_rr(tlate)::5);
Put / "prod";
Loop (tlate, put kyoto_withus_al(tlate)::5);
Put / "exogforc";
Loop (tlate, put kyoto_withus_forcoth(tlate)::3);
Put / "pop";
Loop (tlate, put kyoto_withus_l(tlate)::3);
Put / "carbon tax";
Loop (tlate, put kyoto_withus_mcemis(tlate)::4);
Put / "margy";
Loop (tlate, put kyoto_withus_yy(tlate)::3);
Put / "margc";
Loop (tlate, put kyoto_withus_cc(tlate)::3);
Put / "miu";
Loop (tlate, put kyoto_withus_miu(tlate)::3);
Put / "total emissions";
Loop (tlate, put kyoto_withus_wem(tlate)::3);
Put / "interest rate";
Loop (tlate, put kyoto_withus_ri(tlate)::4);
Put / "damages";
Loop (tlate, put kyoto_withus_dam(tlate)::5);
Put / "abatement cost";
Loop (tlate, put kyoto_withus_abate(tlate)::5);
Put /"objective function";
Put kyoto_withus_utility::3;


* put file for Kyoto without US run

Put / "Kyoto without US";
Put / "year";
Loop (tlate, put year(tlate)::0);
Put / "output";
Loop (tlate, put kyoto_nous_y(tlate)::3);
Put / "pccon";
Loop (tlate, put kyoto_nous_cpc(tlate)::3);
Put / "savrate";
Loop (tlate, put kyoto_nous_s(tlate)::4);
Put / "indem";
Loop (tlate, put kyoto_nous_indem(tlate)::4);
Put / "participation rate";
Loop (tlate, put kyoto_nous_partfract(tlate)::4);
Put / "temp";
Loop (tlate, put kyoto_nous_tatm(tlate)::3);
Put / "conc";
Loop (tlate, put kyoto_nous_mat(tlate)::3);
Put / "soc cost carbon";
Loop (tlate, put kyoto_nous_tax(tlate)::2);
Put / "intrate";
Loop (tlate, put kyoto_nous_ri(tlate)::3);
Put / "discrate";
Loop (tlate, put kyoto_nous_rr(tlate)::5);
Put / "prod";
Loop (tlate, put kyoto_nous_al(tlate)::5);
Put / "exogforc";
Loop (tlate, put kyoto_nous_forcoth(tlate)::3);
Put / "pop";
Loop (tlate, put kyoto_nous_l(tlate)::3);
Put / "carbon tax";
Loop (tlate, put kyoto_nous_mcemis(tlate)::4);
Put / "margy";
Loop (tlate, put kyoto_nous_yy(tlate)::3);
Put / "margc";
Loop (tlate, put kyoto_nous_cc(tlate)::3);
Put / "miu";
Loop (tlate, put kyoto_nous_miu(tlate)::3);
Put / "total emissions";
Loop (tlate, put kyoto_nous_wem(tlate)::3);
Put / "interest rate";
Loop (tlate, put kyoto_nous_ri(tlate)::4);
Put / "damages";
Loop (tlate, put kyoto_nous_dam(tlate)::5);
Put / "abatement cost";
Loop (tlate, put kyoto_nous_abate(tlate)::5);
Put /"objective function";
Put kyoto_nous_utility::3;