SOLUTION 1 #groundwater composition temp 30 pH 8.985 pe -5.976 units mol/kgw density 1 Al 2.733e-06 C(4) 0.001302 Ca 0.0001425 Cl(-1) 0.001474 F 0.0004272 K 8.456e-06 Mg 1.195e-05 Na 0.001649 Si 0.0001251 as SiO2 Sr 2.664e-06 Fe(2) 1.24e-07 N(5) 1.103e-05 U(4) 6.335e-09 S(-2) 6.07e-05 -water 1 # kgENDUSE solution 1EQUILIBRIUM_PHASES 1 CO2(g) -3.5 0.00012645277459486SAVE solution 1END
RATESMontmor-Ca-start1 eh = 22.677282 en = 22.677283 eb = 22.677284 logkh = -12.675 logkn = -13.676 logkb = -14.677 nh = 0.58 nb = -0.513 C = 7184.94096415 R = 8.314419 dif_T = 1/TK - 1/303.1520 pk_H = logkh - (eh*1000)/(2.3025*R)*dif_T25 if (M <= 0 and SR("Montmor-Ca") < 0) then goto 12030 rate_H = 10^pk_H*act("H+")^nh40 pk_w = logkn - (en*1000)/(2.3025*R)*dif_T50 rate_w = 10^pk_w60 pk_OH = logkb - (eb*1000)/(2.3025*R)*dif_T70 rate_OH = 10^pk_OH*act("H+")^nb80 rate0 = rate_H + rate_w + rate_OH90 rate = rate0*C*parm(2)*parm(1)*(m/m0)^0.67*(1-SR("Montmor-Ca"))100 moles = rate*time#110 if SR("Montmor-Ca") > 1 then moles = 0.1*moles120 save moles-endAlbite-start1 eh = 652 en = 69.83 eb = 714 logkh = -10.165 logkn = -12.566 logkb = -15.607 nh = 0.468 nb = -0.57213 C = 9991.49548815 R = 8.314419 dif_T = 1/TK - 1/303.1520 pk_H = logkh - (eh*1000)/(2.3025*R)*dif_T25 if (M <= 0 and SR("Albite") < 0) then goto 12030 rate_H = 10^pk_H*act("H+")^nh40 pk_w = logkn - (en*1000)/(2.3025*R)*dif_T50 rate_w = 10^pk_w60 pk_OH = logkb - (eb*1000)/(2.3025*R)*dif_T70 rate_OH = 10^pk_OH*act("H+")^nb80 rate0 = rate_H + rate_w + rate_OH90 rate = C*rate0*parm(2)*parm(1)*(m/m0)^0.67*(1-SR("Albite"))100 moles = rate*time#110 if SR("Albite") > 1 then moles = 0.1*moles120 save moles-endCalcite-start1 eh = 14.402 en = 23.503 eb = 35.404 logkh = -0.35 logkn = -5.86 logkb = -3.487 nh = 18 nb = 113 C = 27086.46186515 R = 8.314419 dif_T = 1/TK - 1/303.1520 pk_H = logkh - (eh*1000)/(2.3025*R)*dif_T25 if (M <= 0 and SR("Calcite") < 0) then goto 12030 rate_H = 10^pk_H*act("H+")^nh40 pk_w = logkn - (en*1000)/(2.3025*R)*dif_T50 rate_w = 10^pk_w60 pk_OH = logkb - (eb*1000)/(2.3025*R)*dif_T70 rate_OH = 10^pk_OH*act("H+")^nb80 rate0 = rate_H + rate_w + rate_OH90 rate = C*rate0*parm(2)*parm(1)*(m/m0)^0.67*(1-SR("Calcite"))100 moles = rate*time#110 if SR("Calcite") > 1 then moles = 0.1*moles120 save moles-endQuartz-start1 eh = 90.94 logkh = -13.4013 C = 44104.69956415 R = 8.314419 dif_T = 1/TK - 1/303.1520 pk_H = logkh - (eh*1000)/(2.3025*R)*dif_T25 if (M <= 0 and SR("Quartz") < 0) then goto 12030 rate_H = 10^pk_H*act("H+")^nh80 rate0 = rate_H90 rate = C*rate0*parm(2)*parm(1)*(m/m0)^0.67*(1-SR("Quartz"))100 moles = rate*time#110 if SR("Quartz") > 1 then moles = 0.1*moles120 save moles-endCristobalite(alpha)-start1 eh = 654 logkh = -12.3113 C = 43272.53542115 R = 8.314419 dif_T = 1/TK - 1/303.1520 pk_H = logkh - (eh*1000)/(2.3025*R)*dif_T25 if (M <= 0 and SR("Cristobalite(alpha)") < 0) then goto 13030 rate_H = 10^pk_H*act("H+")^nh80 rate0 = rate_H90 rate = rate0*C*parm(2)*parm(1)*(m/m0)^0.67*(1-SR("Cristobalite(alpha)"))110 moles = rate*time#120 if SR("Cristobalite(alpha)") > 1 then moles = 0.1*moles130 save moles-endENDSOLUTION 1 temp 30 pH 8.985 pe -5.976 units mol/kgw density 1 Al 2.733e-06 C(4) 0.001302 Ca 0.0001425 Cl(-1) 0.001474 F 0.0004272 K 8.456e-06 Mg 1.195e-05 Na 0.001649 Si 0.0001251 as SiO2 #Sr 2.664e-06 Fe(2) 1.24e-07 #N(5) 1.103e-05 #U(4) 6.335e-09 S(-2) 6.07e-05 -water 1 # kgEQUILIBRIUM_PHASES 1 CO2(g) -1 0.04024792723174756SAVE SOLUTION 2ENDUSE SOLUTION 2EQUILIBRIUM_PHASES 2Chalcedony 0 0Clinoptilolite-Ca 0 0Clinoptilolite-Na 0 0Dolomite 0 0Montmor-Na 0 0 Montmor-Ca 0 0 Calcite 0 0.009991318KINETICS 1#Montmor-Ca# -formula Ca0.165Al2.33Si3.67O10(OH)2 1# -m 0.191233768# -m0 0.191233768# -parms 56.38 366.04414 #-tol 1e-07Quartz -formula SiO2 1 -m 0.033286566 -m0 0.033286566 -parms 0.00226 60.0843 #-tol 1e-07Albite -formula NaAlSi3O8 1 -m 0.053389576 -m0 0.053389576 -parms 0.00229 262.22347 #-tol 1e-07#Calcite# -formula CaCO3 1# -m 0.009991318# -m0 0.009991318# -parms 0.00221 100.0869# -tol 1e-07Cristobalite(alpha) -formula SiO2 1 -m 0.216362677 -m0 0.216362677 -parms 0.00264 100.0869 #-tol 1e-06-steps 1 3 1e1 3e1 1e2 3e2 1e3 3e3 1e4 3e4 1e5 3e5 1e6 3e6 1e7 # 7776000 in 90 steps # seconds 90D years-step_divide 1-runge_kutta 3-bad_step_max 500-cvode true-cvode_steps 100-cvode_order 5INCREMENTAL_REACTIONS TrueUSER_GRAPH 1 -headings time Montmor-Ca Quartz Albite Cristobalite -axis_scale x_axis auto auto auto auto log -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME20 GRAPH_Y KIN_DELTA("Montmor-Ca"), KIN_DELTA("Quartz")30 GRAPH_Y KIN_DELTA("Albite"), KIN_DELTA("Cristobalite(alpha)") -end -active trueEND