RATES Halite start 1 dpmet = ((1 / TK) - (1 / 298.15)) / 8.3144 2 SRmin = SR("Halite") 10 moles = 0 20 If (m <= 0) or (SRmin > 1) Then GoTo 110 30 S = 1 # Default value 40 Mm = 58.4 # molar mass in g/mol 50 knu = 0.617 * exp((-7400) * dpmet) 60 k = knu 70 theta = 1 # default value 80 eta = 1 # default value 90 rate = S * m * Mm * k * (1 - SRmin ) # by default 100 moles = rate * Time 110 Save moles end SOLUTION 1-3 temp 20 Na 0 water 1e-8 SOLUTION 0 temp 20 pH 7.01 Na 0 water 2.15e-2 EQUILIBRIUM_PHASES 1 Halite 0 0.011 dissolve_only EQUILIBRIUM_PHASES 3 Halite 0 0.042 dissolve_only KINETICS 1 Halite m0 0.011 KINETICS 3 Halite m0 0.042 TRANSPORT cells 1 shifts 159 time_step 135.74 length 1*0.0278 boundary_conditions flux flux flow_direction forward stagnant 1 8e-4 0.1 0.4 diffusion_coefficient 1e-9 punch_cells 1-3 punch_frequency 1SELECTED_OUTPUT 1 -file C:\Users\Caroline\Desktop\Phrqc phase 1\Output 09 01 2017.csv -reset falseUSER_PUNCH 1 -headings time(min) Cell_no pH Na(mol) Halite(mol) -start05 if (CELL_NO <>1) then goto 10007 PUNCH TOTAL_TIME/6008 PUNCH CELL_NO09 PUNCH -LA("H+")30 PUNCH TOTMOLE("Na")40 PUNCH EQUI("Halite")100 REM end -end