#*-------------------------------------------------------------------
* 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;
	streamcold1 	as source;
	streamcold2 	as source;
	
CONNECTIONS

	streamcold1.Outlet 	to Heater.Inlet(1);
	streamcold2.Outlet 	to Heater.Inlet(2);
	
PARAMETERS

	PP 			as Plugin (File="vrpp");
	NComp 		as Integer;
	
SET

	PP.LiquidModel    = "PR";
	PP.VapourModel  = "PR";
	
	PP.Components 	= ["water","ethanol"];
	NComp   		= PP.NumberOfComponents;
	
	Heater.Ninlet   = 2;

SPECIFY

	streamcold1.Outlet.F  		= 100   * 'kmol/h';
	streamcold1.Outlet.P  		= 1     * 'atm';
	streamcold1.Outlet.T  		= 100   * 'K';
    streamcold1.Outlet.z  		= [1,0];

	streamcold2.Outlet.F  		= 20*'kmol/h';
	streamcold2.Outlet.P  		= 1     * 'atm';
	streamcold2.Outlet.T  		= 100   * 'K';
    streamcold2.Outlet.z  		= [0,1];
	
	Heater.Outlet.T 	= 70*'K';
	Heater.Outlet.P   = 1 * 'atm';

OPTIONS

  	Dynamic	= false;
	
end