ProppantBaseKernels.hpp

/*
 * ------------------------------------------------------------------------------------------------------------
 * SPDX-License-Identifier: LGPL-2.1-only
 *
 * Copyright (c) 2016-2024 Lawrence Livermore National Security LLC
 * Copyright (c) 2018-2024 TotalEnergies
 * Copyright (c) 2018-2024 The Board of Trustees of the Leland Stanford Junior University
 * Copyright (c) 2023-2024 Chevron
 * Copyright (c) 2019-     GEOS/GEOSX Contributors
 * All rights reserved
 *
 * See top level LICENSE, COPYRIGHT, CONTRIBUTORS, NOTICE, and ACKNOWLEDGEMENTS files for details.
 * ------------------------------------------------------------------------------------------------------------
 */
 
#ifndef GEOS_PHYSICSSOLVERS_FLUIDFLOW_SINGLEPHASE_PROPPANTBASEKERNELS_HPP_
#define GEOS_PHYSICSSOLVERS_FLUIDFLOW_SINGLEPHASE_PROPPANTBASEKERNELS_HPP_
 
#include "common/DataTypes.hpp"
#include "common/GEOS_RAJA_Interface.hpp"
 
namespace geos
{
 
namespace singlePhaseProppantBaseKernels
{
 
/******************************** FluidUpdateKernel ********************************/
 
struct FluidUpdateKernel
{
  template< typename FLUID_WRAPPER >
  static void launch( FLUID_WRAPPER const & fluidWrapper,
                      arrayView1d< real64 const > const & pres,
                      arrayView1d< real64 const > const & proppantConcentration,
                      arrayView2d< real64 const > const & componentConcentration,
                      arrayView2d< real64 const > const & cellBasedFlux,
                      arrayView1d< integer const > const & isProppantBoundaryElement )
  {
    forAll< parallelDevicePolicy<> >( fluidWrapper.numElems(), [=] GEOS_HOST_DEVICE ( localIndex const a )
    {
 
      for( localIndex q = 0; q < fluidWrapper.numGauss(); ++q )
      {
 
        fluidWrapper.update( a, q,
                             pres[a],
                             proppantConcentration[a],
                             componentConcentration[a],
                             LvArray::tensorOps::l2Norm< 3 >( cellBasedFlux[a] ),
                             isProppantBoundaryElement[a] );
      }
    } );
  }
};
 
} // namespace singlePhaseProppantBaseKernels
 
} //namespace geos
 
#endif //GEOS_PHYSICSSOLVERS_FLUIDFLOW_SINGLEPHASE_PROPPANTBASEKERNELS_HPP_