source: mso/eml/streams.mso @ 95

Last change on this file since 95 was 79, checked in by Paula Bettio Staudt, 16 years ago

Updated types and streams file header

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.5 KB
Line 
1#*-------------------------------------------------------------------
2* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
3*
4* This LIBRARY is free software; you can distribute it and/or modify
5* it under the therms of the ALSOC FREE LICENSE as available at
6* http://www.enq.ufrgs.br/alsoc.
7*
8* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
9* from http://www.rps.eng.br Copyright (C) 2002-2004.
10* All rights reserved.
11*
12* EMSO is distributed under the therms of the ALSOC LICENSE as
13* available at http://www.enq.ufrgs.br/alsoc.
14*
15*--------------------------------------------------------------------
16* Model of basic streams
17*----------------------------------------------------------------------
18* Author: Paula B. Staudt and Rafael de P. Soares
19* $Id: streams.mso 79 2006-12-08 19:31:27Z paula $
20*---------------------------------------------------------------------*#
21
22using "types";
23
24Model stream
25        PARAMETERS
26ext     NComp as Integer (Brief = "Number of chemical components", Lower = 1);
27
28        VARIABLES
29        F as flow_mol;
30        T as temperature;
31        P as pressure;
32        z(NComp) as fraction (Brief = "Molar Fraction");
33        h as enth_mol;
34        v as fraction (Brief = "Vapourisation fraction");
35end
36
37Model stream_therm as stream
38        PARAMETERS
39        ext  PP   as CalcObject (Brief = "External Physical Properties");
40       
41        EQUATIONS
42        h = (1-v)*PP.LiquidEnthalpy(T, P, z) + v*PP.VapourEnthalpy(T, P, z);
43end
44
45Model streamTP as stream_therm
46        PARAMETERS
47        ext  PP   as CalcObject (Brief = "External Physical Properties");
48       
49        EQUATIONS
50        v = PP.VapourFraction(T, P, z);
51end
52
Note: See TracBrowser for help on using the repository browser.