KINETICS 1Aragonite -formula CaCO3 1 -m 0.003 -m0 0.003 -parms 4.43 0.6 -tol 1e-08-steps 172800 in 10 steps # seconds-step_divide 1-runge_kutta 3-bad_step_max 500INCREMENTAL_REACTIONS True RATESAragonite-startrem M = current number of moles of aragoniterem M0 = number of moles of aragonite initially presentrem PARM(1) = A/V, cm^2/Lrem PARM(2) = exponent for M/M010 si_cc = SI("Aragonite")20 if (M <= 0 and si_cc < 0) then goto 20030 k1 = 10^(0.198 - 444.0 / TK )40 k2 = 10^(2.84 - 2177.0 / TK)50 if TC <= 25 then k3 = 10^(-5.86 - 317.0 / TK )60 if TC > 25 then k3 = 10^(-1.1 - 1737.0 / TK )70 t = 180 if M0 > 0 then t = M/M090 if t = 0 then t = 1100 area = PARM(1) * (t)^PARM(2)110 rf = k1*ACT("H+")+k2*ACT("CO2")+k3*ACT("H2O")120 rem 1e-3 converts mmol to mol130 rate = area * 1e-3 * rf * (1 - 10^(2/3*si_cc))140 moles = rate * TIME200 SAVE moles-end