PHASES H2S(g) H2S = H+ + HS- log_k -7.97 -delta_h 9.1 # -analytic -9.7354e+001 -3.1576e-002 1.8285e+003 3.7440e+001 2.8560e+001 -T_c 373.2 -P_c 88.2 #-Omega 0.1 SELECTED_OUTPUT 2; -file output; -reset false USER_PUNCH 2 10 s$ = s$ + STR$(PR_PHI("H2S(g)")) + STR$(GAMMA("HS-")) + STR$(GAMMA("H2S")) + STR$(tot("S(-2)")) + STR$(SI("H2S(g)")) 20 PUNCH s$ SOLUTION 1 -temp 50 -units mg/l Ca 4454.5163 Mg 1534.8663 Na 10203.8046 K 1398.1534 Cl 38452.7359 S(-2) 1 H2S(g) 0 SELECTED_OUTPUT 1; -reset false; -file H2S_50 USER_PUNCH 1 1 i = 75.1267 10 s$ = s$ + 'USE solution 1' + EOL$ 20 s$ = s$ + 'EQUILIBRIUM_PHASES 1'+ EOL$ 30 s$ = s$ + 'H2S(g)'+ STR$(LOG10(i))+' 10 '+ EOL$ 40 s$ = s$ +'END'+ EOL$ 50 PUNCH s$ END SELECTED_OUTPUT 1; -active false INCLUDE$ H2S_50 END
SOLUTION-units ppmCa 4454.5163Mg 1534.8663Na 10203.8046K 1398.1534Cl 38452.7359END
Electrical balance (eq) = -2.717e-01 Percent error, 100*(Cat-|An|)/(Cat+|An|) = -14.20
Cl 38452.7359 charge
PHASESCO2(g) CO2=CO2log_k -1.468-T_c 304.2-P_c 72.86-Omega 0.2236-analytic 10.5624 -2.3547e-2 -3972.8 0 5.8746e5 1.9194e-5PRINT; -reset falseSOLUTION 1SELECTED_OUTPUT; -reset false; -file co2_50.prnUSER_PUNCH 1 sc$ = chr$(59) 10 for i = 1.1 to 520 step 20 20 punch 'SOLUTION 1' + sc$ + ' -temp 50' + sc$ + '-pressure ' + str$(i) + EOL$ + 'EQUILIBRIUM_PHASES' + sc$ + 'Calcite 1' + sc$ + ' CO2(g) ' + str$(log10(i)) + EOL$ + 'END' + EOL$ 30 next iENDPRINT; -reset false; -echo_input true; -selected_out falseUSER_GRAPH -chart_title "Using: EQUILIBRIUM_PHASES" -plot_csv_file CO2_CaCl2_measurement_1MOL_CaCl2.tsv -axis_titles "Pressure / atm" "CO2 / (mol/kgw)" -axis_scale x_axis 0 500 -axis_scale y_axis 0 2 10 x = PR_P("CO2(g)") 20 graph_x x 30 graph_y tot("C(4)") -endINCLUDE$ co2_50.prnENDSOLUTIONPRINT; -selected_out trueSELECTED_OUTPUT; file co2_100.prnUSER_PUNCH 1 sc$ = chr$(59) 10 for i = 1.1 to 520 step 20 20 punch 'SOLUTION 1' + sc$ ' -temp 100' + sc$ + '-pressure ' + str$(i) + EOL$ + 'EQUILIBRIUM_PHASES' + sc$ + 'Calcite 1' + sc$ + ' CO2(g) ' + str$(log10(i)) + EOL$ + 'END' + EOL$ 30 next iUSER_GRAPH -connect_simulations falseENDPRINT; -selected_out falseSELECTED_OUTPUTUSER_GRAPH -connect_simulations trueINCLUDE$ co2_100.prnENDSOLUTIONPRINT; -selected_out trueSELECTED_OUTPUT; file co2_150.prnUSER_PUNCH 1 sc$ = chr$(59) 10 for i = 1.1 to 520 step 20 20 punch 'SOLUTION 1' + sc$ + ' -temp 150' + sc$ + '-pressure ' + str$(i) + EOL$ + 'EQUILIBRIUM_PHASES' + sc$ + 'Calcite 1' + sc$ + ' CO2(g) ' + str$(log10(i)) + EOL$ + 'END' + EOL$ 30 next iUSER_GRAPH -connect_simulations falseENDPRINT; -selected_out falseSELECTED_OUTPUTUSER_GRAPH -connect_simulations trueINCLUDE$ co2_150.prnEND
EQUILIBRIUM_PHASESCalcite 1 10CO2(g) p 10
USER_PUNCH 1 1 sc$ = chr$(59)10 for i = 1.1 to 520 step 2020 s$ = s$ + "SOLUTION 1" + sc$ + ' -temp 50' + sc$ + '-pressure ' + str$(i) + EOL$ 30 s$ = s$ + "-units mol/kgw" + sc$ + "Ca 1" + sc$ + "Cl 2" + EOL$40 s$ = s$ + 'EQUILIBRIUM_PHASES' + sc$ + ' CO2(g) ' + str$(log10(i)) + EOL$ 50 s$ = s$ + 'END' + EOL$60 next i70 PUNCH s$END
Calcite 0 0
SOLUTION 1 -pressure 325.8895 -temp 135.8688 -units mol/kgw Ca 0.082207 Mg 0.0068278 Cl 0.17807EQUILIBRIUM_PHASES 1 Sylvite 0 1 Halite 0 1SAVE solution 1SELECTED_OUTPUT 2; -file output; -reset false;-pH true;-pe true;-ionic_strength trueUSER_PUNCH 2 10 s$ = s$ + STR$(PR_PHI("CO2(g)")) + STR$(GAMMA("HCO3-")) + STR$(GAMMA("CO2")) + STR$(tot("C(4)")) 20 PUNCH s$PHASES CO2(g) CO2 = CO2 -log_k -1.468 -delta_h -4.776 kcal -analytic 10.5624 -2.3547e-2 -3972.8 0 5.8746e5 1.9194e-5 -T_c 304.2 # critical T, K -P_c 72.86 # critical P, atmSELECTED_OUTPUT 1; -reset false; -file CO2_50USER_PUNCH 1 1 i = 325.8895 10 s$ = s$ + 'USE solution 1' + EOL$ 20 s$ = s$ + 'EQUILIBRIUM_PHASES 1'+ EOL$ 30 s$ = s$ + 'CO2(g) '+ STR$(LOG10(i))+' 10 '+ EOL$ 40 s$ = s$ + 'END'+ EOL$ 50 PUNCH s$ENDSELECTED_OUTPUT 1; -active falseINCLUDE$ CO2_50END
CO2 8.888e-01 1.202e+00 -0.051 0.080 0.131 41.09
-analytical -11.17 0.02386 3271.0
HS- + H+ = H2S -log_k 6.994 -delta_h -5.30 kcal -analytical -11.17 0.02386 3279.0 -dw 2.1e-9 -Vm 1.39 28.3 0 -7.22 -0.59 # ref. 1 + Hnedkovsky et al., 1996, JCT 28, 125
PHASESSOLUTION_SPECIESHS- + H+ = H2S -analytical -11.17 0.02386 3271.0 USER_GRAPH -plot_csv_file Experiment_H2S_NaCl_1.csv -axis_titles "Pressure / atm" "H2S / (mol/kgw)" " phi_H2S" -axis_scale x_axis aoto auto -initial_solutions true -start 10 x = PR_P("H2S(g)") 20 graph_x x # tot("Na") 30 graph_y tot("S(-2)") 40 graph_sy PR_phi("H2S(g)") #mol("H2S") / tot("S") -endSOLUTION 1 temp 30 units mol/kgw Cl 1 Na 1 SELECTED_OUTPUT 2; -file output; -reset falseUSER_PUNCH 1 10 FOR i = 1.1 TO 220 STEP 5 # {do something} NEXT i i = 1.1 to 220 step 5 20 s$ = s$ + 'USE solution 1' + EOL$ 30 s$ = s$ + 'EQUILIBRIUM_PHASES 1' + EOL$ 40 s$ = s$ + 'H2S(g) ' + STR$(LOG10(i)) + ' 10' + EOL$ 50 s$ = s$ + 'END' + EOL$ 60 NEXT i 70 PUNCH s$ENDSELECTED_OUTPUT 1; -active falseINCLUDE$ H2S_30.PRNEND
log10(gamma) = b*I