Add_water-start1 rem volume units in cm310 v_total = 1e620 v_rock = KIN("forsterite") * 43.0130 porosity = 1 - (v_rock/v_total)40 v_solution = (porosity*v_rock)/(1-porosity)50 SOLN_VOL = v_solution/1000-end
SOLUTION 1C 1 CO2(g) -3.4-water 0.1USER_PRINT# v(fosterite) = 0.9 L = 0.9e3 cm^3 = 0.9e3/43.01 mol10 PRINT "Forsterite, moles: ", 0.9e3/43.01 ENDEQUILIBRIUM_PHASESForsterite 0.0 20.925ENDUSE solution 1USE equilibrium_phases 1USER_PRINT10 PRINT "Volume change, L: ", EQUI_DELTA("Forsterite")*43.01*1e-3END