USE SOLUTION 2REACT with known amount of CO2SAVE SOLUTION 3USE SOLUTION 3REACT with calcite solid solutionOUTPUT isotope ratio of calciteENDUSE SOLUTION 3REACT with known amount of CO2SAVE SOLUTION 4USE SOLUTION 4... and repeat for 50 steps
SOLUTION 1 temp 5 pH 6.998 pe 4 redox pe units mmol/kgw density 1 -water 1 # kgREACTION 1 CaCl2 0.02 Na2CO3 0.02 [13C] 0.0002216 NaOH 0.2SAVE SOLUTION 2END
USE SOLUTION 2EQUILIBRIUM_PHASE CO2(g) -3.37675071 [13C]O2(g) -5.329580927END
USE SOLUTION 2REACTION 2 CO2(g) 0.989254 [13C]O2(g) 0.0111473024 0.14425 moles in 50 stepsSOLID_SOLUTIONCalcite -comp Calcite 0 -comp Ca[13C]O3(s) 0SELECTED_OUTPUT -file ex20F.sel -high_precision true -distance false -time false -temperature -totals [13C] C -isotopes R(13C) -isotopes R(13C)_CalciteEND
ISOTOPESC -isotope [13C] permil 0.01123720 # VPDB, Vienna Pee Dee Belemnite # Chang and Li, 1990, Chinese Science Bulletin -isotope [13C](4) permil 0.01123720 # VPDB, Vienna Pee Dee Belemnite # Chang and Li, 1990, Chinese Science Bulletin -isotope [13C](-4) permil 0.01123720 # VPDB, Vienna Pee Dee BelemniteC(4) -isotope [13C](4) permil 0.01123720 # VPDB, Vienna Pee Dee Belemnite # Chang and Li, 1990, Chinese Science BulletinENDSOLUTION 1 temp 5 pH 6.998 charge pe 4 redox pe units mmol/kgw density 1 -water 1 # kgREACTION 1 CaCl2 0.02 Na2CO3 0.02 Na2[13C]O3 0.0002216 NaOH 0.2SAVE SOLUTION 2ENDUSE SOLUTION 2#EQUILIBRIUM_PHASE# CO2(g) -3.37675071 10# [13C]O2(g) -5.329580927 10GAS_PHASE 1 -fixed_volume -pressure 1 -volume 100000000 -temperature 5 CO2(g) 0.000419999999615196 [13C]O2(g) 4.68186700724408e-06SOLID_SOLUTIONS 1 Calcite -comp Calcite 0 -comp Ca[13C]O3(s) 0END
Make SATURATED SOLUTION 1ADD small amount of CO2 with [13C] to SOLUTION 1PRECIPITATE small amount of Calcite with [13C] OUTPUT d13C of Calcite and SOLUTION 1SAVE SOLUTION 2ADD small amount of CO2 with [13C] to SOLUTION 2PRECIPITATE small amount of Calcite with [13C] OUTPUT d13C of Calcite and SOLUTION 1SAVE SOLUTION 3ADD small amount of CO2 with [13C] to SOLUTION 3PRECIPITATE small amount of Calcite with [13C] OUTPUT d13C of Calcite and SOLUTION 1...
SOLID_SOLUTIONS 1 Calcite -comp Calcite 0 -comp Ca[13C]O3(s) 0
ISOTOPESC -isotope [13C] permil 0.01123720 # VPDB, Vienna Pee Dee Belemnite # Chang and Li, 1990, Chinese Science Bulletin -isotope [13C](4) permil 0.01123720 # VPDB, Vienna Pee Dee Belemnite # Chang and Li, 1990, Chinese Science Bulletin -isotope [13C](-4) permil 0.01123720 # VPDB, Vienna Pee Dee BelemniteC(4) -isotope [13C](4) permil 0.01123720 # VPDB, Vienna Pee Dee Belemnite # Chang and Li, 1990, Chinese Science BulletinENDCALCULATE_VALUESAlpha_13C_Calcite/Soln # equilibrium for 13C: R(calcite)/R(soln) -start10 alpha = -9999.99920 if (TOT("C(4)") <= 0) THEN GOTO 100050 tot_CO2 = SUM_SPECIES("*CO2*","C")60 tot_HCO3 = SUM_SPECIES("*HCO3*","C")70 tot_CO3 = SUM_SPECIES("*CO3","C") - sum_species("*HCO3*","C")80 tot_C = tot_CO2 + tot_HCO3 + tot_CO390 n_CO2 = tot_CO2 / tot_C100 n_HCO3 = tot_HCO3 / tot_C110 n_CO3 = tot_CO3 / tot_C120 alpha_CO2_HCO3 = EXP( [ -0.91 + 6300 / TK^2 ]/ 1000 )130 alpha_CO3_HCO3 = EXP( [ -3.4 + 870000 / TK^2 ]/ 1000 )140 alpha_cal_CO2g = EXP( [ -3.63 + 11940000 / TK^2 ]/ 1000 )150 alpha_HCO3_CO2g = EXP( [ -4.54 + 10990000 / TK^2 ]/ 1000 )160 alpha_cal_HCO3 = alpha_cal_CO2g / alpha_HCO3_CO2g170 alpha = alpha_cal_HCO3 / (n_CO2 * alpha_CO2_HCO3 + n_HCO3 + n_CO3 * alpha_CO3_HCO3)1000 SAVE alpha -endENDRATESCalcite-start10 k = parm(1)20 rate = k * (1 - SR("Calcite"))30 moles = rate * TIME40 SAVE moles50 PUT(moles, 1)60 END-endCa[13C]O3-start10 moles = GET(1)200 alpha = CALC_VALUE("Alpha_13C_Calcite/Soln")210 r_soln = CALC_VALUE("R(13C)")220 r_calcite = r_soln * alpha230 SAVE moles * r_calciteENDSOLUTION 1 temp 5 pH 6.998 charge pe 4 redox pe units mmol/kgw density 1 -water 1 # kgREACTION 1 CaCl2 0.02 Na2CO3 0.02 Na2[13C]O3 0.0002216 NaOH 0.2SAVE SOLUTION 2ENDINCREMENTAL_REACTIONSUSE solution 2KINETICS#-cvodeCalcite-m 0-parm 5e-9Ca[13C]O3-m 0-formula Ca[13C]O3-step 86400 in 100USER_GRAPH 1 -headings time permil_soln permil_ppt_step permil_ppt_avg SI(Calcite) -axis_titles "Time, seconds" "Permil" "SI Calcite" -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME30 permil_soln = (CALC_VALUE("R(13C)") / 0.01123720 - 1) * 100040 permil_calcite = ((KIN_DELTA("Ca[13C]O3")/KIN_DELTA("Calcite")) / 0.01123720 -1) * 100050 permil_calcite_avg = ((KIN("Ca[13C]O3")/KIN("Calcite")) / 0.01123720 - 1) * 100060 GRAPH_Y permil_soln, permil_calcite, permil_calcite_avg70 GRAPH_SY SI("Calcite") -end -active trueEND