* Stern results

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;