#*-------------------------------------------------------------------
* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
*
* This LIBRARY is free software; you can distribute it and/or modify
* it under the therms of the ALSOC FREE LICENSE as available at
* http://www.enq.ufrgs.br/alsoc.
*
* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
* from http://www.rps.eng.br Copyright (C) 2002-2004.
* All rights reserved.
*
* EMSO is distributed under the therms of the ALSOC LICENSE as
* available at http://www.enq.ufrgs.br/alsoc.
*
*--------------------------------------------------------------------
* Model of basic streams
*----------------------------------------------------------------------
* Author: Paula B. Staudt and Rafael de P. Soares
* $Id: streams.mso 79 2006-12-08 19:31:27Z paula $
*---------------------------------------------------------------------*#

using "types";

Model stream
	PARAMETERS
ext	NComp as Integer (Brief = "Number of chemical components", Lower = 1); 

	VARIABLES
	F as flow_mol;
	T as temperature;
	P as pressure;
	z(NComp) as fraction (Brief = "Molar Fraction");
	h as enth_mol;
	v as fraction (Brief = "Vapourisation fraction");
end

Model stream_therm as stream
	PARAMETERS
	ext  PP   as CalcObject (Brief = "External Physical Properties");
	
	EQUATIONS
	h = (1-v)*PP.LiquidEnthalpy(T, P, z) + v*PP.VapourEnthalpy(T, P, z);
end

Model streamTP as stream_therm
	PARAMETERS
	ext  PP   as CalcObject (Brief = "External Physical Properties");
	
	EQUATIONS
	v = PP.VapourFraction(T, P, z);
end