R/kstd.to.kt.R

In gholtgrieve/gassyPants: Functions Useful for Working With Gasses Dissolved in Water

#'@title temp
#'@description temp
#'@return temp
#'@author
#'Gordon W. Holtgrieve
#'@export
#'
kstd.to.kt	<-	function(kstd, temperature, referenceT, gas){

  n <- 0.5
  Sc_waterT <- get.Sc(temperature = temperature, gas)  # Sc for given gas at in situ water T
  Sc_reference <- get.Sc(temperature = referenceT, gas = "CO2") # kstd is always for CO2 (k600)
  Sc <- Sc_waterT / Sc_reference
  kt <- kstd * (Sc^-n)

  return(kt)
}