Branch data     Line data    Source code

       1                 :            : // *****************************************************************************
       2                 :            : /*!
       3                 :            :   \file      src/PDE/Riemann/AUSMCompFlow.hpp
       4                 :            :   \copyright 2012-2015 J. Bakosi,
       5                 :            :              2016-2018 Los Alamos National Security, LLC.,
       6                 :            :              2019-2021 Triad National Security, LLC.
       7                 :            :              All rights reserved. See the LICENSE file for details.
       8                 :            :   \brief     Advection Upstream Splitting Method (AUSM+) Riemann flux function
       9                 :            :   \details   This file implements the Advection Upstream Splitting Method (AUSM)
      10                 :            :              Riemann solver, with the all-speed corrections.
      11                 :            :              Ref. Liou, M. S. (2006). A sequel to AUSM, Part II: AUSM+-up for
      12                 :            :              all speeds. Journal of computational physics, 214(1), 137-170.
      13                 :            : */
      14                 :            : // *****************************************************************************
      15                 :            : #ifndef AUSMCompFlow_h
      16                 :            : #define AUSMCompFlow_h
      17                 :            : 
      18                 :            : #include <vector>
      19                 :            : 
      20                 :            : #include "Fields.hpp"
      21                 :            : #include "FunctionPrototypes.hpp"
      22                 :            : #include "Inciter/Options/Flux.hpp"
      23                 :            : #include "SplitMachFns.hpp"
      24                 :            : #include "EoS/EOS.hpp"
      25                 :            : 
      26                 :            : namespace inciter {
      27                 :            : 
      28                 :            : //! AUSM+up approximate Riemann solver
      29                 :            : struct AUSMCompFlow {
      30                 :            : 
      31                 :            :   //! AUSM+up approximate Riemann solver flux function
      32                 :            :   //! \param[in] fn Face/Surface normal
      33                 :            :   //! \param[in] u Left and right unknown/state vector
      34                 :            :   //! \return Riemann flux solution according to AUSM+up, appended by Riemann
      35                 :            :   //!   velocities and volume-fractions.
      36                 :            :   //! \note The function signature must follow tk::RiemannFluxFn
      37                 :            :   static tk::RiemannFluxFn::result_type
      38                 :          0 :   flux( const std::vector< EOS >& mat_blk,
      39                 :            :         const std::array< tk::real, 3 >& fn,
      40                 :            :         const std::array< std::vector< tk::real >, 2 >& u,
      41                 :            :         const std::vector< std::array< tk::real, 3 > >& = {} )
      42                 :            :   {
      43                 :          0 :     auto k_p = g_inputdeck.get< tag::lowspeed_kp >();
      44                 :            : 
      45                 :          0 :     auto ncomp = u[0].size();
      46                 :          0 :     std::vector< tk::real > flx( ncomp, 0 );
      47                 :            : 
      48                 :            :     // Primitive variables
      49                 :          0 :     auto rhol = u[0][0];
      50                 :          0 :     auto ul = u[0][1]/rhol;
      51                 :          0 :     auto vl = u[0][2]/rhol;
      52                 :          0 :     auto wl = u[0][3]/rhol;
      53                 :          0 :     auto rhor = u[1][0];
      54                 :          0 :     auto ur = u[1][1]/rhor;
      55                 :          0 :     auto vr = u[1][2]/rhor;
      56                 :          0 :     auto wr = u[1][3]/rhor;
      57                 :            : 
      58                 :          0 :     tk::real pl(0.0), pr(0.0), amatl(0.0), amatr(0.0);
      59                 :            : 
      60         [ -  - ]:          0 :     pl = mat_blk[0].compute< EOS::pressure >(rhol, ul, vl, wl, u[0][4]);
      61         [ -  - ]:          0 :     amatl = mat_blk[0].compute< EOS::soundspeed >( rhol, pl );
      62                 :            : 
      63         [ -  - ]:          0 :     pr = mat_blk[0].compute< EOS::pressure >(rhor, ur, vr, wr, u[1][4]);
      64         [ -  - ]:          0 :     amatr = mat_blk[0].compute< EOS::soundspeed >( rhor, pr );
      65                 :            : 
      66                 :            :     // Average states for mixture speed of sound
      67                 :          0 :     auto ac12 = 0.5*(amatl+amatr);
      68                 :          0 :     auto rho12 = 0.5*(rhol+rhor);
      69                 :            : 
      70                 :            :     // Face-normal velocities from advective velocities
      71                 :          0 :     auto vnl = ul*fn[0] + vl*fn[1] + wl*fn[2];
      72                 :          0 :     auto vnr = ur*fn[0] + vr*fn[1] + wr*fn[2];
      73                 :            : 
      74                 :            :     // Mach numbers
      75                 :          0 :     auto ml = vnl/ac12;
      76                 :          0 :     auto mr = vnr/ac12;
      77                 :            : 
      78                 :            :     // All-speed parameters
      79                 :            :     // These parameters control the amount of all-speed diffusion necessary for
      80                 :            :     // low-Mach flows. Setting k_u and k_p to zero does not add any all-speed
      81                 :            :     // diffusion, whereas setting k_u and k_p to 1 adds maximum recommended
      82                 :            :     // all-speed diffusion. See "Liou, M. S. (2006). A sequel to AUSM, Part II:
      83                 :            :     // AUSM+-up for all speeds. Journal of computational physics, 214(1),
      84                 :            :     // 137-170" for more mathematical explanation. k_u is the velocity diffusion
      85                 :            :     // term and k_p is the pressure diffusion term. These two terms reduce
      86                 :            :     // pressure-velocity decoupling (chequerboarding/odd-even oscillations).
      87                 :            :     tk::real k_u(1.0), f_a(1.0);
      88                 :            : 
      89                 :            :     // Split Mach polynomials
      90                 :          0 :     auto msl = splitmach_ausm( f_a, ml );
      91                 :          0 :     auto msr = splitmach_ausm( f_a, mr );
      92                 :            : 
      93                 :            :     // Riemann Mach number
      94                 :          0 :     auto m0 = 1.0 - (0.5*(vnl*vnl + vnr*vnr)/(ac12*ac12));
      95         [ -  - ]:          0 :     auto mp = -k_p* std::max(m0, 0.0) * (pr-pl) / (f_a*rho12*ac12*ac12);
      96                 :          0 :     auto m12 = msl[0] + msr[1] + mp;
      97                 :          0 :     auto vriem = ac12 * m12;
      98                 :            : 
      99                 :            :     // Riemann pressure
     100                 :          0 :     auto pu = -k_u* msl[2] * msr[3] * f_a * rho12 * ac12 * (vnr-vnl);
     101                 :          0 :     auto p12 = msl[2]*pl + msr[3]*pr + pu;
     102                 :            : 
     103                 :            :     // Flux vector splitting
     104                 :          0 :     auto l_plus = 0.5 * (vriem + std::fabs(vriem));
     105                 :          0 :     auto l_minus = 0.5 * (vriem - std::fabs(vriem));
     106                 :            : 
     107                 :            :     // Conservative fluxes
     108                 :          0 :     flx[0] = l_plus*u[0][0] + l_minus*u[1][0];
     109                 :            : 
     110                 :          0 :     flx[1] = l_plus*u[0][1] + l_minus*u[1][1] + p12*fn[0];
     111                 :          0 :     flx[2] = l_plus*u[0][2] + l_minus*u[1][2] + p12*fn[1];
     112                 :          0 :     flx[3] = l_plus*u[0][3] + l_minus*u[1][3] + p12*fn[2];
     113                 :            : 
     114                 :          0 :     flx[4] = l_plus*(u[0][4] + pl) + l_minus*(u[1][4] + pr);
     115                 :            : 
     116                 :          0 :     return flx;
     117                 :            :   }
     118                 :            : 
     119                 :            :   //! Flux type accessor
     120                 :            :   //! \return Flux type
     121                 :            :   static ctr::FluxType type() noexcept { return ctr::FluxType::AUSM; }
     122                 :            : };
     123                 :            : 
     124                 :            : } // inciter::
     125                 :            : 
     126                 :            : #endif // AUSMCompFlow_h