Create calc.zeng.R

function for estimating the latent and sensible heat fluxes