mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 00:28:23 +01:00
8daede105d
git-subtree-dir: examples/fortran git-subtree-mainline: badfc51b4fdc3f960243c69ff2707f952427f3ac git-subtree-split: c5f2dba47264f3535411ca7510941efd282ffb9a
18 lines
414 B
Plaintext
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
|