R/saturation_mixing_ratio.R

saturation_mixing_ratio <-
function(P, Temp,consts=export_constants()){
        es=saturation_pressure_H2O(Temp)
        return(as.double(consts["epsilon"]*es/(P-es)))
}

Try the aiRthermo package in your browser

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

aiRthermo documentation built on May 1, 2019, 9:24 p.m.