#*-------------------------------------------------------------------
* 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 heater and cooler models
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: sample_heater.mso 89 2006-12-11 15:26:11Z paula $
*--------------------------------------------------------------------*#

using "heat_exchangers/heater.mso";

FlowSheet Heater_Project

DEVICES

	heater			as Heater;
	streamcold1 	as stream_therm;
	
	
CONNECTIONS

	streamcold1 	to heater.Inlet(1);
	
	
PARAMETERS

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

	PP.LiquidModel  = "RK";
	PP.VapourModel  = "RK";
	
	PP.Components 	= ["water"];
	NComp   		= PP.NumberOfComponents;
	heater.Ninlet   = 1;

SPECIFY

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

	
	
	heater.Outlet.T 	= 363*"K";
	heater.Outlet.P   	= 1 * "atm";

	
	
OPTIONS
  
	mode 	    		= "steady";
	
end

FlowSheet Cooler_Project

DEVICES

	cooler			as Cooler;
	streamcold1 	as stream_therm;
	
	
CONNECTIONS

	streamcold1 	to cooler.Inlet(1);
	
	
PARAMETERS

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

	PP.LiquidModel  = "RK";
	PP.VapourModel  = "RK";
	PP.Components 	= ["water"];
	NComp   		= PP.NumberOfComponents;
	cooler.Ninlet   = 1;

SPECIFY

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

	
	
	cooler.Outlet.T 	= 300*"K";
	cooler.Outlet.P   	= 1 * "atm";
	
	
OPTIONS
  
	mode 	    		= "steady";
	
end