#*-------------------------------------------------------------------
* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
*
* This LIBRARY is free software; you can distribute it and/or modify
* it under the therms of the ALSOC FREE LICENSE as available at
* http://www.enq.ufrgs.br/alsoc.
*
* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
* from http://www.rps.eng.br Copyright (C) 2002-2004.
* All rights reserved.
*
* EMSO is distributed under the therms of the ALSOC LICENSE as
* available at http://www.enq.ufrgs.br/alsoc.
*
*--------------------------------------------------------------------
* Sample file for model centrifugal_pump and pump (simplified)
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Estefane S. Horn, Paula B. Staudt
* $Id: sample_pump.mso 372 2007-09-21 22:17:36Z arge $
*--------------------------------------------------------------------*#
using "pressure_changers/pump";

FlowSheet Pump_P1
	
	DEVICES
	S1 as source;
	P1 as centrifugal_pump;
	
	CONNECTIONS
	S1.Outlet to P1.Inlet;
	
	PARAMETERS 
	PP 		as Plugin	(Brief="External Physical Properties",
		Type="PP",
		Components = ["water", "benzene"],
		LiquidModel = "PR",
		VapourModel = "PR"
	);
	Mw		as positive  	(Brief = "Molar Mass", Unit = 'kg/kmol');
	NComp   as Integer 		(Default= 1);

	SET
	NComp = PP.NumberOfComponents;
	P1.N = 1000			* 'rpm';		
	P1.Lev = 0			* 'm';
	P1.Meff = 0.95;
	P1.Eff = 0.72;
	P1.Beta = 425e-6	* '1/K';
	
	SPECIFY
	S1.Outlet.F = 1000 		* 'kmol/h';
	S1.Outlet.P = 10 			* 'atm';
	S1.Outlet.T = 298 			* 'K' ;
	S1.Outlet.z = [1,0];	
	
	P1.Pdrop = -8		* 'kPa';
	#P1.Outlet.P = 2	* 'atm';
	#P1.BPower = 1		* 'kW';
	
end

FlowSheet pump_Test
	PARAMETERS
	PP 		as Plugin	(Brief="External Physical Properties",
		Type="PP",
		Components = ["water", "benzene"],
		LiquidModel = "PR",
		VapourModel = "PR"
	);
	NComp	as Integer;

	SET
	NComp = PP.NumberOfComponents;
	
	DEVICES
	p1 as pump;
	s1 as source;
	
	CONNECTIONS
	s1.Outlet to p1.Inlet;

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

	OPTIONS
	Dynamic = false;
end