R/Longwave.R

Longwave <-
function(emissivity,temp){
# daily longwave radiation based on the Sephan-Boltzman equation [kJ m-2 d-1]

#emissivity: [-]
#temp: temperature of the emitting body [C]

SBconstant<-0.00000490 #[kJ m-2 K-4 d-1]

tempK<-temp+273.15 #[degrees K]

return(emissivity*SBconstant*tempK^4)
}

Try the EcoHydRology package in your browser

Any scripts or data that you put into this service are public.

EcoHydRology documentation built on May 2, 2019, 4:47 p.m.