using "heat_exchangers/HeatExchangerDetailed.mso";

	
FlowSheet Eshell_Detailed
	
DEVICES
#===============================================================
#    Definições do equipamento e das correntes
#===============================================================
	exchanger 		as E_Shell_NTU_Det;
	streamhot_in 	as stream_therm;
	streamcold_in 	as stream_therm;
	
CONNECTIONS
#===============================================================
#    Conexões do equipamento e das correntes
#===============================================================
	streamhot_in 	to exchanger.Inlet.Hot;
	streamcold_in 	to exchanger.Inlet.Cold;
	
PARAMETERS
#===============================================================
#    Parâmetros 
#===============================================================
	PP 			as CalcObject 	(File="petroil");
	NComp 		as Integer;
	HE 			as CalcObject 	(File="Heatex");

SET
#===============================================================
#    Fluidos e Alocação
#===============================================================
	PP.Components 		= ["fhot","fcold"];
	NComp   			= PP.NumberOfComponents;
	HE.HotSide          = "Tubes";# or "Shell"
	
#=====================================================================
# 	Parâmetros geométricos do casco
#=====================================================================    
exchanger.Tpass				= 2;
exchanger.Dishell   		= 0.914  	 *"m";
exchanger.Lcf       		= 0.0430898  *"m";
exchanger.Nss       		= 2;
exchanger.Donozzle_Shell    = 0.38735  	*"m";
exchanger.Dinozzle_Shell    = 0.38735  	*"m";
exchanger.Honozzle_Shell    = 0.0225  	*"m";
exchanger.Hinozzle_Shell    = 0.02155	*"m";

#=====================================================================
# 	Parâmetros geométricos dos tubos
#=====================================================================
exchanger.Ntt         		= 775;
exchanger.Pattern   		= 90;
exchanger.pitch     		= 0.0254  	*"m";
exchanger.Ltube      		= 5.970 	*"m";
exchanger.Ditube      		= 0.0148336 *"m";
exchanger.Dotube    		= 0.01905  	*"m";
exchanger.Kwall   			= 0.057  	*"kW/m/K";
exchanger.Donozzle_Tube     = 0.15405  	*"m";
exchanger.Dinozzle_Tube    	= 0.15405  	*"m";
#=====================================================================
# 	Parâmetros geométricos dos defletores
#=====================================================================
exchanger.Lcd       	= 0.0047625  *"m";
exchanger.Bc        	= 35;
exchanger.Ltd       	= 0.0003969  *"m";
exchanger.Nb   			= 8;

SPECIFY
#============================================
#   Corrente Quente
#============================================
	streamhot_in.F 	= 40.476    * "mol/s";
	streamhot_in.T 	= 419.25* "K";
	streamhot_in.v 	= 0    ;
	streamhot_in.z 	= [1,0]     ;
	streamhot_in.P 	= 733.06     * "kPa";
#============================================
#   Corrente Fria
#============================================	
	streamcold_in.F  = 121.698   		* "mol/s";
	streamcold_in.T  = (90.2+273.15)   * "K";
	streamcold_in.v  = 0;
	streamcold_in.z  = [0,1];
	streamcold_in.P  = 2210.26*"kPa";
#=====================================================================
# 	Espaçamento dos Defletores
#=====================================================================
	exchanger.Baffles.Ls	= 0.622   	*"m";
	exchanger.Baffles.Lsi	= 0.807813  *"m";
	
OPTIONS
#============================================
#   Simulation Options
#============================================
 mode 			= "steady";
 relativeAccuracy = 1e-6;

end