#*-------------------------------------------------------------------
* 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 Shell and Tubes Heat Exchanger
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: sample_ShellandTubes.mso 100 2007-01-09 14:15:56Z bicca $
*--------------------------------------------------------------------*#
using "heat_exchangers/Heatex";

FlowSheet ShellandTubes_NTU

PARAMETERS

	PP 		as Plugin (Brief="Physical Properties",Type="PP",LiquidModel = "PR",VapourModel = "PR",
								Components 	= ["water","n-butane", "benzene" ]);
	NComp 	as Integer;
	
DEVICES

	exchanger 	 as Heatex_NTU;
	streamhot 	 as source;
	streamcold  as source;
	OutCold      as sink;
	OutHot       as sink;

SET

	NComp   			= PP.NumberOfComponents;

	exchanger.ExchangerType	        = "Shell and Tube";

CONNECTIONS

	streamhot.Outlet 	to exchanger.InletHot;
	streamcold.Outlet 	to exchanger.InletCold;

	exchanger.OutletHot  to OutHot.Inlet;
	exchanger.OutletCold to OutCold.Inlet;

SPECIFY

exchanger.Details.Ud 						= 210*'W/(m^2*K)';
exchanger.Details.Uc 						= 210*'W/(m^2*K)';

exchanger.HotSide.PressureDrop.Pdrop 	= 0.1*'kPa';
exchanger.ColdSide.PressureDrop.Pdrop   	= 0.1*'kPa';

streamhot.Outlet.F		= 36    * 'kmol/h';
streamhot.Outlet.T 		= 363.15   * 'K';
streamhot.Outlet.P 		= 120   * 'kPa';
streamhot.Outlet.z 		= [1,0,0];

streamcold.Outlet.F 		= 10 * 'kmol/h';
streamcold.Outlet.P 		= 120 * 'kPa';
streamcold.Outlet.T 		= 303.15 * 'K';	
streamcold.Outlet.z 		= [0.1,0.7, 0.2];

exchanger.Details.A     = 15*'m^2';
	
OPTIONS

 Dynamic	= false;

end

FlowSheet ShellandTubes_LMTD

PARAMETERS

		PP 		as Plugin (Brief="Physical Properties",Type="PP",LiquidModel = "PR",VapourModel = "PR",
								Components 	= ["water","n-butane", "benzene" ]);
	NComp 	as Integer;
	
DEVICES

	exchanger 	 as Heatex_LMTD;
	streamhot 	 as source;
	streamcold  as source;
	OutCold      as sink;
	OutHot       as sink;

SET

	NComp   			= PP.NumberOfComponents;

	exchanger.LMTDcorrection = "Bowmann";
	exchanger.ExchangerType	        = "Shell and Tube";
	

CONNECTIONS

	streamhot.Outlet 	to exchanger.InletHot;
	streamcold.Outlet 	to exchanger.InletCold;

	exchanger.OutletHot  to OutHot.Inlet;
	exchanger.OutletCold to OutCold.Inlet;

SPECIFY

exchanger.Details.Ud 						= 210*'W/(m^2*K)';
exchanger.Details.Uc 						= 210*'W/(m^2*K)';

exchanger.HotSide.PressureDrop.Pdrop 	= 0.1*'kPa';
exchanger.ColdSide.PressureDrop.Pdrop   	= 0.1*'kPa';

streamhot.Outlet.F		= 36    * 'kmol/h';
streamhot.Outlet.T 		= 363.15   * 'K';
streamhot.Outlet.P 		= 120   * 'kPa';
streamhot.Outlet.z 		= [1,0,0];

streamcold.Outlet.F 		= 10 * 'kmol/h';
streamcold.Outlet.P 		= 120 * 'kPa';
streamcold.Outlet.T 		= 303.15 * 'K';	
streamcold.Outlet.z 		= [0.1,0.7, 0.2];

exchanger.Details.A     = 15*'m^2';
	
OPTIONS

 Dynamic	= false;
 GuessFile   = "GuessShellandTubes";

end