max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-16 00:28:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

working on CO2 example

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@8572 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2014-03-18 05:19:37 +00:00
parent ab88354e07
commit 24bdf3a302
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
R/phreeqc/R/phreeqc.R
View File

@ -47,19 +47,20 @@
##' #########################################################################
##'
##' fSoln <- function(id, pH, alk) {
##' if (is.na(alk)) alk = 0.0
##' c(
##' paste("SOLUTION", id),
##' paste(" pH", pH),
##' paste("SOLUTION", id ),
##' paste(" pH", pH ),
##' paste(" Alkalinity", alk, "meq/kgw")
##' )
##' }
##'
##' fSelOut <- function() {
##' c(
##' "SELECTED_OUTPUT",
##' " -reset false",
##' " -solution true",
##' " -gases CO2(g)"
##' "SELECTED_OUTPUT ",
##' " -reset false ",
##' " -solution true ",
##' " -gases CO2(g) "
##' )
##' }
##'
@ -72,7 +73,7 @@
##' # create input
##' input <- vector("list")
##' for (i in 1:length(df[,1])) {
##' input[i] <- fSoln(solns[i, 1], solns[i, 2], solns[i, 3])
##' input[[i]] <- fSoln(solns[i, 1], solns[i, 2], solns[i, 3])
##' }
##'
##' # add selected_output
@ -80,9 +81,15 @@
##'
##' # load database
##' phrLoadDatabaseString(phreeqc.dat.list)
##'
##' # flatten each list of vectors into a single vector
##' input <- unlist(input)
##'
##' # run
##' phrRunString(phreeqc.dat.list)
##' phrRunString(input)
##'
##' #
##' so <- phrGetSelectedOutput()
##'
NULL