#*-------------------------------------------------------------------
* 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 Cocurrent Multistream Heat Exchanger
*
*	cold1 in ------->########-------->cold1 out
*	cold2 in -------># HEX 	#-------->cold2 out
*	Hot1 in  ------->#      #-------->Hot1 out
*	Hot2 in  ------->########-------->Hot2 out
*
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: MheaterTeste.mso 100 2007-01-09 14:15:56Z bicca $
*--------------------------------------------------------------------*#

using "heat_exchangers/Mheatex.mso";

FlowSheet MHeater_Project
	
DEVICES

	Mheater			as Mheatex;
	streamcold1 	as stream_therm;
	streamhot1	 	as stream_therm;
	streamhot2	 	as stream_therm;
	streamcold2	 	as stream_therm;
	
PARAMETERS

	PP 			as CalcObject 	(File="vrpp");
	NComp   	as Integer		(Brief="Number Components");
	
SET

	PP.LiquidModel	= "PR";
	PP.VapourModel	= "PR";
	PP.Components 	= ["water","methanol","benzene"];
	NComp   		= PP.NumberOfComponents;
	
	
	Mheater.HE.FlowDirection  = "Counter";
	Mheater.Ncold = 2;
	Mheater.Nhot  = 2;
	
CONNECTIONS

	streamcold1 	to Mheater.Inlet.Cold(1);
	streamhot1  	to Mheater.Inlet.Hot(1);
	streamhot2  	to Mheater.Inlet.Hot(2);
	streamcold2  	to Mheater.Inlet.Cold(2);
	


	
SPECIFY
#=====================================================================
# 	Cold Streams
#=====================================================================
	streamcold1.F  		= 500   * "kmol/h";
	streamcold1.P  		= 1     * "atm";
	streamcold1.T  		= 278   * "K";
	streamcold1.v  		= 0;
    streamcold1.z  		= [1,0,0];
	
	streamcold2.F  		= 50   * "kmol/h";
	streamcold2.P  		= 1     * "atm";
	streamcold2.T  		= 298   * "K";
	streamcold2.v  		= 0;
    streamcold2.z  		= [1,0,0];

#=====================================================================
# 	Hot Streams  
#=====================================================================
	streamhot1.F  		= 100* "kmol/h";
	streamhot1.P  		= 1     * "atm";
	streamhot1.T  		= 330   * "K";
	streamhot1.v  		= 0;
    streamhot1.z  		= [0,1,0];
	
	streamhot2.F  		= 100* "kmol/h";
	streamhot2.P  		= 1     * "atm";
	streamhot2.T  		= 313   * "K";
	streamhot2.v  		= 0;
    streamhot2.z  		= [0,0,1];
	
#=====================================================================
# 	Temperature Outlet
#=====================================================================	
	Mheater.Outlet.Hot(1).T 	= 308*"K";
	Mheater.Outlet.Hot(2).T 	= 303*"K";
	Mheater.Outlet.Cold(2).T 	= 299*"K";

#=====================================================================
# 	Pressure Outlet
#=====================================================================
	Mheater.Outlet.Hot(1).P   	= 1 * "atm";
	Mheater.Outlet.Hot(2).P   	= 1 * "atm";
	Mheater.Outlet.Cold(1).P   	= 1 * "atm";
	Mheater.Outlet.Cold(2).P   	= 1 * "atm";
	
OPTIONS
  
mode 	= "steady";
	
end