David L Parkhurst 3ae99a4877 Modified to use callback
git-svn-id: svn://136.177.114.72/svn_GW/phreeqc/trunk@7892 1feff8c3-07ed-0310-ac33-dd36852eb9cd
2013-08-08 17:23:03 +00:00

18 lines
414 B
Plaintext

# 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