#*-------------------------------------------------------------------
* 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 Simplified HeatExchangers
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id 		$
*--------------------------------------------------------------------*#

using "heat_exchangers/Heatex";

FlowSheet NTU_Block

DEVICES

	exchanger 	as Heatex_NTU;
	streamhot 	as source;
	streamcold 	as source;


CONNECTIONS

	streamhot.Outlet 	to exchanger.InletHot;
	streamcold.Outlet 	to exchanger.InletCold;
	
PARAMETERS
	PP 			as Plugin 	(Type="PP",LiquidModel    = "RK",VapourModel   = "RK",
										Components 	= ["water"]);
	NComp 		as Integer;

SET

	NComp   			= PP.NumberOfComponents;
	
#	exchanger.ExchangerType      = "Counter Flow";
#	exchanger.ExchangerType      = "Cocurrent Flow";
	exchanger.ExchangerType      = "Shell and Tube";
	

SPECIFY

	exchanger.Details.A 						 = 65.031*'m^2';
	exchanger.Details.Ud 					 = 0.75*'W/(m^2*K)';
	exchanger.Details.Uc 					 = 0.75*'W/(m^2*K)';
	
	exchanger.HotSide.PressureDrop.Pdrop  = 0*'atm';
	exchanger.ColdSide.PressureDrop.Pdrop = 0*'atm';
	
	streamhot.Outlet.F 					= 1000    * 'kmol/h';
	streamhot.Outlet.T 					= 450     * 'K';
	streamhot.Outlet.P 					= 1.5     * 'atm';
	streamhot.Outlet.z 					= [1];

	streamcold.Outlet.F  					= 500   * 'kmol/h';
	streamcold.Outlet.P  					= 1     * 'atm';
	streamcold.Outlet.T  					= 315   * 'K';
    streamcold.Outlet.z  					= [1];
	
OPTIONS

 Dynamic = false;

end

FlowSheet LMTD_Block

DEVICES

	exchanger 	as Heatex_LMTD;
	streamhot 	as source;
	streamcold 	as source;


CONNECTIONS

	streamhot.Outlet 	to exchanger.InletHot;
	streamcold.Outlet 	to exchanger.InletCold;
	
PARAMETERS
	PP 			as Plugin 	(Type="PP",LiquidModel    = "RK",VapourModel   = "RK",
										Components 	= ["water"]);
	NComp 		as Integer;

SET

	NComp   			= PP.NumberOfComponents;
	
#	exchanger.ExchangerType      = "Counter Flow";
#	exchanger.ExchangerType      = "Cocurrent Flow";
	exchanger.ExchangerType      = "Shell and Tube";
	
	exchanger.LMTDcorrection      = "Bowmann";
#	exchanger.LMTDcorrection      = "Fakheri";

SPECIFY

	exchanger.Details.A 						 = 65.031*'m^2';
	exchanger.Details.Ud 					 = 0.75*'W/(m^2*K)';
	exchanger.Details.Uc 					 = 0.75*'W/(m^2*K)';
	
	exchanger.HotSide.PressureDrop.Pdrop  = 0*'atm';
	exchanger.ColdSide.PressureDrop.Pdrop = 0*'atm';
	
	streamhot.Outlet.F 					= 1000    * 'kmol/h';
	streamhot.Outlet.T 					= 450     * 'K';
	streamhot.Outlet.P 					= 1.5     * 'atm';
	streamhot.Outlet.z 					= [1];

	streamcold.Outlet.F  					= 500   * 'kmol/h';
	streamcold.Outlet.P  					= 1     * 'atm';
	streamcold.Outlet.T  					= 315   * 'K';
    streamcold.Outlet.z  					= [1];
	
OPTIONS

 Dynamic = false;

end