Kaolinite# kinetic data extracted from 06has/vil 03tou/nea 03koh/duf 05koh/bos# kinetic data extracted from Kaolinite precipitation rate: 08yan/ste 93nag/las 97dev/sch# surface area data extracted from 15mar/cla# Confidence level: 4-start1 SRmin = SR("Kaolinite") # mineral saturation ratio10 moles = 0 # initial moles of mineral20 If (m = 0) and (SRmin <= 1) Then GoTo 400 # if neither dissolution nor precipitation possible then end30 If (SRmin = 1) Then GoTo 400 # if system in equilibrium then end40 S = 11.8 # average BET; suggested value in m2/g50 Mm = 258.16 # molar mass in g/mol60 Mv = 9.876E-05 # molar volume in m3/mol70 If (SRmin > 1) Then GoTo 160 # if supersaturated go to precipitation########## start dissolution bloc ##########80 knu = 1.1E-14 * exp((-38000 / 8.314) * ((1 / TK) - (1 / 298.15)))90 k1 = 7.5E-12 * exp((-43000 / 8.314) * ((1 / TK) - (1 / 298.15))) * (ACT("H+") ^ 0.51)100 k2 = 2.5E-11 * exp((-46000 / 8.314) * ((1 / TK) - (1 / 298.15))) * (ACT("OH-") ^ 0.58)110 k = knu + k1 + k2120 Rsrf = S * m * Mm * k * ((1 - SRmin))130 moles = Rsrf * Time#### Do not dissolve more than there is solid present ####140 IF (moles > M) THEN moles = M150 GoTo 400########## end dissolution bloc #################### start precipitation bloc ##########160 surf_energy = 0.1 # interfacial energy for lateral surface in J m-2 (after Fritz et al 2009; lateral s chosen to be 2 times basal))165 sheet_thick = 7e-10 # thickness of one mineral layer in m170 molvol = 1.64E-28 # molecular volume in m3180 cntc_angl = 90 # mineral-substrate contact angle in degrees (assume hemi-spherical)190 u = ( 2 * sqrt(3) * sheet_thick * surf_energy^2 * molvol ) / ( (1.38E-23 * TK)^2 ) # 200 J0 = 1E20 # nucleation rate in nuclei m-2 sec-1 (Based on Fritz et al 2009) 210 SRcrit = exp( u / LOG( J0 ) ) # critical saturation threshold220 IF ( SRmin < SRcrit ) Then GoTo 290 # if saturation index below threshold no nucleation occurs230 rate_nuc = J0 * exp( -u / LOG(SRmin) ) # nucleation rate in nuclie sec-1 multiplied by time to account for nucleation over time240 IF ( rate_nuc < 1 ) THEN GoTo 290 # condition that rate needs to be bigger than 1 nucl per sec (Arbitrary)250 nj = u / (LOG(SRmin)^2) # number of growth units in critical nuclie radius260 vol = nj * molvol # critical nuclie volume270 moles_nuc = ( -rate_nuc * Time * vol ) / Mv # moles of nuclie formed280 GoTo 300290 moles_nuc = 0#### kinetic data for growth ####300 IF ( m = 0 ) THEN GoTo 350310 knu = 5.5E-13 * exp((-66000 / 8.314) * ((1 / TK) - (1 / 298.15)))320 kpre = (-1) * knu330 Rsrf = S * m * Mm * kpre * (ABS((SRmin ^ 0.06) - 1) ^ 1.68)350 moles = moles_nuc + Rsrf * Time#### Do not precipitate more than the elements in solution ####360 maxMol = TOT("Al")/2370 IF (maxMol > TOT("Si")/2) THEN maxMol = TOT("Si")/2380 IF (maxMol > TOT("H")/6) THEN maxMol = TOT("H")/6390 IF (maxMol < -moles) THEN moles = -maxMol########## end precipitation bloc ##########400 Save moles-end