SOLUTION 1 temp 25 pressure 10 pH 7 ENDGAS_PHASE 1 -fixed_pressure -pressure 10 -volume 1 -temperature 25.0 CO2(g) 10ENDRATES CO2_kinetic-start 10 k = 3.0*(10^(-2)) #20 conc_co2=TOT("CO2(g)") #20 if (conc_co2<= 0) then goto 200 20 if (SI("CO2(g)")<= -8) then goto 200 30 rateco2 = k*ACT("CO2")*ACT("H2O") 40 moles = rateco2 * TIME 200 SAVE moles-endKINETICS 1CO2_kinetic -formula CO2 1.0 -m0 0.1 -tol 1e-08-steps 25 in 25 # 25 50 100 200 300 400 500 600 700 -step_divide 1e-4-cvode true#INCREMENTAL_REACTIONS TrueREACTION_TEMPERATURE 1 25USE SOLUTION 1USE GAS_PHASE 1USE KINETICS 1USE REACTION_TEMPERATURE 1USER_GRAPH 1 CO2 dissolution kinetics at 25C -headings time ACT(CO2) TOT(CO2) KIN(CO2) pH -axis_titles "Time in hours" "CO2" "pH" -chart_title "CO2 dissolution at 25C" -initial_solutions true -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME / 360020 GRAPH_Y ACT("CO2"), TOT("C(4)"), KIN("CO2_kinetic")30 GRAPH_SY -LA("H+") -end -active trueUSER_GRAPH 2 CO2 dissolution kinetics, CO2(g) -headings time P(CO2(g)) GAS(CO2) -axis_titles "Time in hours" "P[CO2(g)]" "CO2(g), Moles" -chart_title "CO2 dissolution kinetics-CO2(g)" -initial_solutions true -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME / 360020 GRAPH_Y PR_P("CO2(g)") 30 GRAPH_SY GAS("CO2(g)") -endEND
SOLUTIONREACTION 1CO2(g) 12 in 20 stepsGAS_PHASE-pressure 200CO2(g) 0USER_GRAPH 1 -headings moles TOT(C) pH f(CO2(g)) -axis_titles "CO2 added, moles" "Total C and pH" "Fugacity of CO2(g)" -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X RXN20 GRAPH_Y TOT("C")30 GRAPH_Y -LA("H+")40 GRAPH_SY 10^SI("CO2(g)") -end -active trueEND