using "pressure_changers/pump";

FlowSheet pump_Test
	PARAMETERS
	PP	as CalcObject(Brief="Physical Properties",File="vrpp");
	NComp	as Integer;

	SET
	PP.Components = ["ethane", "propane", "propylene","1,3-butadiene","n-hexane"];
	PP.LiquidModel = "PR";
	PP.VapourModel = "PR";
	NComp = PP.NumberOfComponents;
	
	DEVICES
	p1 as pump;
	s1 as stream_therm;
	
	CONNECTIONS
	s1 to p1.Inlet;

	SPECIFY
	s1.F = 826 * "kmol/h";
	s1.P = 549 * "kPa";
	s1.T = 313 * "K";
	s1.z = 1/NComp;
	s1.v = 0.68;
	p1.dP = 90 * "kPa";

	OPTIONS
	outputLevel = "medium";
	time = [0:20:1000];
	mode = "steady";
end