RATES Ore1 -start30 sr_cc = SR("Calcite")40 IF (M <= 0 and si_cc < 0) THEN GOTO 20050 k1 = 8.15355E-0690 IF M0 > 0 THEN area = PARM(1)*M0*(M/M0)^PARM(2) 110 rate =-k1*area*(sr_cc-1)150 moles =rate *TIME 160 PUT(rate,1)170 PUT(sr_cc,1,2)180 PUT(area,1,3)190 PUT(LA("Ca+2"),1,4) 200 SAVE moles -end KINETICS 1Ore1 -formula CaCO3-tol 1e-8-m0 0.005-m 0.005-parms 70 0.667 # m^2/mol calcite, exp factor-steps 1 in 100 steps # seconds-step_divide 1-runge_kutta 3
REACTION 1CO2 -10.001