TITLE Reactive Transport SOLUTION 0 HCl units mol/L temp 25.0 pH 2.0 charge Cl 0.01SOLUTION 1-100 Initial solution units mol/L temp 25.0 pH 12.5 charge pe 4 density 1 water 1 #kgENDKINETICS 1-100 Calcite m0 8.5094e-06 parms 0.0628 #parms = surface area [cm2]RATES Calcite -start 10 si_cc = SI("Calcite") 20 if (M <= 0 and si_cc < 0) then goto 200 30 k1 = 8.912509e-5 # [mol/cm2/s] 40 area = PARM(1) 50 rf = k1*ACT("H+") 60 rate = area * rf * (1 - 10^(2/3*si_cc)) 70 moles = rate * TIME 200 SAVE moles -endENDSELECTED_OUTPUT file outputFile.out reset false high_precision trueUSER_PUNCH -headings Calcite pH -start 5 PUNCH KIN("Calcite") 10 PUNCH -LA("H+") -end
-heading act_H+ mol_H+ c_H+ Rate_calcite10 PUNCH ACT("H+")20 PUNCH MOL("H+")30 PUNCH MOL("H+") * TOT("water") / SOLN_VOL40 PUNCH KIN_DELTA("Calcite")/KIN_TIME