#*-------------------------------------------------------------------
* 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_compressor
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Marcos L. Alencastro, Estefane da S. Horn
* $Id: sample_compressor.mso 616 2008-09-06 00:42:00Z bicca $
*--------------------------------------------------------------------*#

using "pressure_changers/compressor";

FlowSheet compressor_C1

	PARAMETERS 
	PP 		as Plugin	(Brief="External Physical Properties",
		Type="PP",
		Components = ["nitrogen", "oxygen"],
		LiquidModel = "IdealLiquid",
		VapourModel = "Ideal"
	);
	NComp   as Integer 		(Default= 1);
	
	DEVICES
	S1 as source;
	W1 as work_source;
	C1 as centrifugal_compressor;
	
	CONNECTIONS
	S1.Outlet to C1.Inlet;
	W1.OutletWork to C1.WorkIn;
	
	
	SET
	NComp = PP.NumberOfComponents;
	

	C1.CompressorType = "Isentropic Operation";

	SPECIFY
	C1.EfficiencyOperation 	= 1;
	C1.MechanicalEff 	= 1;
	S1.Outlet.F = 41.05 		* 'kmol/h';
	S1.Outlet.P = 1			* 'atm';
	S1.Outlet.T = 298 			* 'K' ;
	S1.Outlet.z = [0.79,0.21];
	
	C1.Outlet.P = 3	* 'atm';
end

FlowSheet compressor_C2

	PARAMETERS 
	PP 		as Plugin	(Brief="External Physical Properties",
		Type="PP",
		Components = ["propane"],
		LiquidModel = "PR",
		VapourModel = "PR"
	);
	NComp   as Integer 		(Default= 1);
	
	DEVICES
	S1 as source;
	W1 as work_source;
	C1 as centrifugal_compressor;
	
	CONNECTIONS
	S1.Outlet to C1.Inlet;
	W1.OutletWork to C1.WorkIn;
	
	
	SET
	NComp = PP.NumberOfComponents;
	
	C1.CompressorType = "Polytropic Operation";
	#C1.CompressorType = "Isentropic Operation";

	SPECIFY
	C1.EfficiencyOperation 	= 0.75;
	C1.MechanicalEff 	= 0.80;
	
	S1.Outlet.F = 4 		* 'kmol/h';
	S1.Outlet.P = 100			* 'kPa';
	S1.Outlet.T = 298 			* 'K' ;
	S1.Outlet.z = [1];
	
	C1.Outlet.P = 1500	* 'kPa';
end