SensibleHeat: Sensible Heat Exchange
In EcoHydRology: A Community Modeling Foundation for EcoHydrology

Description Usage Arguments Author(s) Examples

Sensible heat exchange between a surface and the surrounding air [kJ m-2 d-1]

1	SensibleHeat(surftemp, airtemp, wind)

`surftemp`	surface temperature [C]
`airtemp`	average dailiy air temperature [C]
`wind`	average daily windspeed [m/s]

M. Todd Walter

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(surftemp,airtemp,wind){
# sensible heat exchange between a surface and the surrounding air [kJ m-2 d-1]

#surftemp: surface temperature [C]
#airtemp: average dailiy air temperature [C]
#wind: average daily windspeed [m/s]

latentht<-2500 #latent heat of vaporization [kJ kg-1]

heatcapacity<-1.25 #approx. heat capacity of air [kJ m-3 C-1]

windfunction<-5.3*(1+wind)

return(86400*heatcapacity*(surftemp-airtemp)*windfunction/latentht)
  }

Loading required package: operators

Attaching package: 'operators'

The following objects are masked from 'package:base':

    options, strrep

Loading required package: topmodel
Loading required package: DEoptim
Loading required package: parallel

DEoptim package
Differential Evolution algorithm in R
Authors: D. Ardia, K. Mullen, B. Peterson and J. Ulrich

Loading required package: XML
function (surftemp, airtemp, wind) 
{
    latentht <- 2500
    heatcapacity <- 1.25
    windfunction <- 5.3 * (1 + wind)
    return(86400 * heatcapacity * (surftemp - airtemp) * windfunction/latentht)
}