#*-------------------------------------------------------------------
* 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 cooler and heater operation
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: Sample_Heater.mso 89 2006-12-11 15:26:11Z paula $
*--------------------------------------------------------------------*#

using "heat_exchangers/heater";

FlowSheet Sample_Heater
	
DEVICES

	Heater			as heater;
	IN_1 			as source;
	IN_2 			as source;
	IN_3 			as source;
	Heat 			as energy_source;
	Sink_Stream	as sink;
	
CONNECTIONS

	IN_1.Outlet 			to Heater.Inlet(1);
	IN_2.Outlet 			to Heater.Inlet(2);
	IN_3.Outlet 			to Heater.Inlet(3);
	Heat.OutletQ 		to Heater.InletQ;
	Heater.Outlet        to Sink_Stream.Inlet;
	
PARAMETERS

	PP 			as Plugin (Type ="PP", LiquidModel = "PR",VapourModel  = "PR",
							Components 	= ["nitrogen","methane","ethane","propane","n-hexane","n-octane"]);
	NComp 		as Integer;
	
SET

	NComp   	= PP.NumberOfComponents;
	Heater.Ninlet   	= 3;

SPECIFY

	IN_1.Fw  				= 10   * 'kg/s';
	IN_1.Outlet.P  		= 5     * 'atm';
	IN_1.Outlet.T  		= (30+273)   * 'K';
    IN_1.Outlet.z  		= [0.007,0.75,0.243,0,0,0];
	
	IN_2.Fw  				= 12   * 'kg/s';
	IN_2.Outlet.P  		= 5     * 'atm';
	IN_2.Outlet.T  		= (33+273)   * 'K';
    IN_2.Outlet.z  		= [0.003,0.66,0.33,0.005,0.001,0.001];
	
	IN_3.Fw  				= 12   * 'kg/s';
	IN_3.Outlet.P  		= 2     * 'atm';
	IN_3.Outlet.T  		= (33+273)   * 'K';
    IN_3.Outlet.z  		= [0,0.7,0.30,0,0,0];

	#Heater.Outlet.T 		= (66+273)*'K';
	Heater.Outlet.P   		= 5* 'atm';
	Heater.Outlet.v   		= 0.8;
	#Heat.OutletQ.Q   		= 2500* 'kW';

OPTIONS
  	Dynamic	= false;
	
end

FlowSheet Sample_Cooler
	
DEVICES

	Cooler			as cooler;
	IN_1 			as source;
	IN_2 			as source;
	IN_3 			as source;
	Heat 			as energy_source;
	Sink_Stream	as sink;
	
CONNECTIONS

	IN_1.Outlet 			to Cooler.Inlet(1);
	IN_2.Outlet 			to Cooler.Inlet(2);
	IN_3.Outlet 			to Cooler.Inlet(3);
	Heat.OutletQ 		to Cooler.InletQ;
	Cooler.Outlet        to Sink_Stream.Inlet;
	
PARAMETERS

	PP 			as Plugin (Type ="PP", LiquidModel = "PR",VapourModel  = "PR",
							Components 	= ["nitrogen","methane","ethane","propane","n-hexane","n-octane"]);
	NComp 		as Integer;
	
SET

	NComp   	= PP.NumberOfComponents;
	Cooler.Ninlet   	= 3;

SPECIFY

	IN_1.Fw  				= 10   * 'kg/s';
	IN_1.Outlet.P  		= 5     * 'atm';
	IN_1.Outlet.T  		= (30+273)   * 'K';
    IN_1.Outlet.z  		= [0.007,0.75,0.243,0,0,0];
	
	IN_2.Fw  				= 12   * 'kg/s';
	IN_2.Outlet.P  		= 5     * 'atm';
	IN_2.Outlet.T  		= (33+273)   * 'K';
    IN_2.Outlet.z  		= [0.003,0.66,0.33,0.005,0.001,0.001];
	
	IN_3.Fw  				= 12   * 'kg/s';
	IN_3.Outlet.P  		= 2     * 'atm';
	IN_3.Outlet.T  		= (33+273)   * 'K';
    IN_3.Outlet.z  		= [0,0.7,0.30,0,0,0];

	#Cooler.Outlet.T 		= (66+273)*'K';
	Cooler.Outlet.P   		= 5* 'atm';
	Cooler.Outlet.v   		= 0.8;
	#Cooler.OutletQ.Q   		= 2500* 'kW';

OPTIONS
  	Dynamic	= false;
	
end