RATESCO2_dissolution20 k = parm(2) / 8640030 eq_CO2 = 10^PARM(1)*10^LK_PHASE("CO2(g)")40 act_CO2 = ACT("CO2")50 moles = k * (eq_CO2 - act_CO2) * TIME60 SAVE molesENDSOLUTIONKINETICSCO2_dissolution-formula CO2 1-parm 0 1 # target log PCO2(g), rate constant 1/day-time 500000 in 10USER_GRAPH 1 -axis_titles "Time, in days" "LOG P(CO2(g))" "" -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME/8640020 GRAPH_Y SI("CO2(g)") -end