#*-------------------------------------------------------------------
* 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 Hairpin Heat Exchanger - Incremental approach
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: Sample_HairpinIncr.mso 			$
*--------------------------------------------------------------------*#

using "heat_exchangers/HairpinIncr";

FlowSheet Hairpin_Incremental

PARAMETERS
	PP 			as Plugin (Type ="PP", LiquidModel = "PR", VapourModel = "PR",Components = ["aniline","benzene"]);
	NComp 	as Integer;
	
DEVICES

	Pipe 	as HairpinIncr;
	InletHot   	as simple_source; 
	InletCold   	as simple_source; 
	OutletHot 	as simple_sink;
	OutletCold 	as simple_sink;
	
	
CONNECTIONS

	InletCold.Outlet					to Pipe.LowerPipe.InletInner;
	InletHot.Outlet					to Pipe.UpperPipe.InletOuter;
	
	Pipe.LowerPipe.OutletOuter 	to OutletHot.Inlet;
	Pipe.UpperPipe.OutletInner 		to OutletCold.Inlet;
	
SET

NComp   		= PP.NumberOfComponents;

# Number of incremental points
	Pipe.N 	=	8;

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#   Options
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Pipe.UpperPipe.InnerTurbulentCorrelation  	= "SiederTate";
Pipe.UpperPipe.InnerLaminarCorrelation     = "Schlunder";
Pipe.UpperPipe.OuterTurbulentCorrelation  	= "SiederTate";
Pipe.UpperPipe.OuterLaminarCorrelation     = "Schlunder";

Pipe.LowerPipe.InnerTurbulentCorrelation  	= "SiederTate";
Pipe.LowerPipe.InnerLaminarCorrelation     = "Schlunder";
Pipe.LowerPipe.OuterTurbulentCorrelation  = "SiederTate";
Pipe.LowerPipe.OuterLaminarCorrelation    = "Schlunder";
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Double Pipe Geometrical Parameters and Alocation
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Pipe.DoInner  			=	42.16*'mm';
Pipe.DiInner				=	35.05*'mm';
Pipe.DiOuter				=	52.50*'mm';
Pipe.Kwall   				= 0.057 *'kW/m/K';
Pipe.Lpipe					=	9*'m';
Pipe.Donozzle_Inner  =	36.63*'mm';
Pipe.Dinozzle_Inner  	=	36.63*'mm';
Pipe.Donozzle_Outer  =	42.72*'mm';
Pipe.Dinozzle_Outer 	=	42.72*'mm';
Pipe.Rfi 					= 0.00022*'m^2*K/W';
Pipe.Rfo 					= 0.00018*'m^2*K/W';

SPECIFY
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# 		Hot Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	InletHot.Outlet.F 	= 47.2038   	 * 'kmol/h';
	InletHot.Outlet.T 	= 338.71   * 'K';
	InletHot.Outlet.P 	= 413.685 * 'kPa';
	InletHot.Outlet.z 	= [1,0];
	
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#    	Cold Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	InletCold.Outlet.F 	= 58.0694   	* 'kmol/h';
	InletCold.Outlet.T 	= 288.71     	* 'K';
	InletCold.Outlet.P 	= 413.685 * 'kPa';
	InletCold.Outlet.z 	= [0,1];
	
OPTIONS

Dynamic  = false;
GuessFile = "GuessHairpin_Incremental";

end