#*--------------------------------------------------------------------
*
* EMSO sample file.
*
* heater 
*
*--------------------------------------------------------------------*#

using "heat_exchangers/heater";

FlowSheet Cooler_Project
	
DEVICES

	cooler			as Cooler;
	streamcold1 	as stream_therm;
	streamcold2 	as stream_therm;
	
CONNECTIONS

	streamcold1 	to cooler.Inlet(1);
	streamcold2 	to cooler.Inlet(2);
	
PARAMETERS

	PP 			as CalcObject (File="vrpp");
	NComp 		as Integer;
	Ninlet      as Integer	   (Brief="Number of Inlet Streams");
	
SET

	PP.LiquidModel  = "RK";
	PP.VapourModel  = "RK";
	
	PP.Components 	= ["water","methanol"];
	NComp   		= PP.NumberOfComponents;
	Ninlet          = 2;

SPECIFY

	streamcold1.F  		= 100   * "kmol/h";
	streamcold1.P  		= 1     * "atm";
	streamcold1.T  		= 100   * "K";
	streamcold1.v  		= 0;
    streamcold1.z  		= [1,0];

	streamcold2.F  		= 20* "kmol/h";
	streamcold2.P  		= 1     * "atm";
	streamcold2.T  		= 100   * "K";
	streamcold2.v  		= 0;
    streamcold2.z  		= [0,1];
	
	cooler.Outlet.T 	= 70*"K";
	cooler.Outlet.P   	= 1 * "atm";
	
	
OPTIONS
  
	mode 	    		= "steady";
	outputLevel 		= "all";
	relativeAccuracy 	= 1e-8;
	
	
end