Cerussite misspelled in 5 databases.

Modified Calcite RATES to handle M0=0
Added quartz to wateq4f.dat

git-svn-id: svn://136.177.114.72/svn_GW/phreeqc3/trunk@11091 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
David L Parkhurst 2016-04-21 15:20:05 +00:00
parent 0978f81fe0
commit 08db4e970f
6 changed files with 40 additions and 24 deletions

View File

@ -1241,7 +1241,7 @@ CdSO4 329
CdSO4 = Cd+2 + SO4-2
-log_k -0.1
-delta_h -14.74 kcal
Cerrusite 365
Cerussite 365
PbCO3 = Pb+2 + CO3-2
-log_k -13.13
-delta_h 4.86 kcal
@ -1693,10 +1693,7 @@ Calcite
40 k2 = 10^(2.84 - 2177.0 /TK )
50 IF TC <= 25 THEN k3 = 10^(-5.86 - 317.0 / TK)
60 IF TC > 25 THEN k3 = 10^(-1.1 - 1737.0 / TK )
70 t = 1
80 IF M0 > 0 THEN t = M/M0
90 IF t = 0 THEN t = 1
100 area = PARM(1) * M0 * t^PARM(2)
80 IF M0 > 0 THEN area = PARM(1)*M0*(M/M0)^PARM(2) ELSE area = PARM(1)*M
110 rate = area * (k1 * ACT("H+") + k2 * ACT("CO2") + k3 * ACT("H2O"))
120 rate = rate * (1 - 10^(2/3*si_cc))
130 moles = rate * 0.001 * TIME # convert from mmol to mol

View File

@ -19204,10 +19204,7 @@ Calcite
40 k2 = 10^(2.84 - 2177.0 /TK )
50 IF TC <= 25 THEN k3 = 10^(-5.86 - 317.0 / TK)
60 IF TC > 25 THEN k3 = 10^(-1.1 - 1737.0 / TK )
70 t = 1
80 IF M0 > 0 THEN t = M/M0
90 IF t = 0 THEN t = 1
100 area = PARM(1) * M0 * t^PARM(2)
80 IF M0 > 0 THEN area = PARM(1)*M0*(M/M0)^PARM(2) ELSE area = PARM(1)*M
110 rate = area * (k1 * ACT("H+") + k2 * ACT("CO2") + k3 * ACT("H2O"))
120 rate = rate * (1 - 10^(2/3*si_cc))
130 moles = rate * 0.001 * TIME # convert from mmol to mol

View File

@ -4231,7 +4231,7 @@ Phosgenite
PbCl2:PbCO3 = 2Pb+2 + 2Cl- + CO3-2
log_k -19.81
delta_h -0 kcal
Cerrusite
Cerussite
PbCO3 = Pb+2 + CO3-2
log_k -13.13
delta_h 4.86 kcal
@ -4331,7 +4331,7 @@ Pb2(OH)3Cl
Pb2(OH)3Cl + 3H+ = 2Pb+2 + 3H2O + Cl-
log_k 8.793
delta_h -0 kcal
Hydcerrusite
Hydcerussite
Pb(OH)2:2PbCO3 + 2H+ = 3Pb+2 + 2CO3-2 + 2H2O
log_k -17.46
delta_h -0 kcal

View File

@ -11586,7 +11586,7 @@ CrI3
CrI3 + 2H2O = Cr(OH)2+ + 3I- + 2H+
log_k 20.4767
delta_h -134.419 kJ
Cerrusite
Cerussite
PbCO3 = Pb+2 + CO3-2
log_k -13.13
delta_h 24.79 kJ
@ -11598,7 +11598,7 @@ Pb3O2CO3
Pb3O2CO3 + 4H+ = 3Pb+2 + CO3-2 + 2H2O
log_k 11.02
delta_h -110.583 kJ
Hydrocerrusite
Hydrocerussite
Pb3(OH)2(CO3)2 + 2H+ = 3Pb+2 + 2H2O + 2CO3-2
log_k -18.7705
delta_h -0 kJ

