DATABASE C:\Program Files (x86)\USGS\Phreeqc Interactive 3.7.0-15749\database\pitzer.datTITLE Calcite dissolution attempt.SOLUTION_MASTER_SPECIESH H+ -1.0 H 1.008H(0) H2 0.0 HH(1) H+ -1.0 0.0E e- 0.0 0.0 0.0O H2O 0.0 O 16.0O(0) O2 0.0 OO(-2) H2O 0.0 0.0C CO3-2 2 HCO3 12.0111C(4) CO3-2 2 HCO3 12.0111##############################SOLUTION_SPECIESH+ = H+ log_k 0.0 -gamma 9.0 0.0e- = e- log_k 0.0H2O = H2O log_k 0.0 H2O = OH- + H+ log_k -14.0 delta_h 13.362 kcal -analytic -283.971 -0.05069842 13323.0 102.24447 -1119669.0 -gamma 3.5 0.0 2 H2O = O2 + 4 H+ + 4 e- log_k -86.08 delta_h 134.79 kcal2 H+ + 2 e- = H2 log_k -3.15 delta_h -1.759 ##############################SOLUTION 0 HCl units mol/kgw temp 25.0 pH 2.0 charge H(1) 0.01 # 0.01M HCl solution Cl 0.01SOLUTION 1-4 Initial solution for column units mol/kgw temp 25.0 pH 7.0 charge pure water 1.0ENDKINETICS 1-4 Calcite formula CaCO3 1 m 3.1 m0 3.1 parms 5.0 0.3 tol 1.e-8RATES Calcite -start 1 rem M = current number of moles of calcite 2 rem M0 = number of moles of calcite initially present 3 rem PARM(1) = A/V, cm^2/L 4 rem PARM(2) = exponent for M/M0 10 si_cc = SI("Calcite") 20 if (M <= 0 and si_cc < 0) then goto 200 30 k1 = 10^(0.198 - 444.0 / TK ) 40 k2 = 10^(2.84 - 2177.0 / TK) 50 if TC <= 25 then k3 = 10^(-5.86 - 317.0 / TK ) 60 if TC > 25 then k3 = 10^(-1.1 - 1737.0 / TK ) 70 t = 1 80 if M0 > 0 then t = M/M0 90 if t = 0 then t = 1 100 area = PARM(1) * (t)^PARM(2) 110 rf = k1*ACT("H+")+k2*ACT("CO2")+k3*ACT("H2O") 120 rem 1e-3 converts mmol to mol 130 rate = area * 1e-3 * rf * (1 - 10^(2/3*si_cc)) 140 moles = rate * TIME 200 SAVE moles -endTRANSPORT -cells 4 -lengths 0.02 -shifts 25 -time_step 1440 -flow_direction forward -boundary_conditions flux flux -diffusion_coefficient 1.e-9 -dispersivities 0.000 -correct_disp true -punch_cells 4 -punch_frequency 1 -print_cells 4 -print_frequency 1USER_PUNCH -heading Calcite Act_H+ -start 10 punch M 20 punch ACT("H(1)") -endSELECTED_OUTPUT -file outputFile.sel -reset false -step -totals H(1) Cl Ca C -high_precision true
10 PUNCH KIN("Calcite")20 PUNCH ACT("H+")
#DATABASE C:\Program Files (x86)\USGS\Phreeqc Interactive 3.7.0-15749\database\pitzer.datTITLE Calcite dissolution attempt. ##############################SOLUTION 0 HCl units mol/kgw temp 25.0 pH 2.0 charge Cl 0.01KINETICS 1Calcite formula CaCO3 1 m 3.1 m0 3.1 parms 5.0 0.3 tol 1.e-8 -steps 86400 in 24RATES Calcite-start 1 rem M = current number of moles of calcite 2 rem M0 = number of moles of calcite initially present 3 rem PARM(1) = A/V, cm^2/L 4 rem PARM(2) = exponent for M/M0 10 si_cc = SI("Calcite") 20 if (M <= 0 and si_cc < 0) then goto 200 30 k1 = 10^(0.198 - 444.0 / TK ) 40 k2 = 10^(2.84 - 2177.0 / TK) 50 if TC <= 25 then k3 = 10^(-5.86 - 317.0 / TK ) 60 if TC > 25 then k3 = 10^(-1.1 - 1737.0 / TK ) 70 t = 1 80 if M0 > 0 then t = M/M0 90 if t = 0 then t = 1100 area = PARM(1) * (t)^PARM(2)110 rf = k1*ACT("H+")+k2*ACT("CO2")+k3*ACT("H2O")120 rem 1e-3 converts mmol to mol130 rate = area * 1e-3 * rf * (1 - 10^(2/3*si_cc))140 moles = rate * TIME200 SAVE moles-endENDUSE solution 0USE kinetics 1USER_GRAPH 1 -headings Time Delta_Calcite pH -axis_titles "Time, hours" "Delta Calcite, moles" "pH" -initial_solutions false -connect_simulations true -plot_concentration_vs time -start 5 GRAPH_X TOTAL_TIME/360010 GRAPH_Y KIN_DELTA("Calcite")20 GRAPH_SY -LA("H+") -end
Hi,I didn't check your whole model, but in your USER_PUNCH block, try using:Code: [Select]10 PUNCH KIN("Calcite")20 PUNCH ACT("H+")At least, this will give you the activity of H+ in the SELECTED_OUTPUT file. I tried this without a transport simulation and it works.
SOLUTION 0 HCl units mol/kgw temp 25.0 pH 2.0 charge Cl 0.01ENDEQUILIBRIUM_PHASES 1Calcite 0 10END