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

FlowSheet Double_Pipe_Multitubular
	
DEVICES
	Pipe	 	as Multitubular_Cocurrent_LMTD;
	streamhot 	as streamTP;
	streamcold 	as streamTP;

PARAMETERS

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

	streamhot 			to Pipe.Unity(1).Inlet.Hot;
	streamcold 			to Pipe.Unity(1).Inlet.Cold;
SET

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

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

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.F = 100   		* "kmol/h";
	streamhot.T = (70+273.15)   * "K";
	streamhot.P = 5 			* "bar";
	streamhot.z = [1,0];
	
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
#    Cold Stream
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

	streamcold.F = 5  			* "kmol/h";
	streamcold.P = 5     		* "bar";
	streamcold.T = (25+273.15)	* "K";
    streamcold.z = [0,1];
	
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# 	Fouling
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Pipe.Unity.Resistances.Rfi = 0*"m^2*K/kW";
Pipe.Unity.Resistances.Rfo = 0*"m^2*K/kW";

OPTIONS

mode 	= "steady";

end