RATES Calcite-start 1 REM PARM(1) = specific surface area of calcite, cm^2/mol calcite 2 REM PARM(2) = exponent for M/M0 10 si_cc = SI("Calcite") 20 IF (M <= 0 and si_cc < 0) THEN GOTO 200 30 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 ) 80 IF M0 > 0 THEN area = PARM(1)*M0*(M/M0)^PARM(2) ELSE area = PARM(1)*M110 rate = area * (k1 * ACT("H+") + k2 * ACT("CO2") + k3 * ACT("H2O"))120 rate = rate * (1 - 10^(2/3*si_cc))130 moles = rate * 0.001 * TIME200 SAVE moles-endENDPHASESFix_H+ H+ = H+ log_k 0ENDSOLUTION 1 temp 25 pH 6 pe 4 redox pe units mmol/kgw density 1 C 1 Calcite -2.3 Ca 1 -water 1 # kgENDKINETICS 1Calcite -formula Calcite 1 -m 4.5 -m0 4.5 -parms 100 1 -tol 1e-08-steps 86400 in 10 steps # seconds-step_divide 1-runge_kutta 3-bad_step_max 500USE solution 1EQUILIBRIUM_PHASES 1 CO2(g) -1.54 10 Fix_H+ -6 HCl 10USER_GRAPH 1 -axis_titles "Time, days" "Calcite dissolved, mmol" "" -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME/(3600*24)20 GRAPH_y (4.5 - KIN("Calcite"))*1000 -end -active trueEND
RATES Calcite-start 1 REM PARM(1) = specific surface area of calcite, cm^2/mol calcite 2 REM PARM(2) = exponent for M/M0 10 si_cc = SI("Calcite") 20 IF (M <= 0 and si_cc < 0) THEN GOTO 200 30 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 ) 80 IF M0 > 0 THEN area = PARM(1)*M0*(M/M0)^PARM(2) ELSE area = PARM(1)*M110 rate = area * (k1 * ACT("H+") + k2 * ACT("CO2") + k3 * ACT("H2O"))120 rate = rate * (1 - 10^(2/3*si_cc))130 moles = rate * 0.001 * TIME200 SAVE moles-endENDSOLUTION 1 temp 25 pH 2 pe 6.33 O2(g) -0.68 redox pe units ppm density 1 As(5) 4 B 30 Fe(2) 50 S(6) 1000 charge -water 1 # kgENDKINETICS 1Calcite -formula Calcite 1 -m 0.0625 -m0 0.0625 -parms 380000 0.6 -tol 1e-08-steps 200 in 10 steps # seconds-step_divide 1-runge_kutta 3-bad_step_max 500#INCREMENTAL_REACTIONSUSE solution 1EQUILIBRIUM_PHASES 1 CO2(g) -1.54 10 Goethite 0 0 Fe(OH)3(a) 0 0 #Calcite 0 10 USER_GRAPH 1 -headings time CaCO3 pH -axis_titles "Time, seg" "Calcite dissolved, mol" "" -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME20 GRAPH_y (0.0625 - KIN("Calcite"))#20 graph_y tot("Ca")30 pH = -LA("H+")40 graph_sy pH -end -active true
RATES Calcite-start 1 REM PARM(1) = specific surface area of calcite, cm^2/mol calcite 2 REM PARM(2) = exponent for M/M0 10 si_cc = SI("Calcite") 20 IF (M <= 0 and si_cc < 0) THEN GOTO 200 30 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 ) 80 IF M0 > 0 THEN area = PARM(1)*M0*(M/M0)^PARM(2) ELSE area = PARM(1)*M120 rate = area * (k1 * ACT("H+") + k2 * ACT("CO2") + k3 * ACT("H2O")) * (1 - 10^(2/3*si_cc))130 moles = rate * 0.001 * TIME200 SAVE moles-end Fe(OH)3(a)-start 10 REM parm(1)= A0 #m2/kg 20 REM parm(2) = V #L 30 rate = 10^-11 * (1 - SR("Fe(OH)3(a)")) * parm(1)/parm(2) * (m/m0)^0.67 #Grundl and Jim Delwiche 40 moles = rate * time200 SAVE moles-end Gibbsite-start 10 REM parm(1)= A0 #m2/kg 20 REM parm(2) = V #L 30 rate = 10^-14 * (1 - SR("Gibbsite")) * parm(1)/parm(2) * (m/m0)^0.67 #verificar buscar referencia 40 moles = rate * time200 SAVE moles-endPHASESCa3(AsO4)2:4w 490 Ca3(AsO4)2:4H2O = 3Ca+2 + 2AsO4-3 + 4H2O log_k -18.905Ca3(AsO4)2:3w #(referencia de Ksp arsenatos de calcio) Ca3(AsO4)2:3H2O = 3Ca+2 + 2AsO4-3 + 3H2O log_k -21.14Ca5(AsO4)3OH Ca5(AsO4)3OH = 5Ca+2 + 3AsO4-3 + OH- log_k -40.12Ca4(OH)2(AsO4)2:4w Ca4(OH)2(AsO4)2:4H2O = 4Ca+2 + 2AsO4-3 + 4H2O + 2OH- log_k -27.49SOLUTION 1 #acid water recipe units ppm pH 2.0 pe 6.33 O2(g) -0.68 density 1 Al 60.02 As 2 B 4 Ca 265 Cl 957 Fe(3) 60.2 K 70.3 Mg 125 Mn 10 Na 351 Pb 1 S(6) 1883 Zn 10 -water 0.24 # kg se considera el volumen utilizado por daniela como disolucion de calita representativaEQUILIBRIUM_PHASES CO2(g) -1.54 10 O2(g) -0.68 KINETICS 1Calcite -formula Calcite 1 -m0 0.015 #1.5 gr of calcite in solution -m 0.015 -parms 380000 0.6 #area BET 0,38 m2/gr -tol 1e-08Fe(OH)3(a) -formula Fe(OH)3(a) 1 FeAsO4 0.052 -parms 0.012 0.24 -tol 1e-08#Gibbsite# -formula Gibbsite 1 #-m 0.0005359 #-m0 0.0005359 #-parms 40 0.24 #-tol 1e-08-steps 36000 in 100 steps # seconds-step_divide 1-runge_kutta 3-bad_step_max 500INCREMENTAL_REACTIONS TrueUSER_GRAPH 1 -headings Tiempo Ca pH -axis_titles "Tiempo, horas" "Ca en solución, mg/l" "" -chart_title "Modelo PWP sistema abierto, Datos Henry 2015" -axis_scale sy_axis 0 8 auto auto -initial_solutions true -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME/360020 GRAPH_y TOT("Ca")*40.078*100030 pH = -LA("H+")40 graph_sy pH -end -active trueUSER_GRAPH 2 -headings _time_ Fe(3) Al pH -axis_titles "Tiempo, horas" "Fe, mg/l" "pH" "Al, mg/l" -chart_title "Concentración de Al y Fe en el timepo" -initial_solutions true -axis_scale sy_axis 0 8 -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME / 360020 GRAPH_Y TOT("Fe(3)")*55.8*1000 TOT("Al")*27*100030 GRAPH_SY -LA("H+") -end -active trueUSER_GRAPH 3 -headings _time_ concentracion -axis_titles "Tiempo, horas" "As mg/l" "" -chart_title "As en el tiempo" -initial_solutions true -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME / 360020 GRAPH_Y TOT("As(5)")*75*1000 -end -active trueUSER_GRAPH 4 -headings _time_ Fe(3) #pH -axis_titles "Tiempo, horas" "% remoción Fe disuelto" #"pH" -chart_title "Remoción de Fe en función del tiempo" -initial_solutions true -axis_scale sy_axis 0 8 -axis_scale y_axis 0 120 -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME / 360020 GRAPH_Y (1 - TOT("Fe(3)")*55.8*1000/60.2)*100 #cambiar el hierro incial cuando sea necesario#30 GRAPH_SY -LA("H+") -end -active trueUSER_GRAPH 5 -headings _time_ As -axis_titles "Tiempo, horas" "% remoción As" "" -chart_title "Remoción de As en función del tiempo" -axis_scale y_axis 0 120 auto auto -initial_solutions true -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME / 360020 GRAPH_Y (1 - TOT("As(5)")*75*1000/2)*100 -end -active trueEND