R/calcSensibleHeating.R

In ConSciR: Tools for Conservation Science

#' Calculate Sensible Heating
#'
#' @description
#' This function calculates sensible heating power.
#'
#' Sensible heat is the energy that causes an object's temperature to change
#' without altering its phase, also known as "dry" heat which you can feel.
#'
#'
#'
#' @param Temp1 Initial Temperature (°Celsius)
#' @param Temp2 Final Temperature (°Celsius)
#' @param volumeFlowRate Volume flow rate of air in cubic meters per second (m³/s)
#' @param RH Initial Relative Humidity (0-100\%). Optional, default is 50\%.
#'
#' @return Sensible heat in kilowatts (kW)
#'
#' @export
#'
#' @seealso \code{\link{calcAD}}
#'
#' @examples
#' calcSensibleHeating(20, 25, 50, 0.5)
#'
#' calcSensibleHeating(20, 25, 60, 0.5)
#'
#'
calcSensibleHeating <- function(Temp1, Temp2, RH = 50, volumeFlowRate) {
    Cp_air <- 1.006  # kJ/(kg·K)
    rho_air <- calcAD(Temp1, RH)
    deltaT <- Temp2 - Temp1
    sensibleHeat <- rho_air * Cp_air * volumeFlowRate * deltaT
    sensibleHeat <- pmax(sensibleHeat, 0)
    return(sensibleHeat)
}