Nothing
SensibleHeat <-
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.