PHASESAnhydriteCa1S1O4 = 1.0000 SO4-2 + 1.0000 Ca+2 -analytic 9.835770e+003 2.965925e+000 -4.073817e+005 -3.829436e+003 1.835113e+007 -9.989717e-004 -Vm 45.9400RATESAnhydrite# from Palandri and Kharaka 2004# experimental condition range T=25-50C, pH=~7-start1 rem unit should be mol,kgw-1 and second-12 rem parm(1) is surface area in the unit of m2/kgw3 rem calculation of surface area can be found in the note4 rem M is current moles of minerals. M0 is the initial moles of minerals5 rem parm(2) is a correction factor10 rem acid solution parameters11 a1=0 12 E1=013 n1=020 rem neutral solution parameters21 a2=2.05E-01 22 E2=1429930 rem base solution parameters31 a3=032 E3=033 n2=036 rem rate=0 if no minerals and undersaturated40 SR_mineral=SR("anhydrite")41 if (M<0) then goto 20042 if (M=0 and SR_mineral<1) then goto 20043 if (M0<=0) then SA=PARM(1) else SA=PARM(1)*(M/M0)^0.6750 if (SA<=0) then SA=160 R=8.3145175 Rate1=a1*EXP(-E1/R/TK)*ACT("H+")^n1 #acid rate expression80 Rate2=a2*EXP(-E2/R/TK) #neutral rate expression85 Rate3=a3*EXP(-E3/R/TK)*ACT("H+")^n2 #base rate expression90 Rate=(Rate1+Rate2+Rate3)*(1-SR_mineral)*SA*parm(2)100 moles= rate*Time200 save moles-endENDSOLUTION 1pH 7 chargetemp 20C 1 CO2(g) -3.5 ENDUSE solution 1#INCREMENTAL_REACTIONS trueKINETICS 1Anhydrite -formula Ca1S1O4 1.0 -m0 1e-1 #1e-3 # initial moles of anhydrite per kg of water -parms 10 1 #total surface area per kg of water (m2/kgw) and the scaling factor -tol 1e-8 -steps 1e-4 1e-3 1e-2 1e-1 1 10 100 1000 # 900 1800 2700 3600 s USER_GRAPH 1 -headings Time TOT(S) SI(Anhydrite) -axis_titles "Time, seconds" "Molality" "Saturation index" -axis_scale x_axis auto auto auto auto log -axis_scale y_axis auto auto auto auto log -initial_solutions false -connect_simulations true -plot_concentration_vs x -start10 GRAPH_X TOTAL_TIME20 GRAPH_Y TOT("S")30 GRAPH_SY SI("Anhydrite") -end -active trueEND