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

using "heat_exchangers/HeatExchangerDetailed";
using "streams";

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

	DEVICES
	Sthe as ShellandTubes_LMTD;

	SET
	Sthe.ShellType = "Eshell";
	Sthe.Pattern = "Triangle";
	Sthe.LaminarCorrelation = "Schlunder";
	Sthe.TransitionCorrelation = "Gnielinski";
	Sthe.TurbulentCorrelation = "SiederTate";
	Sthe.Tubes.NumberOfTubes = 500;
	Sthe.Tubes.Tubepasses = 2;
	Sthe.Tubes.TubeLength = 5.5 * 'm';
	Sthe.Tubes.TubePitch = 0.0254 * 'm';
	Sthe.Tubes.Kwall = 0.057 * 'kW/m/K';
	Sthe.Tubes.TubeOD = 0.01587 * 'm';
	Sthe.Tubes.TubeID = 0.013395 * 'm';
	Sthe.Tubes.Fouling = 0 * 'm^2*K/kW';
	Sthe.Tubes.InletNozzleID = 203 * 'mm';
	Sthe.Tubes.OutletNozzleID = 203 * 'mm';
	Sthe.Shell.ShellID = 0.75 * 'm';
	Sthe.Shell.Fouling = 0 * 'm^2*K/kW';
	Sthe.Shell.InletNozzleID = 193 * 'mm';
	Sthe.Shell.OutletNozzleID = 193 * 'mm';
	Sthe.Baffles.BaffleCut = 25;
	Sthe.Baffles.NumberOfBaffles = 6;
	Sthe.Clearances.SealStrip = 1;
	Sthe.Clearances.Hinozzle_Shell = 0.02155 * 'm';
	Sthe.Clearances.Honozzle_Shell = 0.0225 * 'm';
	Sthe.Clearances.BundleToShell = 0.043 * 'm';
	Sthe.Clearances.BaffleToShell = 0.00039 * 'm';
	Sthe.Clearances.TubeToBaffle = 0.0047 * 'm';
	Sthe.LMTDcorrection = "User Specified";
	Sthe.FLMTDcorrection = 0.85;

	SPECIFY
	Sthe.Baffles.Inlet_Spacing = 870 * 'mm';
	Sthe.Baffles.Central_Spacing = 622 * 'mm';

	INITIAL

	GUESS

	DEVICES
	Hot_in as simple_source;

	SET

	SPECIFY
	Hot_in.MolarComposition(1) = 1;
	Hot_in.MolarComposition(2) = 0;
	Hot_in.F = 40 * 'mol/h';
	Hot_in.T = 393 * 'K';
	Hot_in.P = 740 * 'kPa';

	INITIAL

	GUESS

	DEVICES
	Cold_in as simple_source;

	SET

	SPECIFY
	Cold_in.MolarComposition(1) = 0;
	Cold_in.MolarComposition(2) = 1;
	Cold_in.F = 122 * 'mol/h';
	Cold_in.T = 333.15 * 'K';
	Cold_in.P = 2210 * 'kPa';

	INITIAL

	GUESS

	DEVICES
	Hot_out as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	DEVICES
	Cold_out as simple_sink;

	SET

	SPECIFY

	INITIAL

	GUESS

	CONNECTIONS
	Hot_in.Outlet to Sthe.InletShell;
	Cold_in.Outlet to Sthe.InletTube;
	Sthe.OutletShell to Hot_out.Inlet;
	Sthe.OutletTube to Cold_out.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