NAMED_EXPRESSIONSLog_alpha_13C_CO2(aq)/CO2(g) # 1000ln(alpha(25C)) -0.84Log_alpha_13C_CO2(g)/CO2(aq) # 1000ln(alpha(25C)) = 0.84Log_alpha_13C_HCO3-/CO2(g) # 1000ln(alpha(25C)) = 7.82Log_alpha_13C_HCO3-/CO2(aq) # 1000ln(alpha(25C)) = 8.7Log_alpha_13C_CO3-2/CO2(g) # 1000ln(alpha(25C))Log_alpha_13C_CO3-2/CO2(aq) # 1000ln(alpha(25C))SOLUTION_SPECIES#HCO3- + [13C]O2 = H[13C]O3- + CO2#CO3-2 + [13C]O2 = [13C]O3-2 + CO2SOLUTIONpH 7Na 1 chargeC(4) 1[13C](4) 10ENDRUN_CELLS-cells 1END
SOLUTIONAlkalinity 2.3C(4) 2.4END
SOLUTIONpH 7Na 1 chargeC(4) 1[13C](4) 10ENDSELECTED_OUTPUT-reset false-high_precision true-isotopes R(13C)_CO2(aq) R(13C)_HCO3- R(13C)_CO3-2USER_PUNCH-headings UP_R_13CO2 UP_R_H13CO3- UP_R_H13CO3-210 PUNCH CALC_VALUE("R(13C)_CO2(aq)")20 PUNCH CALC_VALUE("R(13C)_HCO3-")30 PUNCH CALC_VALUE("R(13C)_CO3-2")USER_PRINT10 PRINT "R(CO2): ", STR_F$(CALC_VALUE("R(13C)_CO2(aq)"), 10, 8)20 PRINT "R(HCO3-): ", STR_F$(CALC_VALUE("R(13C)_HCO3-"), 10, 8)30 PRINT "R(CO3-2): ", STR_F$(CALC_VALUE("R(13C)_CO3-2") , 10, 8)RUN_CELLS-cell 1END