#*----------------------------------------------
* FlowSheet generated automaticaly by EMSO-GUI
*----------------------------------------------*#

using "heat_exchangers/DoublePipe";
using "streams";

FlowSheet DPHE_diagram
	PARAMETERS
	PP as Plugin(Brief="Physical Properties",
		Type="PP",
		Components = ["aniline","water"],
		LiquidModel = "PR",
		VapourModel = "PR"
	);
	NComp as Integer;
	SET
	NComp = PP.NumberOfComponents;

	DEVICES
	DoublePipe_LMTD_1 as DoublePipe_LMTD;

	SET
	DoublePipe_LMTD_1.InnerLaminarCorrelation = "Schlunder";
	DoublePipe_LMTD_1.InnerTransitionCorrelation = "Gnielinski";
	DoublePipe_LMTD_1.InnerTurbulentCorrelation = "SiederTate";
	DoublePipe_LMTD_1.OuterLaminarCorrelation = "Schlunder";
	DoublePipe_LMTD_1.OuterTransitionCorrelation = "Gnielinski";
	DoublePipe_LMTD_1.OuterTurbulentCorrelation = "SiederTate";
	DoublePipe_LMTD_1.CalculationApproach = "Simplified";
	DoublePipe_LMTD_1.Qestimated = 1 * 'kW';
	DoublePipe_LMTD_1.Geometry.DoInner = 0.04826 * 'm';
	DoublePipe_LMTD_1.Geometry.DiInner = 0.04089 * 'm';
	DoublePipe_LMTD_1.Geometry.DiOuter = 0.07793 * 'm';
	DoublePipe_LMTD_1.Geometry.Lpipe = 3 * 'm';
	DoublePipe_LMTD_1.Geometry.Kwall = 0.057 * 'kW/m/K';
	DoublePipe_LMTD_1.Geometry.Rfi = 0.0018 * 'm^2*K/kW';
	DoublePipe_LMTD_1.Geometry.Rfo = 0.0021 * 'm^2*K/kW';
	DoublePipe_LMTD_1.FlowDirection = "counter";

	SPECIFY

	INITIAL

	GUESS
	DoublePipe_LMTD_1.OutletInner.T = 377 * 'K';

	DEVICES
	simple_sink_1 as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	simple_sink_2 as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	source_1 as source;

	SET
	source_1.CompositionBasis = "Molar";
	source_1.ValidPhases = "Vapour-Liquid";

	SPECIFY
	source_1.Composition(1) = 0;
	source_1.Composition(2) = 1;
	source_1.F = 3 * 'kmol/h';
	source_1.T = 330 * 'K';
	source_1.P = 5 * 'bar';

	INITIAL

	GUESS

	DEVICES
	source_2 as source;

	SET
	source_2.ValidPhases = "Vapour-Liquid";

	SPECIFY
	source_2.Composition(1) = 1;
	source_2.Composition(2) = 0;
	source_2.F = 1 * 'kmol/h';
	source_2.T = 373.15 * 'K';
	source_2.P = 5.7 * 'bar';

	INITIAL

	GUESS

	CONNECTIONS
	DoublePipe_LMTD_1.OutletOuter to simple_sink_1.Inlet;
	DoublePipe_LMTD_1.OutletInner to simple_sink_2.Inlet;
	source_1.Outlet to DoublePipe_LMTD_1.InletOuter;
	source_2.Outlet to DoublePipe_LMTD_1.InletInner;

	OPTIONS
	Dynamic = false;
	Integration = "original";
	NLASolver(
		File = "nlasolver",
		RelativeAccuracy = 1e-3,
		AbsoluteAccuracy = 1e-6,
		MaxIterations = 100
	);
	DAESolver(
		File = "sundials",
		RelativeAccuracy = 1e-3,
		AbsoluteAccuracy = 1e-6,
		EventAccuracy = 1e-2
	);
end