R/PTheta2T.R

PTheta2T <-
function(P,Theta,w=0.0,consts=export_constants()){
	rdcp=consts["Rd"]/moistCp(w,consts)
	return(as.double(Theta*(P/consts["P1000"])^rdcp))
}

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.