TITLE Mineral with H2PHASESH2(g) H2 = H2 log_k -3.19 delta_h 0.0H2O(g) H2O = H2O log_k -4.27 delta_h -9.82CO2(g) CO2 = CO2 log_k -2.87 delta_h -3.94H2S(g) H2S = H2S log_k 0.63 delta_h -4.96SOLUTION 1 units mg/l temp 55 pH 6.66 density 1 Na 104140 charge Ca 2365 K 398 Mg 836 Sr 58 Fe 2.5 Al 5.8 Cl 155610 -water 1 # Defining water explicitlyEQUILIBRIUM_PHASES 1 Quartz 0 51.06 K-Feldspar 0 2.895 Hematite 0 3.537 Pyrite 0 3.826 Dolomite 0 1.457 Anhydrite 0 1.063 Calcite 0 1.375 Halite 0 0.961 Illite 0 0.358 Chlorite(14A) 0 0.0495 H2(g) 0 0 H2O(g) 0 0 SAVE Solution 1 "solution.txt"SAVE Equilibrium_Phases 1 "equilibrium_phases.txt"USE Solution 1USE Equilibrium_Phases 1GAS_PHASE -fixed_pressure -pressure 81 CO2(g) 1e-20 H2S(g) 1e-20 H2(g) 1e-20 H2O(g) 1e-20REACTION 1 H2 1 0 in 50 stepsSELECTED_OUTPUT -reset false -file graph_output.txt -simulation true -reaction true -totals Na Ca K Mg Sr Fe Al Cl H O -equilibrium_phases Quartz K-Feldspar Hematite Pyrite Dolomite Anhydrite Calcite Halite Illite Chlorite(14A) -si CO2(g) CH4(g) H2(g) H2O(g) -gas CO2(g) CH4(g) H2(g) H2O(g)KNOBS -convergence_tolerance 1e-12 -diagonal_scale 1e-8 -iterations 1000END
DATA phreeqc.datTITLE H2-Gas_Mineral_Reaction_in_Mondarra_Gas_ReservoirSelected_Output -file calciteout.txt -temperature true -totals C(4) C(-4) H(0) S(6) S(-2) Na Cl # Certifique-se de incluir Hdg(g) aqui -kinetics Calcite -gases CO2(g) CH4(g) H2S(g) Hdg(g) -water -charge_balance true -ionic_strength trueRates Calcite-start1 REM PARM(1) = specific surface area of calcite, cm^2/mol calcite2 REM PARM(2) = exponent for M/M010 si_cc = SI("Calcite")20 IF (M <= 0 and si_cc < 0) THEN GOTO 20030 k1 = 10^(0.198 - 444.0 / TK )40 k2 = 10^(2.84 - 2177.0 /TK )50 IF TC <= 25 THEN k3 = 10^(-5.86 - 317.0 / TK)60 IF TC > 25 THEN k3 = 10^(-1.1 - 1737.0 / TK )80 IF M0 > 0 THEN area = PARM(1)*M0*(M/M0)^PARM(2) ELSE area = PARM(1)*M110 rate = area * (k1 * ACT("H+") + k2 * ACT("CO2") + k3 * ACT("H2O"))120 rate = rate * (1 - 10^(2/3*si_cc))130 moles = rate * 0.001 * TIME # convert from mmol to mol200 SAVE moles-endHdg(g)-start10 if (M < 0) then goto 7020 rate = 2.3e-09*(TOT("C(4)")/1e-3 + TOT("C(4)")) + 9.26e-8*(TOT("S(6)")/(1.e-4 + TOT("S(6)")))30 moles = rate * TIME40 if (moles > M) then moles = M70 SAVE moles-end END#================# Mondarra Sample#================Solution 1 -temperature 117.85 -density 0.949 -pressure 88.8231 -pH 10 charge units ppm Na 47520 Cl 86500 Ca 5840 K 1152 C 596.7 as HCO3 S(6) 61.5 as SO4 Mg 771 -water 0.54REACTION_TEMPERATURE 1 117.85REACTION_PRESSURE 1 88.8231 Save Solution 1ENDUse Solution 1KINETICS 1Calcite -M0 6.5234893 # initial moles -tol 1e-8 -parms 10 0.3Hdg(g) -M0 3.340580489 # initial moles -tol 1e-8 -formula H2 1-time_step 2 day in 2 # 2 time steps-cvode trueINCREMENTAL_REACTIONS trueSave Solution 2END
Solution 1 -temperature 117.85 -density 0.949 -pressure 88.8231 -pH 10 charge units ppm Na 47520 Cl 86500 Ca 5840 K 1152 C 596.7 as HCO3 S(6) 61.5 as SO4 Mg 771 #-water 0.54REACTION_TEMPERATURE 1 117.85REACTION_PRESSURE 1 88.8231GAS_PHASEHdg(g) 0REACTIONHdg 1.06 mole in 30USER_GRAPH 1 -headings rxn TOT(Hdg) GAS(Hdg) -axis_titles "Hdg added, moles" "Dissolved Hdg, mol/kgw" "Gas Hdg, moles" -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X RXN20 GRAPH_Y TOT("Hdg")30 GRAPH_SY GAS("Hdg(g)") -end -active trueEND
DATA phreeqc.datTITLE Mineral and HdgSOLUTION 1 pressure 81 temp 55 pH 6.66 -density 1 calc -units mg/l Na 104140 charge Ca 2365 K 398 Mg 836 Sr 58 Fe 2.5 Al 5.8 Cl 155610EQUILIBRIUM_PHASES 1 Quartz 0 51.06 K-Feldspar 0 2.895 Hematite 0 3.537 Pyrite 0 3.826 Dolomite 0 1.457 Anhydrite 0 1.063 Calcite 0 1.375 Halite 0 0.961 Illite 0 0.358 Chlorite(14A) 0 0.0495 GAS_PHASE -fixed_pressure -pressure 81 CO2(g) 1e-20 H2S(g) 1e-20 Hdg(g) 1e-20 H2O(g) 1e-20REACTION 1 Hdg 1 0.03 in 30 stepsINCREMENTAL_REACTIONS trueSELECTED_OUTPUT -reset false -file graph_output.txt -simulation true -reaction true -totals Na Cl Ca K C S Mg -equilibrium_phases Quartz K-Feldspar Hematite Pyrite Dolomite Anhydrite Calcite Halite Illite Chlorite(14A) -temperature true -gases CO2(g) CH4(g) H2S(g) Hdg(g) -water -charge_balance true -ionic_strength trueKNOBS -convergence_tolerance 1e-14 -diagonal_scale 1e-8 -iterations 31000END
DATA phreeqc.datTITLE Mineral and HdgSOLUTION 1 pressure 81 temp 55 pH 6.66 -density 1 calc -units mg/l Na 104140 charge Ca 2365 K 398 Mg 836 Sr 58 Fe 2.5 Al 5.8 Cl 155610EQUILIBRIUM_PHASES 1 Quartz 0 51.06 K-Feldspar 0 2.895 Hematite 0 3.537 Pyrite 0 3.826 Dolomite 0 1.457 Anhydrite 0 1.063 Calcite 0 1.375 Halite 0 0.961 Illite 0 0.358 Chlorite(14A) 0 0.0495 GAS_PHASE -fixed_pressure -pressure 81 CO2(g) 1e-20 H2S(g) 1e-20 Hdg(g) 1e-20 H2O(g) 1e-20REACTION 1 Hdg 1 0.03 in 30 stepsKINETICS 1 -formula Hdg -1 H2 +1 -m0 1.0 -steps 30 -time_steps 1 dayINCREMENTAL_REACTIONS trueSELECTED_OUTPUT -reset false -file graph_output.txt -simulation true -reaction true -totals Na Cl Ca K C S Mg -equilibrium_phases Quartz K-Feldspar Hematite Pyrite Dolomite Anhydrite Calcite Halite Illite Chlorite(14A) -temperature true -gases CO2(g) CH4(g) H2S(g) Hdg(g) -water -charge_balance true -ionic_strength trueKNOBS -convergence_tolerance 1e-14 -diagonal_scale 1e-8 -iterations 31000END
DATA phreeqc.datTITLE Mineral and HdgSOLUTION 1 pressure 81 temp 55 pH 6.66 -density 1 calc -units mg/l Na 104140 charge Ca 2365 K 398 Mg 836 Sr 58 Fe 2.5 Al 5.8 Cl 155610EQUILIBRIUM_PHASES 1 Quartz 0 51.06 K-Feldspar 0 2.895 Hematite 0 3.537 Pyrite 0 3.826 Dolomite 0 1.457 Anhydrite 0 1.063 Calcite 0 1.375 Halite 0 0.961 Illite 0 0.358 Chlorite(14A) 0 0.0495 SAVE solution 2SAVE equilibrium_phases 2ENDUSE solution 2USE equilibrium_phases 2REACTION 1 H2 1 0.01END
DATA phreeqc.datTITLE Mineral and HdgSOLUTION 1 pressure 81 temp 55 pH 6.66 -density 1 calc -units mg/l Na 104140 charge Ca 2365 K 398 Mg 836 Sr 58 Fe 2.5 Al 5.8 Cl 155610EQUILIBRIUM_PHASES 1 Calcite 0 2.375 GAS_PHASE -fixed_pressure -pressure 81 CO2(g) 1e-20 H2S(g) 1e-20 Hdg(g) 1e-20 H2O(g) 1e-20REACTION 1 Hdg 1 0.03 in 30 stepsRATESHdg(g)-start10 if (M < 0) then goto 7020 rate = 2.3e-09*(TOT("C(4)")/1e-3 + TOT("C(4)")) + 9.26e-8*(TOT("S(6)")/(1.e-4 + TOT("S(6)")))30 moles = rate * TIME40 if (moles > M) then moles = M70 SAVE moles-endUse Solution 1KINETICS 1Hdg(g) -M0 3.340580489 # initial moles -tol 1e-8 -formula Hdg -1 H2 +1-time_step 2 day in 2 # 2 time steps-cvode true-bad_step_max 55000INCREMENTAL_REACTIONS trueSELECTED_OUTPUT -reset false -file graph_output.txt -simulation true -reaction true -totals Na Cl Ca K C S Mg -equilibrium_phases Calcite -temperature true -gases CO2(g) CH4(g) H2S(g) Hdg(g) -water -charge_balance true -ionic_strength trueKNOBS -convergence_tolerance 1e-14 -diagonal_scale 1e-8 -iterations 31000END
#DATA phreeqc.datTITLE Mineral and HdgSOLUTION 1 pressure 81 temp 55 pH 6.66 -density 1 calc -units mg/l Na 104140 charge Ca 2365 K 398 Mg 836 Sr 58 Fe 2.5 Al 5.8 Cl 155610ENDEQUILIBRIUM_PHASES 1 Calcite 0 2.375 ENDGAS_PHASE 1 -fixed_pressure -pressure 81 CO2(g) 1e-20 H2S(g) 1e-20 Hdg(g) 1e-20 H2O(g) 1e-20ENDREACTION 1 Hdg 1 0.03 #in 30 stepsENDRUN_CELLS-cell 1ENDRATESHdg(g)-start10 if (M < 0) then goto 7020 rate = 2.3e-09*(TOT("C(4)")/1e-3 + TOT("C(4)")) + 9.26e-8*(TOT("S(6)")/(1.e-4 + TOT("S(6)")))30 moles = rate * TIME40 if (moles > M) then moles = M70 SAVE moles-endKINETICS 1Hdg(g) -M0 3.340580489 # initial moles -tol 1e-8 -formula Hdg -1 H2 +1-time_step 2 day in 2 # 2 time steps-cvode trueENDRUN_CELLS-cell 1END