View File

@ -1252,7 +1252,7 @@ CdSO4 329
CdSO4 = Cd+2 + SO4-2
-log_k -0.1
-delta_h -14.74 kcal
Cerrusite 365
Cerussite 365
PbCO3 = Pb+2 + CO3-2
-log_k -13.13
-delta_h 4.86 kcal
@ -1705,10 +1705,7 @@ Calcite
40 k2 = 10^(2.84 - 2177.0 /TK )
50 IF TC <= 25 THEN k3 = 10^(-5.86 - 317.0 / TK)
60 IF TC > 25 THEN k3 = 10^(-1.1 - 1737.0 / TK )
70 t = 1
80 IF M0 > 0 THEN t = M/M0
90 IF t = 0 THEN t = 1
100 area = PARM(1) * M0 * t^PARM(2)
80 IF M0 > 0 THEN area = PARM(1)*M0*(M/M0)^PARM(2) ELSE area = PARM(1)*M
110 rate = area * (k1 * ACT("H+") + k2 * ACT("CO2") + k3 * ACT("H2O"))
120 rate = rate * (1 - 10^(2/3*si_cc))
130 moles = rate * 0.001 * TIME # convert from mmol to mol

View File

@ -2808,7 +2808,7 @@ Phosgenite 364
PbCl2:PbCO3 = 2Pb+2 + 2Cl- + CO3-2
log_k -19.810
Cerrusite 365
Cerussite 365
PbCO3 = Pb+2 + CO3-2
log_k -13.13
delta_h 4.86 kcal
@ -2934,7 +2934,7 @@ Pb2(OH)3Cl 391
Pb2(OH)3Cl + 3H+ = 2Pb+2 + 3H2O + Cl-
log_k 8.793
Hydrocerrusite 392
Hydrocerussite 392
Pb(OH)2:2PbCO3 + 2H+ = 3Pb+2 + 2CO3-2 + 2H2O
log_k -17.460
@ -3722,6 +3722,34 @@ SURFACE_SPECIES
# log_k 20.62
RATES
###########
#Quartz
###########
#
#######
# Example of quartz kinetic rates block:
# KINETICS
# Quartz
# -m0 158.8 # 90 % Qu
# -parms 0.146 1.5
# -step 3.1536e8 in 10
# -tol 1e-12
Quartz
-start
1 REM Specific rate k from Rimstidt and Barnes, 1980, GCA 44,1683
2 REM k = 10^-13.7 mol/m2/s (25 C), Ea = 90 kJ/mol
3 REM sp. rate * parm(2) due to salts (Dove and Rimstidt, MSA Rev. 29, 259)
4 REM PARM(1) = Specific area of Quartz, m^2/mol Quartz
5 REM PARM(2) = salt correction: (1 + 1.5 * c_Na (mM)), < 35
10 dif_temp = 1/TK - 1/298
20 pk_w = 13.7 + 4700.4 * dif_temp
40 moles = PARM(1) * M0 * PARM(2) * (M/M0)^0.67 * 10^-pk_w * (1 - SR("Quartz"))
# Integrate...
50 SAVE moles * TIME
-end
###########
#K-feldspar
###########
@ -3896,10 +3924,7 @@ Calcite
40 k2 = 10^(2.84 - 2177.0 /TK )
50 IF TC <= 25 THEN k3 = 10^(-5.86 - 317.0 / TK)
60 IF TC > 25 THEN k3 = 10^(-1.1 - 1737.0 / TK )
70 t = 1
80 IF M0 > 0 THEN t = M/M0
90 IF t = 0 THEN t = 1
100 area = PARM(1) * M0 * t^PARM(2)
80 IF M0 > 0 THEN area = PARM(1)*M0*(M/M0)^PARM(2) ELSE area = PARM(1)*M
110 rate = area * (k1 * ACT("H+") + k2 * ACT("CO2") + k3 * ACT("H2O"))
120 rate = rate * (1 - 10^(2/3*si_cc))
130 moles = rate * 0.001 * TIME # convert from mmol to mol