source: trunk/sample/pressure_changers/sample_pump.mso

Last change on this file was 742, checked in by gerson bicca, 15 years ago

added a work stream into pump model

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.5 KB
Line 
1#*----------------------------------------------
2* FlowSheet generated automaticaly by EMSO-GUI
3*----------------------------------------------*#
4
5using "streams";
6using "pressure_changers/pump";
7
8FlowSheet Sample_Pump_Diagram
9        PARAMETERS
10        PP as Plugin(Brief="Physical Properties",
11                Type="PP",
12                Components = ["water"],
13                LiquidModel = "PR",
14                VapourModel = "PR"
15        );
16        NComp as Integer;
17        SET
18        NComp = PP.NumberOfComponents;
19
20        DEVICES
21        suction as simple_source;
22
23        SET
24
25        SPECIFY
26        suction.MolarComposition = 1;
27        suction.F = 1 * 'kmol/h';
28        suction.T = 298 * 'K';
29        suction.P = 2 * 'atm';
30
31        INITIAL
32
33        GUESS
34
35        DEVICES
36        discharge as simple_sink;
37
38        SET
39
40        SPECIFY
41
42        INITIAL
43
44        GUESS
45
46        DEVICES
47        Pump_Operation as centrifugal_pump;
48
49        SET
50        Pump_Operation.PumpEfficiency = 0.10;
51        Pump_Operation.MechanicalEff = 0.95;
52        Pump_Operation.NPSH_Options = "Include Kinetic Head";
53        Pump_Operation.SuctionArea = 0.01 * 'm^2';
54
55        SPECIFY
56        Pump_Operation.Pratio = 7;
57        Pump_Operation.StaticHead = 12 * 'm';
58
59        INITIAL
60
61        GUESS
62
63        DEVICES
64        work_inlet as work_source;
65
66        SET
67
68        SPECIFY
69
70        INITIAL
71
72        GUESS
73
74        CONNECTIONS
75        suction.Outlet to Pump_Operation.Inlet;
76        Pump_Operation.Outlet to discharge.Inlet;
77        work_inlet.Work to Pump_Operation.WorkIn;
78
79        OPTIONS
80        Dynamic = false;
81        Integration = "original";
82        NLASolver(
83                File = "sundials",
84                RelativeAccuracy = 1e-3,
85                AbsoluteAccuracy = 1e-6,
86                MaxIterations = 100
87        );
88        DAESolver(
89                File = "sundials",
90                RelativeAccuracy = 1e-3,
91                AbsoluteAccuracy = 1e-6,
92                EventAccuracy = 1e-2
93        );
94end
Note: See TracBrowser for help on using the repository browser.