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

using "heat_exchangers/DoublePipeIncr";
using "streams";

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

	DEVICES
	DoublePipeIncr_1 as DoublePipeIncr;

	SET
	DoublePipeIncr_1.N = 70;
	DoublePipeIncr_1.CalculationApproach = "Simplified";
	DoublePipeIncr_1.Qestimated = 40 * 'kW';
	DoublePipeIncr_1.FlowDirection = "counter";
	DoublePipeIncr_1.InnerLaminarCorrelation = "Schlunder";
	DoublePipeIncr_1.InnerTransitionCorrelation = "Hausen";
	DoublePipeIncr_1.InnerTurbulentCorrelation = "SiederTate";
	DoublePipeIncr_1.OuterLaminarCorrelation = "Schlunder";
	DoublePipeIncr_1.OuterTransitionCorrelation = "Hausen";
	DoublePipeIncr_1.OuterTurbulentCorrelation = "SiederTate";
	DoublePipeIncr_1.DoInner = 42.16 * 'mm';
	DoublePipeIncr_1.DiInner = 35.05 * 'mm';
	DoublePipeIncr_1.DiOuter = 52.50 * 'mm';
	DoublePipeIncr_1.Lpipe = 9 * 'm';
	DoublePipeIncr_1.Kwall = 0.057 * 'kW/m/K';
	DoublePipeIncr_1.Rfi = 0.00018 * 'm^2*K/W';
	DoublePipeIncr_1.Rfo = 0 * 'm^2*K/W';
	DoublePipeIncr_1.Donozzle_Inner = 36.63 * 'mm';
	DoublePipeIncr_1.Dinozzle_Inner = 36.63 * 'mm';
	DoublePipeIncr_1.Donozzle_Outer = 42.72 * 'mm';
	DoublePipeIncr_1.Dinozzle_Outer = 42.72 * 'mm';

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	simple_source_1 as simple_source;

	SET

	SPECIFY
	simple_source_1.MolarComposition(1) = 0;
	simple_source_1.MolarComposition(2) = 1;
	simple_source_1.F = 58.0694 * 'kmol/h';
	simple_source_1.T = 288.71 * 'K';
	simple_source_1.P = 4.08275 * 'atm';

	INITIAL

	GUESS

	DEVICES
	simple_source_2 as simple_source;

	SET

	SPECIFY
	simple_source_2.MolarComposition(1) = 1;
	simple_source_2.MolarComposition(2) = 0;
	simple_source_2.F = 47.2038 * 'kmol/h';
	simple_source_2.T = 338.71 * 'K';
	simple_source_2.P = 4.08275 * 'atm';

	INITIAL

	GUESS

	DEVICES
	simple_sink_1 as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	simple_sink_2 as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	CONNECTIONS
	simple_source_1.Outlet to DoublePipeIncr_1.InletInner;
	simple_source_2.Outlet to DoublePipeIncr_1.InletOuter;
	DoublePipeIncr_1.OutletOuter to simple_sink_1.Inlet;
	DoublePipeIncr_1.OutletInner to simple_sink_2.Inlet;

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