SOLUTION 1pH 7 chargeNa 100Cl 100EQUILIBRIUM_PHASES Calcite 0 10CO2(g) -2SAVE SOLUTION 1ENDUSE SOLUTION 1RATESCalcite# Confidence level: 3-start1 dpmet = ((1 / TK) - (1 / 298.15)) / 8.31442 SRmin = SR("Calcite")10 moles = 020 If (m <= 0) and (SRmin < 1) Then GoTo 22030 S = 0.7 # average BET; suggested value in m2/g40 Mm = 100.1 # molar mass in g/mol50 If (SRmin > 1) Then GoTo 173 ## nucleation########## start precipitation bloc ##########130 knu = 0.000000148 * exp((-63500) * dpmet)140 k1 = 0.00658 * exp((-56100) * dpmet) * (ACT("HCO3-") ^ 1.982)150 kpre = (-1) * (knu + k1)160 theta = 0.5170 eta = 2########## start nucleation ##########173 rate = 1E-8 ##### a small amount as a seed175 GOTO 210180 If (m <= 0) then GoTo 220190 rate = S * m * Mm * kpre * (ABS(1 - SRmin ^ theta) ^ eta)200 GoTo 210########## end precipitation bloc ##########210 moles = rate * Time220 Save moles-end KINETICSCalcite -formula CaCO3 1-m0 1e-4-steps 86400 sec in 24INCREMENTAL_REACTIONS trueUSER_GRAPH-headings Time KIN_DELTA_Calcite SI_Calcite -initial_solutions true-axis_titles "Time, hours" KIN_DELTA SI-start10 GRAPH_X SIM_TIME/360020 GRAPH_Y KIN_DELTA("Calcite")30 GRAPH_SY SI("Calcite")-end END