R/thermodynamics.Td.R

In metno/wgen: Stochastic Weather Generator

#' thermodynamics.Td
#'
#' Dew Point Temperature
#' @param rh
#' @param T
#' @keywords thermodynamics
#' @export
#' @examples
#' thermodynamics.Td()
thermodynamics.Td<-function(rh,T) {
   results<-(rh/100)^(1/8)*(112+0.9*T)+0.1*T-112
   return(results)
}