SOLUTION 1-2
END
EQUILIBRIUM_PHASES 1
   CO2(g) -1.5 10
EQUILIBRIUM_PHASES 2
   Calcite 0   10
SELECTED_OUTPUT 1
   -reset false
USER_PUNCH
   -Heading  pH  SR(calcite)  Year
   10 PUNCH -LA("H+"), SR("calcite")
   20 PUNCH CALLBACK(cell_no, -LA("H+"), "Year")
END
RUN_CELLS
   -cells 1-2
END