DATABASE ../database/phreeqc_rates.datRATESAlbite_PK # Palandri and Kharaka, 20045 REM PARMS: 1 affinity, 2 m^2/mol, 3 roughness, 4 exponent10 if parm(1) = 1 then affinity = 1 else affinity = 1 - SR("Albite") : if affinity < parm(1) then SAVE 0 : END20 rate = RATE_PK("Albite")30 IF M > 0 THEN area = M * parm(2) * parm(3) * (M/M0)^parm(4) ELSE area = 040 SAVE area * rate * affinity * TIME-end KINETICS 1Albite_PK-formula NaAlSi3O8; -parms 0 1 1 0.67-m0 1; -time 1 # defaultENDSOLUTION 1PHASES Fix_pH; H+ = H+ LiBr; LiBr = Li+ + Br-; -log_k -20 # (very) unsoluble phase with base cation and acid anion, permits to use HBr or LiOH as reactant SELECTED_OUTPUT 1 -file kinetic_rates_pH.inc -reset false USER_PUNCH 1 # write out the pH's to equilibrate... 10 FOR i = 0 to 14 STEP 0.5 20 punch EOL$ + 'USE solution 1' 30 punch EOL$ + 'EQUILIBRIUM_PHASES 1' 40 punch EOL$ + ' LiBr' 50 punch EOL$ + ' Fix_pH ' + TRIM(STR$(-i)) + ' LiOH 10' # ...or HBr as reactant 60 punch EOL$ + 'USE kinetics 1' 70 punch EOL$ + 'END' 80 NEXT i END PRINT; -reset falseSELECTED_OUTPUT 1; -active falseUSER_GRAPH 1; -headings pH Palandri-axis_titles pH "log10(initial rate / (mol / m2 / s))"-axis_scale x_axis 0 1410 graph_x -la("H+")20 graph_sy log10(tot("Al"))INCLUDE$ kinetic_rates_pH.inc ENDRATESAlbite_Svd # Sverdrup, 20195 REM PARMS: 1 affinity, 2 m^2/mol, 3 roughness, 4 exponent10 if parm(1) = 1 then affinity = 1 else affinity = 1 - SR("Albite") : if affinity < parm(1) then SAVE 0 : END20 rate = RATE_SVD("Albite")30 IF M > 0 THEN area = M * parm(2) * parm(3) * (M/M0)^parm(4) ELSE area = 040 SAVE area * rate * affinity * TIME-end KINETICS 1Albite_Svd-formula NaAlSi3O8; -parms 0 1 20 0.67 # roughness = 20USER_GRAPH 1; -headings pH Sverdup*20INCLUDE$ kinetic_rates_pH.incENDKINETICS 1Albite # from Sverdrup and Warfvinge, 1995-formula NaAlSi3O8; -parms 1 20 # roughness = 20USER_GRAPH 1; -headings pH Sverdup`95*20INCLUDE$ kinetic_rates_pH.incENDRATESAlbite_Hermanska # 20225 REM PARMS: 1 affinity, 2 m^2/mol, 3 roughness, 4 exponent10 if parm(1) = 1 then affinity = 1 else affinity = 1 - SR("Albite") : if affinity < parm(1) then SAVE 0 : END20 rate = RATE_HERMANSKA("Albite")30 IF M > 0 THEN area = M * parm(2) * parm(3) * (M/M0)^parm(4) ELSE area = 040 SAVE area * rate * affinity * TIME-end KINETICS 1Albite_Hermanska-formula NaAlSi3O8; -parms 0 1 1 0.67USER_GRAPH 1; -headings pH HermanskaINCLUDE$ kinetic_rates_pH.incENDUSE solution 1REACTION_TEMPERATURE 1; 25 25 in 21USER_GRAPH 1; -headings Albite_data 10 data 1.1, 2.05, 2.45, 2.9, 3, 3.5, 4.1, 5.1, 5.35, 5.47, 5.63, 5.63, 5.73, 7.73, 9.95, 9.95, 9.95, 10.6, 11.2, 11.55, 12.320 data -10.25, -10.55, -10.82, -11.25, -11.1, -11.4, -11.47, -11.82, -11.75, -11.65, -11.83, -11.92, -11.92, -11.83, -10.97, -11.05, -11.13, -10.95, -10.55, -10.6, -10.38 # Chou, L., Wollast, R., 1985. Steady-state kinetics and dissolution mechanisms of albite. Am. J. Sci. 285, 963?993.30 restore 10 : dim ph(21) : for i = 1 to step_no : read ph(i) : next i40 restore 20 : dim lk(21) : for i = 1 to step_no : read lk(i) : next i50 i = step_no : plot_xy ph(i), lk(i), line_width = 0, color = Black, y_axis = 2, symbol_size = 10, symbol = CircleEND# compare rates for calcite dissolution# of Palandri and Kharaka, 2004 and Plummer, Wigley and Parkhurst, 1978# at different initial CO2 concentrations.# =====================================USER_GRAPH 1; -active falseRATESCalcite_PK # Palandri and Kharaka, 20045 REM PARMS: 1 affinity, 2 m^2/mol, 3 roughness, 4 exponent10 if parm(1) = 1 then affinity = 1 else affinity = 1 - SR("calcite") : if affinity < parm(1) then SAVE 0 : END20 rate = RATE_PK("calcite")30 IF M > 0 THEN area = M * parm(2) * parm(3) * (M/M0)^parm(4) ELSE area = 040 SAVE area * rate * affinity * TIME-end SOLUTION 1pH 7 charge; C(4) 1 CO2(g) -2.5KINETICS 1calcite_PK-formula CaCO3; -parms 0 1e-2 1 0.67-time 0.1 10*1 hourINCREMENTAL_REACTIONS trueUSER_GRAPH 2; -headings h Palandri_SI(CO2_g).=.-2.5-axis_titles "time / hours" "Calcite dissolved / (mmol/kgw)"10 graph_x total_time / 3600 : graph_sy tot("Ca") * 1e3ENDUSE solution 1KINETICS 1Calcite-parms 1e2 0.67 # cm^2/mol calcite, exp factor-time 0.1 10*1 hourUSER_GRAPH 2; -headings h Plummer.Wigley.ParkhurstENDSOLUTION 1pH 7 charge; C(4) 1 CO2(g) -1.5KINETICS 1calcite_PK-formula CaCO3-parms 0 1e-2 1 0.67-time 0.1 10*1 hourUSER_GRAPH 2; -headings h Palandri_SI(CO2_g).=.-1.5ENDUSE solution 1KINETICS 1Calcite-parms 1e2 0.67-time 0.1 10*1 hourUSER_GRAPH 2; -headings h Plummer.Wigley.ParkhurstEND# compare rates for quartz dissolution# and the effect of NaCl# =====================================USER_GRAPH 2; -active falseRATESQuartz_PK # Palandri and Kharaka, 20045 REM PARMS: 1 affinity, 2 m^2/mol, 3 roughness, 4 exponent10 if parm(1) = 1 then affinity = 1 else affinity = 1 - SR("Quartz") : if affinity < parm(1) then SAVE 0 : END20 rate = RATE_PK("Quartz")30 IF M > 0 THEN area = M * parm(2) * parm(3) * (M/M0)^parm(4) ELSE area = 040 SAVE area * rate * affinity * TIME-end SOLUTION 1pH 7 chargeKINETICS 1Quartz_PK-formula SiO2-parms 0 6 1 0.67-time 0.1 10*1 yearINCREMENTAL_REACTIONS trueUSER_GRAPH 3; -headings h Palandri-axis_titles "time / years" "Quartz dissolved / (mmol/kgw)"10 graph_x total_time / 3.15e7 : graph_sy tot("Si") * 1e3ENDRATESQuartz_Hermanska # 5 REM PARMS: 1 affinity, 2 m^2/mol, 3 roughness, 4 exponent10 if parm(1) = 1 then affinity = 1 else affinity = 1 - SR("Quartz") : if affinity < parm(1) then SAVE 0 : END20 rate = RATE_HERMANSKA("Quartz")30 IF M > 0 THEN area = M * parm(2) * parm(3) * (M/M0)^parm(4) ELSE area = 040 SAVE area * rate * affinity * TIME-end USE solution 1KINETICS 1Quartz_Hermanska-formula SiO2-parms 0 6 1 0.67-time 0.1 10*1 yearUSER_GRAPH 3-headings H HermanskaENDRATESQuartz_Svd # Sverdrup, 20195 REM PARMS: 1 affinity, 2 m^2/mol, 3 roughness, 4 exponent10 if parm(1) = 1 then affinity = 1 else affinity = 1 - SR("Quartz") : if affinity < parm(1) then SAVE 0 : END20 rate = RATE_SVD("Quartz")30 IF M > 0 THEN area = M * parm(2) * parm(3) * (M/M0)^parm(4) ELSE area = 040 SAVE area * rate * affinity * TIME-end USE solution 1KINETICS 1Quartz_Svd-formula SiO2-parms 0 6 1 0.67-time 0.1 10*1 yearUSER_GRAPH 3-headings H SverdupENDRATESQuartz_Rimstidt_Barnes#1 rem Specific rate k = 10^-13.7 mol/m2/s (25 C), Ea = 90 kJ/mol, Rimstidt and Barnes, 1980, GCA 44, 16835 REM PARMS: 1 affinity, 2 m^2/mol, 3 roughness, 4 exponent10 if parm(1) = 1 then affinity = 1 else affinity = 1 - SR("Quartz") : if affinity < parm(1) then SAVE 0 : END20 rate = 10^-(13.7 + 4700 * (1 / 298 - 1 / TK)) * (1 + 1500*tot("Na")) # salt correction, Dove and Rimstidt, 1994, MSA Rev. 29, 25930 IF M > 0 THEN area = M * parm(2) * parm(3) * (M/M0)^parm(4) ELSE area = 040 SAVE area * rate * affinity * TIME-endUSE solution 1KINETICS 1Quartz_Rimstidt_Barnes-formula SiO2-parms 0 6 1 0.67-time 0.1 10*1 yearUSER_GRAPH 3-headings H Rimstidt.et.alENDSOLUTION 1pH 7 charge; Na 30; Cl 30KINETICS 1Quartz_Rimstidt_Barnes-formula SiO2-parms 0 6 1 0.67-time 0.1 10*1 yearUSER_GRAPH 3-headings H Rimstidt.et.al._NaClEND