R/TTheta2P.R

TTheta2P <-
function(Temp,Theta,w=0,consts=export_constants()){
	cprd=moistCp(w,consts)/consts["Rd"]
	return(as.double(consts["P1000"]*((Temp/Theta)^cprd)))
}

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.