DATABASE C:\phreeqc\database\core10.datRATES Forsterite1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=8.38E+0412 E1=6720613 n1=0.47020 rem neutral solution parameters21 a2=1.58E+0322 E2=7900030 rem base solution parameters31 a3=1.00E-07 32 E3=5663733 n2=-0.60036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("forsterite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2 + Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-end Fayalite# from Palandri and Kharaka 2004# experimental condition range T=8-25C, pH=1.3-11-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note 4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=5.48E+1112 E1=9440013 n1=020 rem neutral solution parameters21 a2=5.48E+0222 E2=9440030 rem base solution parameters31 a3=032 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("Fayalite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endDiopside# from Palandri and Kharaka 2004# experimental condition range T=8-90C, pH=1-6-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note 4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=3.00E+10 12 E1=9610013 n1=0.71020 rem neutral solution parameters21 a2=1.00E-04 22 E2=4060030 rem base solution parameters31 a3=032 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("diopside")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endenstatite# from Palandri and Kharaka 2004# experimental condition range T=8-72C, pH=1-12-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note 4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=1.00E+05 12 E1=8000013 n1=0.60020 rem neutral solution parameters21 a2=2.00E+01 22 E2=8000030 rem base solution parameters31 a3=032 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("enstatite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endAnorthite# from Palandri and Kharaka 2004# experimental condition range T=25-95C, pH=2-10.2-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note 4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=2.58E-01 12 E1=1660113 n1=1.41120 rem neutral solution parameters21 a2=1.00E-06 22 E2=1782130 rem base solution parameters31 a3=1.00E-22 32 E3=1815033 n2=-1.76736 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("anorthite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endmagnesite# from Palandri and Kharaka 2004# experimental condition range T=25C, pH=0.2-12# calcite activation energy is assumed# near equilibrium parameters p=4.0 and q=1.0-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note 4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=1.39E-4 12 E1=1440013 n1=1.00020 rem neutral solution parameters21 a2=5.99E-6 22 E2=2350030 rem CO2 denpendence parameters31 a3=6.03E+05 32 E3=6280033 n2=1.00036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("magnesite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*SR("CO2(g)")^n2 #CO2 rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endhematite# from Palandri and Kharaka 2004# experimental condition range T=25-50C, pH=0-5-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note 4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=161.6 12 E1=6620013 n1=0120 rem neutral solution parameters21 a2=9.96E-4 22 E2=6621030 rem basic dependence parameters31 a3=0 32 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("hematite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endSOLUTION 1 #define reaction Solution in ambient environmentwater 2pH 6temp 25pressure 1units mol/LNa 0.5Cl 0.5SAVE SOLUTION 1USER_PUNCH -headings -startend KINETICS 1-6 # I wanted to create 5 different Kinetic reaction but in output there are only 1Forsterite -formula Mg2SiO4 1.0 -m 2e-1 -M0 2e-1 # moles of solid per kg of water -parms 3 0.1 # total surface area per kg of water (m2/kgw) and the scaling factorDiopside -formula CaMgSi2O6 1.0 -m 2.757e-1 -M0 2.757e-1 # moles of solid per kg of water -parms 3 0.1 # total surface area per kg of water (m2/kgw) and the scaling factorAnorthite -formula CaAl2(SiO4)2 1.0 -m 4.4743e-1 -M0 4.4743e-1 # moles of solid per kg of water -parms 3 0.1 # total surface area per kg of water (m2/kgw) and the scaling factor-steps 12 day in 6 steps # define time steps# -step_divide 100-cvode true-bad_step_max 100INCREMENTAL_REACTIONS trueREACTION_TEMPERATURE 1 #define reaction temperature, in Kinetic reactions are taken from these temperature interval75 200 in 6REACTION_PRESSURE 1 #define reaction pressure40USE SOLUTION 1USE REACTION_TEMPERATURE 1USE REACTION_PRESSURE 1USER_GRAPH 1-chart_title "Forsterite Dissolution"-headings temperature -axis_titles Day "mol"-connect true-initial_solutions false-start10 graph_x total_time20 graph_y KIN_DELTA("Forsterite")-end USER_GRAPH 2-chart_title "Diopside Dissolution"-headings temperature -axis_titles Day "mol"-connect False-initial_solutions false-start10 graph_x total_time20 graph_y KIN_DELTA("Diopside")-end USER_GRAPH 3-chart_title "Anorthite Dissolution"-axis_titles Day "mol"-connect False-initial_solutions false-start10 graph_x total_time20 graph_y KIN_DELTA("Anorthite")-end END
#DATABASE C:\phreeqc\database\core10.datRATESForsterite1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=8.38E+0412 E1=6720613 n1=0.47020 rem neutral solution parameters21 a2=1.58E+0322 E2=7900030 rem base solution parameters31 a3=1.00E-0732 E3=5663733 n2=-0.60036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("forsterite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2 + Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endFayalite# from Palandri and Kharaka 2004# experimental condition range T=8-25C, pH=1.3-11-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=5.48E+1112 E1=9440013 n1=020 rem neutral solution parameters21 a2=5.48E+0222 E2=9440030 rem base solution parameters31 a3=032 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("Fayalite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endDiopside# from Palandri and Kharaka 2004# experimental condition range T=8-90C, pH=1-6-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=3.00E+10 12 E1=9610013 n1=0.71020 rem neutral solution parameters21 a2=1.00E-04 22 E2=4060030 rem base solution parameters31 a3=032 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("diopside")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endenstatite# from Palandri and Kharaka 2004# experimental condition range T=8-72C, pH=1-12-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=1.00E+05 12 E1=8000013 n1=0.60020 rem neutral solution parameters21 a2=2.00E+01 22 E2=8000030 rem base solution parameters31 a3=032 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("enstatite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endAnorthite# from Palandri and Kharaka 2004# experimental condition range T=25-95C, pH=2-10.2-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=2.58E-01 12 E1=1660113 n1=1.41120 rem neutral solution parameters21 a2=1.00E-06 22 E2=1782130 rem base solution parameters31 a3=1.00E-22 32 E3=1815033 n2=-1.76736 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("anorthite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endmagnesite# from Palandri and Kharaka 2004# experimental condition range T=25C, pH=0.2-12# calcite activation energy is assumed# near equilibrium parameters p=4.0 and q=1.0-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=1.39E-4 12 E1=1440013 n1=1.00020 rem neutral solution parameters21 a2=5.99E-6 22 E2=2350030 rem CO2 denpendence parameters31 a3=6.03E+05 32 E3=6280033 n2=1.00036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("magnesite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*SR("CO2(g)")^n2 #CO2 rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endhematite# from Palandri and Kharaka 2004# experimental condition range T=25-50C, pH=0-5-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=161.6 12 E1=6620013 n1=0120 rem neutral solution parameters21 a2=9.96E-4 22 E2=6621030 rem basic dependence parameters31 a3=0 32 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("hematite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-Sr_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endSOLUTION 1 #define reaction Solution in ambient environmentwater 2pH 6temp 25pressure 1units mol/LNa 0.5Cl 0.5SAVE SOLUTION 1USER_PUNCH-headings-startENDKINETICS 1-6 # I wanted to create 5 different Kinetic reaction but in output there are only 1Forsterite -formula Mg2SiO4 1.0 -m 2e-1 -M0 2e-1 # moles of solid per kg of water -parms 3 0.1 # total surface area per kg of water (m2/kgw) and the scaling factorDiopside -formula CaMgSi2O6 1.0 -m 2.757e-1 -M0 2.757e-1 # moles of solid per kg of water -parms 3 0.1 # total surface area per kg of water (m2/kgw) and the scaling factorAnorthite -formula CaAl2(SiO4)2 1.0 -m 4.4743e-1 -M0 4.4743e-1 # moles of solid per kg of water -parms 3 0.1 # total surface area per kg of water (m2/kgw) and the scaling factor-steps 12 day in 6 steps # define time steps# -step_divide 100-cvode true-bad_step_max 100INCREMENTAL_REACTIONS trueEND#REACTION_TEMPERATURE 1 #define reaction temperature, in Kinetic reactions are taken from these temperature interval#75 200 in 6REACTION_PRESSURE 1 #define reaction pressure40ENDUSER_GRAPH 1 -headings temperature Fosterite_75 -axis_titles "Day" "mol" "" -chart_title "Forsterite Dissolution" -initial_solutions false -connect_simulations false -plot_concentration_vs x -start10 graph_x total_time20 graph_y KIN_DELTA("Forsterite") -end -active trueUSE SOLUTION 1REACTION_TEMPERATURE 175USE REACTION_PRESSURE 1USE kinetics 1ENDUSER_GRAPH 1 -headings temperature Fosterite_100USE SOLUTION 1REACTION_TEMPERATURE 1100USE REACTION_PRESSURE 1USE kinetics 1END