#*-------------------------------------------------------------------
* 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 a Double Pipe Heat Exchanger
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: Sample_DoublePipe.mso 110 2007-01-12 18:44:02Z bicca $
*--------------------------------------------------------------------*#

using "heat_exchangers/DoublePipe.mso";

FlowSheet Double_Pipe
	
DEVICES

	exchanger 	as DoublePipe_LMTD;
	streamhot 	as streamTP;
	streamcold 	as streamTP;

CONNECTIONS

	streamhot 	to exchanger.Inlet.Hot;
	streamcold 	to exchanger.Inlet.Cold;
	
PARAMETERS

	PP 			as CalcObject (File="vrpp");
	NComp 		as Integer;

SET

PP.LiquidModel     	= "PR";
PP.VapourModel     	= "PR";
PP.Components 		= ["n-hexane","water"];
NComp   			= PP.NumberOfComponents;

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

exchanger.HE.FlowDirection  = "Counter";
exchanger.HE.TurbulentFlow  = "SiederTate";
	
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Double Pipe Geometrical Parameters and Alocation
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

exchanger.HE.HotSide  	= 	"Inner";
exchanger.DoInner  		=	0.04826*"m";
exchanger.DiInner		=	0.04089*"m";
exchanger.DiOuter		=	0.07793*"m";
exchanger.Kwall   		= 	0.057 *"kW/m/K";
exchanger.Lpipe			=	3*"m";

SPECIFY
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# 		Hot Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	streamhot.F = 10   			* "kmol/h";
	streamhot.T = (68+273.15)   * "K";
	streamhot.P = 5.4 			* "bar";
	streamhot.z = [1,0];
	
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#    	Cold Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	streamcold.F = 5   			* "kmol/h";
	streamcold.P = 5.1     		* "bar";
	streamcold.T = (23+273.15)	* "K";
    streamcold.z = [0,1];
#=====================================================================
# 	Fouling
#=====================================================================
exchanger.Resistances.Rfi = 0.0018*"m^2*K/kW";
exchanger.Resistances.Rfo = 0.0021*"m^2*K/kW";

OPTIONS

mode = "steady";

end