mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 00:28:23 +01:00
29 lines
2.1 KiB
R
29 lines
2.1 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")
|
|
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")
|
|
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))
|