#*-------------------------------------------------------------------
* 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 with Multistream Heat Exchanger - counter and cocurrent flow
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: sample_Mheatex.mso 135 2007-01-25 20:00:26Z bicca $
*--------------------------------------------------------------------*#
using "heat_exchangers/Mheatex";

FlowSheet Mheatex_cocurrent
	
DEVICES

	Mheater		as Mheatex;

	streamhot1	 	as source;
	streamcold1 	as source;
	streamcold2	as source;
	
PARAMETERS

	PP 			as Plugin	(Type="PP", LiquidModel= "PR", VapourModel	= "PR",
										Components = ["water","methanol","benzene","toluene"]);
	NComp   	as Integer	(Brief="Number Components");
	
SET

	NComp   = PP.NumberOfComponents;
	
	Mheater.Nhot          = 1;
    Mheater.Ncold         = 2;
	
	Mheater.FlowDirection  = "cocurrent";
	
CONNECTIONS

	streamcold1.Outlet 	to Mheater.InletCold(1);
	streamhot1.Outlet 	to Mheater.InletHot(1);
	streamcold2.Outlet	to Mheater.InletCold(2);
	
SPECIFY
#=====================================================================
# 	Correction Factor
#=====================================================================
	Mheater.Method.Fc   = 1;

#=====================================================================
# 	Cold Streams
#=====================================================================
	streamcold1.Outlet.F  		= 500   * 'kmol/h';
	streamcold1.Outlet.P  		= 1     * 'atm';
	streamcold1.Outlet.T  		= 293   * 'K';
	streamcold1.Outlet.z  		= [1,0,0,0];

	streamcold2.Outlet.F  		= 50   * 'kmol/h';
	streamcold2.Outlet.P  		= 1     * 'atm';
	streamcold2.Outlet.T  		= 315   * 'K';
    streamcold2.Outlet.z  		= [0,0.1,0.65,0.25];

#=====================================================================
# 	Hot Streams 
#=====================================================================
	streamhot1.Outlet.F  		= 100* 'kmol/h';
	streamhot1.Outlet.P  		= 1     * 'atm';
	streamhot1.Outlet.T  		= 353   * 'K';
    streamhot1.Outlet.z  			= [1,0,0,0];

#=====================================================================
# 	Temperature Outlet
#=====================================================================	
	Mheater.OutletHot(1).T 		= 340*'K';
	Mheater.OutletCold(2).T    = 330*'K';
	
#=====================================================================
# 	Pressure Outlet
#=====================================================================
	Mheater.OutletHot(1).P   	= 1 * 'atm';
	Mheater.OutletCold(1).P   = 1 * 'atm';
	Mheater.OutletCold(2).P   = 1 * 'atm';
	
OPTIONS
	Dynamic	    = false;
	GuessFile    = "GuessMheatex";

end	

FlowSheet Mheatex_counter
	
DEVICES

	Mheater		as Mheatex;
	
	streamhot1	 	as source;
	streamcold1 	as source;
	streamcold2	as source;
	
PARAMETERS

	PP 			as Plugin	(Type="PP", LiquidModel= "PR", VapourModel	= "PR",
										Components = ["water","methanol","benzene","toluene"]);
	NComp   	as Integer	(Brief="Number Components");
	
SET

	NComp   			= PP.NumberOfComponents;
	
	Mheater.Nhot          = 1;
    Mheater.Ncold         = 2;
	
	Mheater.FlowDirection  = "counter";
	
CONNECTIONS

	streamcold1.Outlet 	to Mheater.InletCold(1);
	streamhot1.Outlet  	to Mheater.InletHot(1);
	streamcold2.Outlet	to Mheater.InletCold(2);
	
SPECIFY

#=====================================================================
# 	Correction Factor
#=====================================================================
	Mheater.Method.Fc   = 1;

#=====================================================================
# 	Cold Streams
#=====================================================================
	streamcold1.Outlet.F  		= 500   * 'kmol/h';
	streamcold1.Outlet.P  		= 1     * 'atm';
	streamcold1.Outlet.T  		= 293   * 'K';
	streamcold1.Outlet.z  		= [1,0,0,0];

	streamcold2.Outlet.F  		= 50   * 'kmol/h';
	streamcold2.Outlet.P  		= 1     * 'atm';
	streamcold2.Outlet.T  		= 315   * 'K';
    streamcold2.Outlet.z  		= [0,0.1,0.65,0.25];

#=====================================================================
# 	Hot Streams 
#=====================================================================
	streamhot1.Outlet.F  		= 100* 'kmol/h';
	streamhot1.Outlet.P  		= 1     * 'atm';
	streamhot1.Outlet.T  		= 353   * 'K';
    streamhot1.Outlet.z  			= [1,0,0,0];

#=====================================================================
# 	Temperature Outlet
#=====================================================================	
	Mheater.OutletHot(1).T 	= 340*'K';
	Mheater.OutletCold(2).T    = 330*'K';
	
#=====================================================================
# 	Pressure Outlet
#=====================================================================
	Mheater.OutletHot(1).P   	= 1 * 'atm';
	Mheater.OutletCold(1).P   = 1 * 'atm';
	Mheater.OutletCold(2).P   = 1 * 'atm';

OPTIONS

	Dynamic	    = false;
	GuessFile    = "GuessMheatex";
	
end