EXCHANGE_MASTER_SPECIES Z Z- EXCHANGE_SPECIES Z- = Z- ; log_k 0 Z- + Na+ = NaZ log_k 0 2Z- + Ca+2 = CaZ2 log_k 1.4SOLUTION 10000 initial solution in the corepH 7-water 0.5units mol/LNa 0.5Ca 0.1Cl 0.5 chargeEQUILIBRIUM_PHASES 10000Calcite 0 1SAVE SOLUTION 10000COPY SOLUTION 10000 1-201ENDUSE SOLUTION 10000EXCHANGE 10000 -equilibrate 10000 Z 0.002SAVE EXCHANGE 10000COPY EXCHANGE 10000 101-201ENDSOLUTION 0 Injected solutionpH 7 -water 1units mmol/LNa 0.5Ca .125Cl 0.5 chargeSAVE SOLUTION 0END EXCHANGE 102-201 Z 0.002 -equil 1 TRANSPORT -initial_time 1e5 -time_step 288 -boundary_conditions flux flux # -dispersivities 100*0 -correct_disp false -diffusion_coefficient 0 -cells 100 -shifts 100 -length 100*0.00076 -punch_cells 1-100 -punch_frequency 1 -print_cells 1-100 -stag 1 1 0.2 0.001 PRINT -reset true SELECTED_OUTPUT 1 -file Ion-Exchange_KIN.pco -high_precision true -reset false -distance true -step true -pH true -totals Na Ca Cl -equilibrium_phases Calcite -charge_balance true -percent_error true -saturation_indices Calcite -activities Na+ Cl- Ca+2 CO3-2 HCO3- CaZ2 NaZ END
EXCHANGE_MASTER_SPECIES Z Z- EXCHANGE_SPECIESZ- = Z- log_k 0Na+ + Z- = NaZ log_k 0Ca+2 + 2Z- = CaZ2 log_k 1.4ENDSOLUTION 1-21 initial solution in the corepH 7-water 1units mmol/LNa 1Cl 1 chargeENDEXCHANGE 12-21 -equilibrate 1 Z 0.002ENDSOLUTION 0 Injected solution temp 25 pH 7 pe 4 units mmol/l Ca 0.5 Cl 1 charge -water 1 # kgENDTRANSPORT -time_step 288 -boundary_conditions flux flux # -dispersivities 10*0 -correct_disp false -diffusion_coefficient 0 -shifts 10 -cells 10 -shifts 5 -length 10*0.00076 -punch_cells 1-10 12-21 -punch_frequency 5 -print_frequency 5 -stag 1 1 0.9 0.1USER_GRAPH 1 -headings dist Ca Na CaZ2 NaZ -axis_titles "" "Molality" "" -chart_title "Mobile zone" -initial_solutions false -connect_simulations true -plot_concentration_vs x5 if (cell_no > 10) then goto 10010 GRAPH_X dist20 GRAPH_Y TOT("Ca"), TOT("Na"), MOL("CaZ2"), MOL("NaZ")100 ENDUSER_GRAPH 2 -headings dist Ca Na CaZ2 NaZ -axis_titles "" "Molality" "" -chart_title "Stagnant zone" -initial_solutions false -connect_simulations true -plot_concentration_vs x -start 5 if (cell_no < 12) then goto 100 10 GRAPH_X dist 20 GRAPH_Y TOT("Ca"), TOT("Na"), MOL("CaZ2"), MOL("NaZ")100 END -end -active trueEND