f_qvsat Function

public function f_qvsat(p, t)

$ f_qvsat = rddrv * fespt / (p-(1.0-rddrv)*fespt) !old

Arguments

Type	Intent	Optional	Attributes		Name
real				::	p
real				::	t

Return Value real