#*-------------------------------------------------------------------
* 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 model HeatExchanger_LMTD and HeatExchanger_NTU
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Gerson B. Bicca
* $Id: Sample_Simplified.mso 145 2007-01-30 18:20:00Z rafael $
*--------------------------------------------------------------------*#

using "heat_exchangers/HeatExchangerSimplified.mso";

FlowSheet LMTD_Method
DEVICES

	exchanger 	as HeatExchanger_LMTD;
	streamhot 	as source;
	streamcold 	as source;

CONNECTIONS

	streamhot.Outlet 	to exchanger.Inlet.Hot;
	streamcold.Outlet 	to exchanger.Inlet.Cold;
	
PARAMETERS
	PP 			as Plugin 	(File="vrpp");
	NComp 		as Integer;
SET

	PP.LiquidModel     = "RK";
	PP.VapourModel     = "RK";
	PP.Components 		= ["water"];
	NComp   			= PP.NumberOfComponents;
	
#	exchanger.FlowDirection      = "cocurrent";
	exchanger.FlowDirection      = "counter";

SPECIFY

	exchanger.Details.A 				= 65.031*"m^2";
	exchanger.Details.Ud 				= 0.75*"W/(m^2*K)";
	exchanger.Details.Uc 				= 0.75*"W/(m^2*K)";
	exchanger.PressureDrop.Hot.Pdrop 	= 0*"atm";
	exchanger.PressureDrop.Cold.Pdrop   = 0*"atm";
	exchanger.Fc        				= 1;
	
	streamhot.Outlet.F 					= 1000    * "kmol/h";
	streamhot.Outlet.T 					= 450     * "K";
	#streamhot.Outlet.v 					= 1;
	streamhot.Outlet.P 					= 1.5     * "atm";
	streamhot.Outlet.z 					= [1];

	streamcold.Outlet.F  					= 500   * "kmol/h";
	streamcold.Outlet.P  					= 1     * "atm";
	streamcold.Outlet.T  					= 315   * "K";
	#streamcold.Outlet.v  					= 0;
    streamcold.Outlet.z  					= [1];
	
OPTIONS
 Dynamic			  = false;
 RelativeAccuracy = 1e-6;

end

FlowSheet NTU_Method
DEVICES

	exchanger 	as HeatExchanger_NTU;
	streamhot 	as source;
	streamcold 	as source;

CONNECTIONS

	streamhot.Outlet 	to exchanger.Inlet.Hot;
	streamcold.Outlet 	to exchanger.Inlet.Cold;
	
PARAMETERS
	PP 			as Plugin 	(File="vrpp");
	NComp 		as Integer;
SET

	PP.LiquidModel     = "RK";
	PP.VapourModel     = "RK";
	PP.Components 		= ["water"];
	NComp   			= PP.NumberOfComponents;
	
	exchanger.FlowDirection      = "cocurrent";
#	exchanger.HE.FlowDirection      = "Counter";

SPECIFY

	exchanger.Details.A 				= 65.031*"m^2";
	exchanger.Details.Ud 				= 0.75*"W/(m^2*K)";
	exchanger.Details.Uc 				= 0.75*"W/(m^2*K)";
	exchanger.PressureDrop.Hot.Pdrop 	= 0*"atm";
	exchanger.PressureDrop.Cold.Pdrop   = 0*"atm";
	
	streamhot.Outlet .F 					= 1000    * "kmol/h";
	streamhot.Outlet .T 					= 450     * "K";
#streamhot.v 					= 1;
	streamhot.Outlet .P 					= 1.5     * "atm";
	streamhot.Outlet .z 					= [1];

	streamcold.Outlet .F  					= 500   * "kmol/h";
	streamcold.Outlet .P  					= 1     * "atm";
	streamcold.Outlet .T  					= 315   * "K";
#streamcold.v  					= 0;
    streamcold.Outlet .z  					= [1];
	
OPTIONS
Dynamic= false;
end