# Title Apatite DissolutionSOLUTION 1 temp 25 pH 0.5 pe 4 redox pe units mol/l density 1 N(5) 0.31 -water 0.01 # kg PHASES 1FluorapatiteCa5P3O12F1 + 3.0000 H+ = 3.0000 HPO4-2 + 1.0000 F- + 5.0000 Ca+2 -analytic 2.906406e+004 8.907085e+000 -1.192683e+006 -1.134608e+004 5.304647e+007 -3.060213e-003 -Vm 157.5600 EQUILIBRIUM_PHASES 1 Fluorapatite 0 0.0003 K-mica 0 0.0007 Quartz 0 0.003 Albite 0 0.0007
# Title Apatite DissolutionSOLUTION 1 temp 25 pH 0.5 pe 4 redox pe units mol/l density 1 N(5) 0.31 -water 0.01 # kg PHASES 1FluorapatiteCa5P3O12F1 + 3.0000 H+ = 3.0000 HPO4-2 + 1.0000 F- + 5.0000 Ca+2 -analytic 2.906406e+004 8.907085e+000 -1.192683e+006 -1.134608e+004 5.304647e+007 -3.060213e-003 -Vm 157.5600 RATES 1Fluorapatite# from Palandri and Kharaka 2004# experimental condition range T=25C, pH=2.2-2.8# uncertainty for Ea is large# Hydroxyapatite activation energy is assumed -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.18E+4012 E1=25000013 n1=0.61320 rem neutral solution parameters21 a2=6.32E+3522 E2=25000030 rem base solution parameters31 a3=032 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("Fluorapatite")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 EQUILIBRIUM_PHASES 1 K-mica 0 0.0007 Quartz 0 0.003 Albite 0 0.0007 KINETICS 1Fluorapatite -formula Fluorapatite -m 0.04 -parms 50 1-steps 100000 in 100 steps # secondsINCREMENTAL_REACTIONS True