source: branches/gui/sample/pressure_changers/sample_pump.mso @ 714

#*-------------------------------------------------------------------
* 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 file for model centrifugal_pump and pump (simplified)
*--------------------------------------------------------------------
* 
* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
*
*----------------------------------------------------------------------
* Author: Estefane S. Horn, Paula B. Staudt
* $Id: sample_pump.mso 585 2008-07-28 23:31:29Z bicca $
*--------------------------------------------------------------------*#
using "pressure_changers/pump";

FlowSheet Pump_P1
        
        DEVICES
        S1 as source;
        P1 as centrifugal_pump;
        
        CONNECTIONS
        S1.Outlet to P1.Inlet;
        
        PARAMETERS 
        PP              as Plugin       (Brief="External Physical Properties",
                Type="PP",
                Components = ["water", "benzene"],
                LiquidModel = "PR",
                VapourModel = "PR"
        );
        Mw              as positive     (Brief = "Molar Mass", Unit = 'kg/kmol');
        NComp   as Integer              (Default= 1);

        SET
        NComp = PP.NumberOfComponents;
        P1.N = 1000                     * 'rpm';                
        P1.Lev = 0                      * 'm';
        P1.Meff = 0.95;
        P1.Eff = 0.72;
        P1.Beta = 425e-6        * '1/K';
        
        S1.ValidPhases = "Vapour-Liquid";
        S1.CompositionBasis = "Molar";
        
        SPECIFY
        S1.F = 1000             * 'kmol/h';
        S1.P = 10                       * 'atm';
        S1.T = 298                      * 'K' ;
        S1.Composition = [1,0]; 
        
        P1.Pdrop = -8           * 'kPa';
        #P1.Outlet.P = 2        * 'atm';
        #P1.BPower = 1          * 'kW';
        
end

FlowSheet pump_Test
        PARAMETERS
        PP              as Plugin       (Brief="External Physical Properties",
                Type="PP",
                Components = ["water", "benzene"],
                LiquidModel = "PR",
                VapourModel = "PR"
        );
        NComp   as Integer;

DEVICES
        p1 as pump;
        s1 as source;

        SET
        NComp = PP.NumberOfComponents;
        
        s1.ValidPhases = "Vapour-Liquid";
        s1.CompositionBasis = "Molar";
        

        
        CONNECTIONS
        s1.Outlet to p1.Inlet;

        SPECIFY
        s1.F = 826 * 'kmol/h';
        s1.P = 549 * 'kPa';
        s1.T = 313 * 'K';
        s1.Composition = 1/NComp;
        #s1.Outlet.v = 0.68;
        
        p1.dP = 90 * 'kPa';

        OPTIONS
        Dynamic = false;
end