SURFACE_MASTER_SPECIES Get_s Get_sOH Get_w Get_wOHEQUILIBRIUM_PHASES 1 Goethite 0 10SURFACE_SPECIES#strong_sites#experimental_resH+ + Get_sOH = Get_sOH2+ log_k 6.7Get_sOH = Get_sOH log_k 0Get_sOH = Get_sO- + H+ log_k -10.7#to_calculateEu+3 + Get_sOH = Get_sOEu+2 + H+ log_k 4.087#weak_sites#experimental_resH+ + Get_wOH = Get_wOH2+ log_k 6.7Get_wOH = Get_wOH log_k 0Get_wOH = Get_wO- + H+ log_k -10.7#to_calculateEu+3 + Get_wOH = Get_wOEu+2 + H+ log_k -50SOLUTION 1 temp 25 pH 7 units mol/l density 1 Cl 0.1 Na 0.1 charge -water 1 # kgSOLUTION_MASTER_SPECIES Eu Eu+3 0 152 152SOLUTION_SPECIES#from_HYDRAEu+3 = Eu+3 log_k 0Eu+3 + H2O = Eu(OH)+2 + H+ log_k -7.9Eu+3 + 2H2O = Eu(OH)2+ + 2H+ log_k -16.38Eu+3 + 3H2O = Eu(OH)3 + 3H+ log_k -25.42ENDUSE solution 1SURFACE 1 -equilibrate with solution 1 -sites DENSITY Get_s 0.01 105 0.3 Get_w 2.31SAVE surface 2ENDSOLUTION 2 temp 25 pH 7 units mol/l density 1 Eu 9.8e-015 Cl 0.1 Na 0.1 chargeSELECTED_OUTPUT 1 -file dump.sel -reset falseUSER_PUNCH-start 10 FOR i = 1 to 15 STEP 1 20 READ Conc_Eu 30 DATA 2.50E-08, 1.00E-07, 5.00E-07, 2.50E-06, 5.00E-06, 1.00E-05, 7.50E-06, 2.85E-10, 1.48E-09, 2.90E-09, 5.76E-09, 5.47E-10, 2.05E-09, 4.05E-09, 4.77E-11 40 a$ = EOL$ + "SOLUTION " + STR$(i+2) + EOL$ 50 a$ = a$ + " temp 25" + EOL$ 60 a$ = a$ + " pH 4.8" + EOL$ 70 a$ = a$ + " units mol/l" + EOL$ 80 a$ = a$ + " density 1" + EOL$ 90 a$ = a$ + " Eu " + STR$(Conc_Eu)+ EOL$ 100 a$ = a$ + " Cl 0.1 charge" + EOL$ 110 a$ = a$ + " Na 0.1" + EOL$ 120 a$ = a$ + " -water 1 " + CHR$(35) + " kg" + EOL$ 130 a$ = a$ + 'PRINT ' + CHR$(59) + ' -reset false' + CHR$(59) + ' -echo_input true' + CHR$(59) + ' -selected_output false' + EOL$ 140 a$ = a$ + "END" + EOL$ 150 a$ = a$ + "PHASES" + EOL$ # pH = constant" + EOL$ 160 a$ = a$ + "Fix_H+" + EOL$ 170 a$ = a$ + "H+ = H+" + EOL$ 180 a$ = a$ + "log_k 0.0" + EOL$ 190 a$ = a$ + "USE solution " + STR$(i+2) + EOL$ 200 a$ = a$ + "USE surface 2" + EOL$ 210 a$ = a$ + "EQUILIBRIUM_PHASES 1" + EOL$ 220 a$ = a$ + "Fix_H+ -4.8 NaOH 10.0" + EOL$ 230 a$ = a$ + 'PRINT ' + CHR$(59) + ' -reset false' + CHR$(59) + ' -echo_input true' + CHR$(59) + ' -selected_output true' + EOL$ 240 a$ = a$ + "END" + EOL$ 250 PUNCH a$ 260 NEXT i-endENDSELECTED_OUTPUT -file Eu+3_on_Get.txt -reset false -ph trueUSER_PUNCH 1 -headings Eu_sorbed Get_sOEu+2_sorbed Get_wOEu+2_sorbed -start 10 punch (MOL("Get_sOEu+2") + MOL("Get_wOEu+2")) / (TOT("Eu") + MOL("Get_sOEu+2") + MOL("Get_wOEu+2")) * 100 20 punch (MOL("Get_sOEu+2")) / (TOT("Eu") + MOL("Get_sOEu+2") + MOL("Get_wOEu+2")) * 100 30 punch (MOL("Get_wOEu+2")) / (TOT("Eu") + MOL("Get_sOEu+2") + MOL("Get_wOEu+2")) * 100 -endINCLUDE$ dump.selEND
SURFACE 1 -equilibrate with solution 1 -sites DENSITY Get_s 0.01 105 0.3 Get_w 2.31
SURFACE 1 -equilibrate with solution 1 -sites DENSITY Get_s 0.01 105 0.3# Get_w 2.31
#to_calculateEu+3 + Get_wOH = Get_wOEu+2 + H+ log_k -50