#*
 * EMSO template file for new flowsheets.
 *
 * The user should edit the contents of this file in order
 * to develop a new flowsheet.
 *
 * $Id: flowsheet.mso 33 2006-09-23 00:28:32Z arge $
 *#

#*
 * The using command makes available entities declared in another files.
 *
 * With this command the user can make use of the EML models
 *#
using "stage_separators/flash";

#*
 * A new flowsheet is declared with the FlowSheet keyword and a name.
 * A flowhseet can have several sections presented above:
 *#
FlowSheet MyFlowSheet
	#*
	 * In the PARAMETERS section we can define the constants of the
	 * FlowSheet. When the model requires thermodynamic calculations
	 * we should create an special parameter called PP and select
	 * the model and components of the mixture, as follows:
	 *#
	PARAMETERS
	PP	as CalcObject(Brief="Physical Properties", File="vrpp");
	NComp	as Integer;
	SET
	PP.Components = ["1,3-butadiene", "isobutene", "n-pentane", "1-pentene"];
	PP.LiquidModel = "PR";
	PP.VapourModel = "PR";
	NComp = PP.NumberOfComponents;
	
	#*
	 * In the DEVICES section the components of the process are declared.
	 * Each device is based in a previously defined mathematical model, coming
	 * from the EML or developed by the user.
	 *#
	DEVICES
	STR101   as stream_therm;
	FLASH101 as flash;

	#*
	 * Once the devices of the process were declared we can connect them
	 * in the CONNECTIONS section
	 *#
	CONNECTIONS
	STR101     to   FLASH101.Inlet;

	#*
	 * In order to simulate the process the user should specify some variables
	 *#
	SPECIFY
	STR101.F = 496.3 * "kmol/h";
	STR101.T = 338 * "K";
	STR101.P = 507.1 * "kPa";
	STR101.v = 0.1380;
	STR101.z = [0.2379, 0.3082, 0.09959, 0.35431];

	FLASH101.OutletV.F = 68.5 * "kmol/h";
	FLASH101.OutletL.F = 400*sqrt(FLASH101.Level) * "kmol/h";
	FLASH101.Q = 1 * "kJ/h";
	
	#*
	 * We can adjust the parameters of the devices in any point after
	 * its declaration.
	 *#
	SET
	FLASH101.V = 2000 * "m^3";
	FLASH101.Across = 1 * "m^2";	 
	 
	#*
	 * Besides the usual specifications, dynamic models require the specification
	 * of initial conditions. 
	 *#
	INITIAL
	FLASH101.OutletL.T = 330 *"K";
	FLASH101.Level = 1 * "m";
	FLASH101.OutletL.z(1) = 0.1;
	FLASH101.OutletL.z(2) = 0.1;
	FLASH101.OutletL.z(3) = 0.1;
end
# The end keyword informs that the flowsheet declaration have ended.