SOLUTION 1 CaCl2 -pressure 1000 units mmol/kgw temp 25.0 pH 7.0 charge pe 12.5 O2(g) -0.68 Ca 0.6 Cl 1.2 C 0.001EQUILIBRIUM_PHASES 1 CO2(g) 0.1 # 1000 atmENDEQUILIBRIUM_PHASES_MODIFY 1 -component CO2(g) -si -2 -moles 10ENDUSE solution 1USE EQUILIBRIUM_PHASES 1SELECTED_OUTPUT -reset false -totals C -saturation_indices CO2(g) -file co2.dat USER_PUNCH -headings PRESSURE Fugacity PartialP CO2_g 10 PUNCH PRESSURE 20 PUNCH 10^SI("CO2(g)") 30 PUNCH PR_P("CO2(g)") 40 PUNCH gas_vmENDUSE solution 1USE EQUILIBRIUM_PHASES 1EQUILIBRIUM_PHASES_MODIFY 1SELECTED_OUTPUT -reset false -totals C -saturation_indices CO2(g) -file co2_2.dat USER_PUNCH -headings PRESSURE Fugacity PartialP CO2_g 10 PUNCH PRESSURE 20 PUNCH 10^SI("CO2(g)") 30 PUNCH PR_P("CO2(g)") 40 PUNCH gas_vmEND
SOLUTION 1 CaCl2 -pressure 1000 units mmol/kgw temp 25.0 pH 7.0 charge pe 12.5 O2(g) -0.68 Ca 0.6 Cl 1.2 C 0.001ENDUSER_PRINT10 PRINT "P(CO2): ", 10^SI("CO2(g)") / PR_PHI("CO2(g)")20 PRINT "Fugacity(CO2): ", 10^SI("CO2(g)")30 PRINT "Phi(CO2): ", PR_PHI("CO2(g)")USE solution 1EQUILIBRIUM_PHASES 1 CO2(g) 1.0 0.1 # 10 atm target pressure, 0.1 moles available to reactSAVE equilibrium_phases 1 # 0.01916 moles remain DUMP-equilibrium_phases 1ENDEQUILIBRIUM_PHASES_MODIFY 1-component CO2(g) -moles 10 # moles increased from 0.01916 to 1.0 -si 2 -si_org 2 # target partial pressure 100 atmENDDUMP-append-equilibrium_phases 1ENDUSE solution 1USE equilibrium_phases 1SAVE equilibrium_phases 1ENDDUMP-append-equilibrium_phases 1END
SOLUTION 1-100-water 1.0 ## water mass in each grid blockunits mmol/kgwtemp 31.05pH 7.0 chargepe 12.5 O2(g) -0.68Ca 0.6Cl 1.2C 0.001EQUILIBRIUM_PHASES 1-100 CO2(g) 1.0 0.1END
WRITE(DUMMY_STR,*) K input_IHC_temp = 'EQUILIBRIUM_PHASES_MODIFY '//TRIM(ADJUSTL(DUMMY_STR))//new_line(cc) ! DO II=1, NO_HC_GC WRITE(DUMMY_STR,*) 2.0 WRITE(DUMMY_STR_2,*) 10.0 !WRITE(*,*) 'si, moles',DUMMY_STR, DUMMY_STR_2 input_IHC_temp = input_IHC_temp //'-component '//TRIM(ADJUSTL(NAME_HC_GC(II)))//new_line(cc) input_IHC_temp = input_IHC_temp // '-si '//TRIM(ADJUSTL(DUMMY_STR))//new_line(cc) input_IHC_temp = input_IHC_temp // '-moles ' //TRIM(ADJUSTL(DUMMY_STR_2))//new_line(cc) input_IHC_temp = input_IHC_temp // '-si_org '//TRIM(ADJUSTL(DUMMY_STR))//new_line(cc) !input_IHC = input_IHC //'END' //new_line(cc) ENDDO !! for NO_HC_GC input_IHC = input_IHC // input_IHC_temp // new_line(cc) ENDDO input_IHC = input_IHC //'END' //new_line(cc) Ierr = RM_RunString(Id_phreeqc, 1, 1, 0, input_IHC)
EQUILIBRIUM_PHASES_MODIFY 1-component CO2(g)-si 2.000000-moles 10.00000-si_org 2.000000EQUILIBRIUM_PHASES_MODIFY 2-component CO2(g)-si 2.000000-moles 10.00000-si_org 2.000000...
USER_PRINT10 PRINT "P(CO2): ", 10^SI("CO2(g)") / PR_PHI("CO2(g)")SOLUTION 1-water 1.0 ## water mass in each grid blockunits mmol/kgwtemp 31.05pH 7.0 chargepe 12.5 O2(g) -0.68Ca 0.6Cl 1.2C 0.001ENDEQUILIBRIUM_PHASES 1 CO2(g) 1.0 0.1ENDRUN_CELLS-cell 1ENDEQUILIBRIUM_PHASES_MODIFY 1-component CO2(g)-si 2.000000-moles 10.00000-si_org 2.000000ENDRUN_CELLS-cell 1END
Cell number 1 Components: 1 H2O: 54.40945791 2 H: 0.62618144 3 O: 0.54892148 4 Charge: 0.00000000 5 C: 0.43063331 6 Ca: 0.00058927 7 Cl: 0.00117855 Selected output: 1 C: 4.3776E-01 2 Ca: 5.9902E-04 3 Cl: 1.1980E-03 4 EQUI("CO2(aq)"): 0.0000E+00 5 EQUI("CO2(g)"): 7.1460E-02 6 TOTMOL("C(4)"): 2.7881E-01 7 Fugacity_CO2(g): 9.4863E-01 8 SI_CO2(g): 9.7710E-01 9 aq_CO2: 2.7505E-01 10 Charge: 7.8943E-19 11 Excess_O: 6.3654E-01 12 Excess_H: 5.5800E-01 13 H2O: 5.5309E+01