#*---------------------------------------------------------------------
* 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.
*
*----------------------------------------------------------------------
* Sample of calculation of a tank volume
*----------------------------------------------------------------------
*
* 	Sample to test calculation routine of tank volume and liquid level
* tank volume pursuant to geometry and orientation.
*
*----------------------------------------------------------------------
* Author: Rodolfo Rodrigues
* $Id$
*--------------------------------------------------------------------*#

using "reactors/vol_tank";


FlowSheet sample_vol_tank
	DEVICES
	Tank  	as vol_tank;
	
	VARIABLES
	frac	as fraction;
	
	EQUATIONS
	frac = Tank.V/Tank.Vt;
	
	SET
#	Tank.Geometry = "flat";
	Tank.Geometry = "spherical";
	
	Tank.Orientation = "vertical";
#	Tank.Orientation = "horizontal";
	
	SPECIFY
	Tank.L 	= 2*'m'; # height
	Tank.D 	= 0.75*'m';	# diameter	
	Tank.Level	= 0.7*'m'; # liquid level
	
	OPTIONS
	Dynamic = false;
end