SOLUTION 0 temp 23.0 units moles/l Cs 9.17E-05 K 1.10E-03 Na 1.60E-05 Ca 2.10E-06 Mg 7.10E-06 SOLUTION 1-40 Initial solution for column temp 23.0 units moles/l Cs 1e-10 K 1.10E-03 Na 1.60E-05 Ca 2.10E-06 Mg 7.10E-06END EXCHANGE_MASTER_SPECIES Z Z- #FES D D- #TypeII X X- #planar EXCHANGE_SPECIES Z- = Z- #FES log_k 0.0 -davies Na+ + KZ = NaZ + K+ #FES log_k -2.5 -davies K+ + Z- = KZ #FES log_k 0.0 -davies Ca+2 + 2KZ = CaZ2 + 2K+ #FES log_k -10.7 -davies D- = D- #TypeII log_k 0.0 -davies Na+ + KD = NaD + K+ #TypeII log_k -2.1 -davies K+ + D- = KD #TypeII log_k 0.0 -davies Ca+2 + 2KD = CaD2 + 2K+ #TypeII log_k -4.6 -davies X- = X- #planar log_k 0.0 -davies Na+ + KX = NaX + K+ #planar log_k -1.0 -davies K+ + X- = KX #planar log_k 0.0 -davies Ca+2 + 2KX = CaX2 + 2K+ #planar log_k -3.9 -davies Cs+ + KZ = CsZ + K+ #FES log_k 4.8 -davies Cs+ + KD = CsD + K+ #TypeII log_k 1.8 -davies Cs+ + KX = CsX + K+ #planar log_k 1.1 -davies end EXCHANGE 1-40 KZ 9.06E-08 KD 3.02E-05 KX 5.97E-05ENDADVECTION -cells 40 -shifts 40 #100 #-punch_cells 40 -punch_frequency 40 #-print_cells 40 -print_frequency 1#PRINT; -reset false; -status falseSELECTED_OUTPUT -file hwang.txt -reset false -step -molalities CsZ CzD CsX -total Cs USER_GRAPH 1 Example 11 -headings KX NgX2 NaX CaX2 CsX -axis_titles "Cell number" "Molality" "" -chart_title "Using ADVECTION Data Block" -axis_scale y_axis auto auto auto auto log -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 x = cell_no20 PLOT_XY x, MOL("KX"), symbol = None30 PLOT_XY x, MOL("MgX2"), symbol = None40 PLOT_XY x, MOL("NaX"), symbol = None50 PLOT_XY x, MOL("CaX2"), symbol = None60 PLOT_XY x, MOL("CsX"), symbol = None -end -active trueEND
EXCHANGE_MASTER_SPECIES Z Z- #FES D D- #TypeII Q Q- #planar EXCHANGE_SPECIES Z- = Z- #FES log_k 0.0 -davies Na+ + KZ = NaZ + K+ #FES log_k -2.5 -davies K+ + Z- = KZ #FES log_k 0.0 -davies Ca+2 + 2KZ = CaZ2 + 2K+ #FES log_k -10.7 -davies D- = D- #TypeII log_k 0.0 -davies Na+ + KD = NaD + K+ #TypeII log_k -2.1 -davies K+ + D- = KD #TypeII log_k 0.0 -davies Ca+2 + 2KD = CaD2 + 2K+ #TypeII log_k -4.6 -davies Q- = Q- #planar log_k 0.0 -davies Na+ + KQ = NaQ + K+ #planar log_k -1.0 -davies K+ + Q- = KQ #planar log_k 0.0 -davies Ca+2 + 2KQ = CaQ2 + 2K+ #planar log_k -3.9 -davies Cs+ + KZ = CsZ + K+ #FES log_k 4.2 -davies Cs+ + KD = CsD + K+ #TypeII log_k 1.0 -davies Cs+ + KQ = CsQ + K+ #planar log_k 0.5 -daviesEND#======Initial solution for column=====#SOLUTION 1-40 temp 23.0 units moles/l Cs 1e-10 K 1.10E-03 Na 1.60E-05 Ca 2.10E-06 Mg 7.10E-06 ENDEXCHANGE 1-40 KZ 9.06E-08 KD 3.02E-05 KQ 2.72E-04END#======================================##pulsed inflow of Cs contaminated water#SOLUTION 0 temp 23.0 units moles/l Cs 1E-02 K 1.10E-03 Na 1.60E-05 Ca 2.10E-06 Mg 7.10E-06 ADVECTION -time_step 1 -cells 40 -shifts 40 #-punch_cells 40 -punch_frequency 1PRINT; -reset false; -status falseSELECTED_OUTPUT 1 -file hwang_Parkhurst_Example.txt -reset false -step -molalities KZ KQ KD CsZ CsQ CsD Cs -totals CsUSER_PUNCH 1-heading Pore_volume 10 PUNCH TOTAL_TIME / 40 USER_GRAPH 1 -headings KZ KQ KD CsZ CsQ CsD Cs -axis_titles "Pore volume" "Molality" "" -chart_title "Using ADVECTION Data Block" -axis_scale x_axis auto auto auto auto -axis_scale y_axis auto auto auto auto log -initial_solutions false -connect_simulations true -plot_concentration_vs x -start 5 IF CELL_NO <> 40 THEN GOTO 10010 x = TOTAL_TIME / 4020 PLOT_XY x, MOL("KZ"), symbol = None30 PLOT_XY x, MOL("KQ"), symbol = None40 PLOT_XY x, MOL("KD"), symbol = None50 PLOT_XY x, MOL("CsZ"), symbol = None60 PLOT_XY x, MOL("CsQ"), symbol = None70 PLOT_XY x, MOL("CsD"), symbol = None80 PLOT_XY x, TOT("Cs"), symbol = None100 REM end of plot -end -active trueUSER_GRAPH 2 -headings KZ KQ KD CsZ CsQ CsD Cs -axis_titles "Pore volume" "Moles in column" "" -chart_title "Using ADVECTION Data Block" -axis_scale x_axis auto auto auto auto -axis_scale y_axis auto auto auto auto log -initial_solutions false -connect_simulations true -plot_concentration_vs x -start 10 IF CELL_NO = 1 THEN f = 0 ELSE f = 120 KZ = GET(1)*f + MOL("KZ")*TOT("water")30 KQ = GET(2)*f + MOL("KQ")*TOT("water")40 KD = GET(3)*f + MOL("KD")*TOT("water")50 CsZ = GET(4)*f + MOL("CsZ")*TOT("water")60 CsQ = GET(5)*f + MOL("CsQ")*TOT("water")70 CsD = GET(6)*f + MOL("CsD")*TOT("water")80 Cs = GET(7)*f + TOT("Cs")*TOT("water")120 PUT(KZ,1) 130 PUT(KQ,2)140 PUT(KD,3) 150 PUT(CsZ,4) 160 PUT(CsQ,5) 170 PUT(CsD,6)180 PUT(Cs,7)200 IF CELL_NO <> 40 THEN GOTO 300210 x = TOTAL_TIME / 40220 PLOT_XY x, GET(1), symbol = None230 PLOT_XY x, GET(2), symbol = None240 PLOT_XY x, GET(3), symbol = None250 PLOT_XY x, GET(4), symbol = None260 PLOT_XY x, GET(5), symbol = None270 PLOT_XY x, GET(6), symbol = None280 PLOT_XY x, GET(7), symbol = None300 REM end of plot -end -active trueEND#======================================#PRINT-selected_output false#pulsed inflow of no contaminated water#SOLUTION 0 temp 23.0 units moles/l Cs 1E-10 K 1.10E-03 Na 1.60E-05 Ca 2.10E-06 Mg 7.10E-06ENDPRINT -selected_output true ADVECTION -time_step 1 -initial_time 40 -cells 40 -shifts 520 #-punch_cells 40 -punch_frequency 1END