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

 FlowSheet E_Shell
	
DEVICES
#===============================================================
#   TEMA E Shell Heat Exchanger - Shortcut LMTD Method
#===============================================================

	exchanger 	as E_Shell_LMTD;
	streamhot 	as stream_therm;
	streamcold 	as stream_therm;

CONNECTIONS

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

	PP 		as CalcObject 	(File="vrpp");
	NComp 	as Integer;
	
SET
#===============================================================
#   Components - State Equation 
#===============================================================
	
	PP.LiquidModel    	= "RK";
	PP.VapourModel    	= "RK";
	PP.Components 		= ["water"];
	NComp   			= PP.NumberOfComponents;
	
SPECIFY
#============================================
#   Hot Streams
#============================================
	streamhot.F 					= 100    * "kmol/h";
	streamhot.T 					= 450     * "K";
	streamhot.v 					= 1;
	streamhot.P 					= 1.5     * "atm";
	streamhot.z 					= [1];

#============================================
#   Cold Streams
#============================================	
	streamcold.F  					= 50   * "kmol/h";
	streamcold.P  					= 1     * "atm";
	streamcold.T  					= 350   * "K";
	streamcold.v  					= 0;
    streamcold.z  					= [1];
	
#============================================
#   Required Details 
#============================================
	exchanger.Details.A     		= 65 	*"m^2";	
	exchanger.Details.Ud   		    = 0.74  *"W/m^2/K";
	exchanger.Details.Uc   		    = 0.74  *"W/m^2/K";
	exchanger.PressureDrop.Hot.Pdrop 	= 0   * "atm";
	exchanger.PressureDrop.Cold.Pdrop 	= 0   * "atm";
OPTIONS
#============================================
#   Simulation Options
#============================================
 mode 			= "steady";

end