#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Series of Double Pipe Heat Exchanger
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
using "heat_exchangers/DoublePipe.mso";

FlowSheet Double_Pipe_Series
	
DEVICES

	Pipe(2) 		as DoublePipe_LMTD;
	streamhot 	as source;
	streamcold 	as source;

CONNECTIONS

	streamhotOutlet. 	to Pipe(1).Inlet.Hot;
	Pipe(1).Outlet.Hot 	to Pipe(2).Inlet.Hot;
	
	streamcoldOutlet. 	to Pipe(1).Inlet.Cold;
	Pipe(1).Outlet.Cold   to Pipe(2).Inlet.Cold;
	
PARAMETERS

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

SET

PP.LiquidModel     	= "PR";
PP.VapourModel     	= "PR";
PP.Components 		= ["methanol","water"];
NComp   			= PP.NumberOfComponents;

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#   Options
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Pipe.HE.FlowDirection  = "Cocurrent";
Pipe.HE.TurbulentFlow  = "SiederTate";
	
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Double Pipe Geometrical Parameters and Alocation
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Pipe.HE.HotSide  	= 	"Inner";
Pipe.DoInner  		=	0.04826*"m";
Pipe.DiInner		=	0.04089*"m";
Pipe.DiOuter		=	0.07793*"m";
Pipe.Kwall   		= 	0.057 *"kW/m/K";
Pipe.Lpipe			=	3*"m";

SPECIFY
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# 		Hot Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	streamhot.Outlet.F = 100   		* "kmol/h";
	streamhot.Outlet.T = (70+273.15)   * "K";
	streamhot.Outlet.P = 5 			* "bar";
	streamhot.Outlet.z = [1,0];
	
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#    Cold Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	streamcold.Outlet.F = 5   			* "kmol/h";
	streamcold.Outlet.P = 5     		* "bar";
	streamcold.Outlet.T = (25+273.15)	* "K";
    streamcold.Outlet.z = [0,1];
#=====================================================================
# 	Fouling
#=====================================================================
	Pipe.Resistances.Rfi = 0*"m^2*K/kW";
	Pipe.Resistances.Rfo = 0*"m^2*K/kW";
	
OPTIONS

Dynamic	= false;

end