mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-15 16:18:22 +01:00
33 lines
3.0 KiB
R
33 lines
3.0 KiB
R
# databases
|
|
##Amm.dat.string <- paste(scan("../database/Amm.dat", what="", sep="\n"), collapse="\n")
|
|
##ColdChem.dat.string <- paste(scan("../database/ColdChem.dat", what="", sep="\n"), collapse="\n")
|
|
##iso.dat.string <- paste(scan("../database/iso.dat", what="", sep="\n"), collapse="\n")
|
|
##llnl.dat.string <- paste(scan("../database/llnl.dat", what="", sep="\n"), collapse="\n")
|
|
##minteq.dat.string <- paste(scan("../database/minteq.dat", what="", sep="\n"), collapse="\n")
|
|
##minteq.v4.dat.string <- paste(scan("../database/minteq.v4.dat", what="", sep="\n"), collapse="\n")
|
|
##pitzer.dat.string <- paste(scan("../database/pitzer.dat", what="", sep="\n"), collapse="\n")
|
|
##sit.dat.string <- paste(scan("../database/sit.dat", what="", sep="\n"), collapse="\n")
|
|
##phreeqc.dat.string <- paste(scan("../database/phreeqc.dat", what="", sep="\n"), collapse="\n")
|
|
##wateq4f.dat.string <- paste(scan("../database/wateq4f.dat", what="", sep="\n"), collapse="\n")
|
|
# lists
|
|
Amm.dat <- scan("Amm.ascii", what="", sep="\n")
|
|
ColdChem.dat <- scan("ColdChem.ascii", what="", sep="\n")
|
|
core10.dat <- scan("core10.ascii", what="", sep="\n")
|
|
ex15.dat <- scan("ex15.ascii", what="", sep="\n")
|
|
frezchem.dat <- scan("frezchem.ascii", what="", sep="\n")
|
|
iso.dat <- scan("iso.ascii", what="", sep="\n")
|
|
Kinec_v3.dat <- scan("Kinec_v3.ascii", what="", sep="\n")
|
|
Kinec.v2.dat <- scan("Kinec.v2.ascii", what="", sep="\n")
|
|
llnl.dat <- scan("llnl.ascii", what="", sep="\n")
|
|
minteq.dat <- scan("minteq.ascii", what="", sep="\n")
|
|
minteq.v4.dat <- scan("minteq.v4.ascii", what="", sep="\n")
|
|
phreeqc_rates.dat <- scan("phreeqc_rates.ascii", what="", sep="\n")
|
|
PHREEQC_ThermoddemV1.10_15Dec2020.dat <- scan("PHREEQC_ThermoddemV1.10_15Dec2020.ascii", what="", sep="\n")
|
|
pitzer.dat <- scan("pitzer.ascii", what="", sep="\n")
|
|
sit.dat <- scan("sit.ascii", what="", sep="\n")
|
|
Tipping_Hurley.dat <- scan("Tipping_Hurley.ascii", what="", sep="\n")
|
|
phreeqc.dat <- scan("phreeqc.ascii", what="", sep="\n")
|
|
wateq4f.dat <- scan("wateq4f.ascii", what="", sep="\n")
|
|
save(list = ls(all = TRUE), file = "phreeqc/data/databases.rda", compress = "xz")
|
|
rm(list = ls(all = TRUE))
|