#*-------------------------------------------------------------------
* 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 Plate Heat Exchanger
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm Demo (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: Sample_PHE.mso 157 2007-02-07 13:44:17Z rafael $
*--------------------------------------------------------------------*#

using "heat_exchangers/PHE";

FlowSheet Plate_and_Frame

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

	exchanger as PHE;
	InletHot   	as source; 
	InletCold   as source; 

CONNECTIONS

	InletHot.Outlet			to exchanger.InletHot;
	InletCold.Outlet			to exchanger.InletCold;

SET

NComp   = PP.NumberOfComponents;

exchanger.SideOne = "cold";

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# PHE Geometrical Parameters and Alocation
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	exchanger.ChevronAngle 	=	"A60_Deg";
	exchanger.Nplates				= 129;
	exchanger.NpassHot			= 4;
	exchanger.NpassCold			= 2;
	exchanger.Dports  				= 15*'cm';
	exchanger.PhiFactor			= 1.17;
	exchanger.Lv							= 155*'cm';
	exchanger.Lw						= 70*'cm';
	exchanger.pitch					= 3.7*'mm';
	exchanger.pt							= 0.70*'mm';
	exchanger.Kwall   				= 17 *'W/m/K';
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# 	Fouling
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
exchanger.Rfc= 3.4e-5*'m^2*K/W';
exchanger.Rfh = 9e-6*'m^2*K/W';

SPECIFY
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# 		Hot Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	InletHot.Fw 			= 21   			* 'kg/s';
	InletHot.Outlet.T 	= (87+273.15)   * 'K';
	InletHot.Outlet.P 	= 2 			* 'atm';
	InletHot.Outlet.z 	= [1];
	
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#    	Cold Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	InletCold.Fw 				= 62.5  			* 'kg/s';
	InletCold.Outlet.P 		= 2     		* 'atm';
	InletCold.Outlet.T 		= (20+273.15)	* 'K';
    InletCold.Outlet.z 		= [1];

OPTIONS

Dynamic  = false;
GuessFile = "GuessPHE";

end