#*-------------------------------------------------------------------
* 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 model Multipass_NTU_Det
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: Multipass_Detailed.mso 110 2007-01-12 18:44:02Z bicca $
*--------------------------------------------------------------------*#
using "heat_exchangers/HeatExchangerDetailed.mso";
	
FlowSheet Eshell
	
DEVICES
#===============================================================
#    Definições do equipamento e das correntes
#===============================================================
	exchanger 		as Multipass_NTU_Det;
	streamhot_in 	as stream_therm;
	streamcold_in 	as stream_therm;
	
CONNECTIONS
#===============================================================
#    Conexões do equipamento e das correntes
#===============================================================
	streamhot_in  to exchanger.Unity(1).Inlet.Hot;
	streamcold_in to exchanger.Unity(2).Inlet.Cold;
	
PARAMETERS
#===============================================================
#    Parâmetros
#===============================================================
	PP 			as CalcObject 	(File="vrpp");
	NComp 		as Integer;
	
SET
#===============================================================
#    Fluidos e Alocação
#===============================================================
	PP.Components 		= ["benzene","toluene"];
	exchanger.HE.HotSide      	= "Shell";
	exchanger.HE.TurbulentFlow	= "SiederTate";
	PP.LiquidModel  	= "PR";
	PP.VapourModel  	= "PR";
	NComp   			= PP.NumberOfComponents;
	exchanger.Nshell      = 2;
#=====================================================================
# 	Parâmetros geométricos do casco
#=====================================================================    
exchanger.Tpass				= 4;
exchanger.Dishell   		= 0.75  		*"m";
exchanger.Lcf       		= 0.043  *"m";
exchanger.Nss       		= 1;
exchanger.Donozzle_Shell    = 0.1937  	*"m";
exchanger.Dinozzle_Shell    = 0.1937  	*"m";
exchanger.Honozzle_Shell    = 0.0225  	*"m";
exchanger.Hinozzle_Shell    = 0.02155	*"m";

#=====================================================================
# 	Parâmetros geométricos dos tubos
#=====================================================================
exchanger.Ntt         		= 500;
exchanger.Pattern   		= 30;
exchanger.pitch     		= 0.0254  	*"m";
exchanger.Ltube      		= 5.5 	*"m";
exchanger.Ditube      		= 0.013395  *"m";
exchanger.Dotube    		= 0.015875  	*"m";
exchanger.Kwall   			= 0.57  	*"kW/m/K";
exchanger.Donozzle_Tube     = 0.203  	*"m";
exchanger.Dinozzle_Tube    	= 0.203  	*"m";
#=====================================================================
# 	Parâmetros geométricos dos defletores
#=====================================================================
exchanger.Lcd       	= 0.0047 	*"m";
exchanger.Bc        	= 25;
exchanger.Ltd       	= 0.00039  *"m";
exchanger.Nb   			= 6;

SPECIFY
#============================================
#   Corrente Quente
#============================================
	streamhot_in.F 	= 40    * "mol/s";
	streamhot_in.T 	= 393.15* "K";
	streamhot_in.v 	= 0    ;
	streamhot_in.z 	= [1,0]     ;
	streamhot_in.P 	= 740     * "kPa";
#============================================
#   Corrente Fria
#============================================	
	streamcold_in.F  = 122   		* "mol/s";
	streamcold_in.T  = 333.15   * "K";
	streamcold_in.v  = 0;
	streamcold_in.z  = [0,1];
	streamcold_in.P  = 2210*"kPa";
#=====================================================================
# 	Espaçamento dos Defletores
#=====================================================================
	exchanger.Unity.Baffles.Ls	= 0.622   	*"m";
	exchanger.Unity.Baffles.Lsi	= 0.807  *"m";

#=====================================================================
# 	Fouling
#=====================================================================
exchanger.Unity.Resistances.Rfi = 0*"m^2*K/kW";
exchanger.Unity.Resistances.Rfo = 0*"m^2*K/kW";

OPTIONS
#============================================
#   Simulation Options
#============================================
 mode 	   = "steady";
guessFile  = "Multipass_LMTD";
end