source: branches/newlanguage/sample/heat_exchangers/samples2.mso @ 131

Last change on this file since 131 was 100, checked in by gerson bicca, 16 years ago

updated

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.8 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* Sample file for a TEMA E Shell Heat Exchanger - Shortcut LMTD Method
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Gerson B. Bicca
23* $Id: samples2.mso 100 2007-01-09 14:15:56Z bicca $
24*--------------------------------------------------------------------*#
25using "heat_exchangers/HeatExchangerSimplified";
26
27 FlowSheet E_Shell
28       
29DEVICES
30#===============================================================
31#   TEMA E Shell Heat Exchanger - Shortcut LMTD Method
32#===============================================================
33
34        exchanger       as E_Shell_LMTD;
35        streamhot       as stream_therm;
36        streamcold      as stream_therm;
37
38CONNECTIONS
39
40        streamhot       to exchanger.Inlet.Hot;
41        streamcold      to exchanger.Inlet.Cold;
42       
43PARAMETERS
44
45        PP              as CalcObject   (File="vrpp");
46        NComp   as Integer;
47       
48SET
49#===============================================================
50#   Components - State Equation
51#===============================================================
52       
53        PP.LiquidModel          = "RK";
54        PP.VapourModel          = "RK";
55        PP.Components           = ["water"];
56        NComp                           = PP.NumberOfComponents;
57       
58SPECIFY
59#============================================
60#   Hot Streams
61#============================================
62        streamhot.F                                     = 100    * "kmol/h";
63        streamhot.T                                     = 450     * "K";
64        streamhot.v                                     = 1;
65        streamhot.P                                     = 1.5     * "atm";
66        streamhot.z                                     = [1];
67
68#============================================
69#   Cold Streams
70#============================================   
71        streamcold.F                                    = 50   * "kmol/h";
72        streamcold.P                                    = 1     * "atm";
73        streamcold.T                                    = 350   * "K";
74        streamcold.v                                    = 0;
75    streamcold.z                                        = [1];
76       
77#============================================
78#   Required Details
79#============================================
80        exchanger.Details.A                     = 65    *"m^2";
81        exchanger.Details.Ud                = 0.74  *"W/m^2/K";
82        exchanger.Details.Uc                = 0.74  *"W/m^2/K";
83        exchanger.PressureDrop.Hot.Pdrop        = 0   * "atm";
84        exchanger.PressureDrop.Cold.Pdrop       = 0   * "atm";
85OPTIONS
86#============================================
87#   Simulation Options
88#============================================
89 mode                   = "steady";
90
91end
Note: See TracBrowser for help on using the repository browser.