#*----------------------------------------------
* FlowSheet generated automaticaly by EMSO-GUI
*----------------------------------------------*#

using "streams/sources";
using "streams/sinks";
using "pressure_changers/pump";

FlowSheet Sample_Pump_Diagram
	PARAMETERS
	PP as Plugin(Brief="Physical Properties",
		Type="PP",
		Components = ["water"],
		LiquidModel = "PR",
		VapourModel = "PR"
	);
	NComp as Integer;
	SET
	NComp = PP.NumberOfComponents;

	DEVICES
	suction as simple_source;

	SET

	SPECIFY
	suction.MolarComposition = 1;
	suction.F = 1 * 'kmol/h';
	suction.T = 298 * 'K';
	suction.P = 2 * 'atm';

	INITIAL

	GUESS

	DEVICES
	discharge as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	Pump_Operation as centrifugal_pump;

	SET
	Pump_Operation.PumpEfficiency = 0.10;
	Pump_Operation.MechanicalEff = 0.95;
	Pump_Operation.NPSH_Options = "Include Kinetic Head";
	Pump_Operation.SuctionArea = 0.01 * 'm^2';

	SPECIFY
	Pump_Operation.Pratio = 7;
	Pump_Operation.StaticHead = 12 * 'm';

	INITIAL

	GUESS

	DEVICES
	work_inlet as work_source;

	SET

	SPECIFY

	INITIAL

	GUESS

	CONNECTIONS
	suction.Outlet to Pump_Operation.Inlet;
	Pump_Operation.Outlet to discharge.Inlet;
	work_inlet.Work to Pump_Operation.WorkIn;

	OPTIONS
	Dynamic = false;
	Integration = "original";
	NLASolver(
		File = "sundials",
		RelativeAccuracy = 1e-3,
		AbsoluteAccuracy = 1e-6,
		MaxIterations = 100
	);
	DAESolver(
		File = "sundials",
		RelativeAccuracy = 1e-3,
		AbsoluteAccuracy = 1e-6,
		EventAccuracy = 1e-2
	);
end