# File ic
SOLUTION 1-2
END
EQUILIBRIUM_PHASES 1
   CO2(g) -1.5 10
   
EQUILIBRIUM_PHASES 2
   Calcite 0   10
SELECTED_OUTPUT
   -reset false
USER_PUNCH
   -Heading  charge    H   O   C   Ca  pH  SR(calcite) Year
   10 PUNCH charge_balance
   20 PUNCH TOTMOLE("H"), TOTMOLE("O"), TOTMOLE("C"), TOTMOLE("Ca")
   30 PUNCH -LA("H+"), SR("calcite")
   40 PUNCH CALLBACK(cell_no, -LA("H+"), "Year")
END