Cabana_Remove.hpp

Go to the documentation of this file.

/****************************************************************************
 * Copyright (c) 2018-2023 by the Cabana authors                            *
 * All rights reserved.                                                     *
 *                                                                          *
 * This file is part of the Cabana library. Cabana is distributed under a   *
 * BSD 3-clause license. For the licensing terms see the LICENSE file in    *
 * the top-level directory.                                                 *
 *                                                                          *
 * SPDX-License-Identifier: BSD-3-Clause                                    *
 ****************************************************************************/

#ifndef CABANA_REMOVE_HPP
#define CABANA_REMOVE_HPP
 
#include <Cabana_AoSoA.hpp>
#include <Cabana_DeepCopy.hpp>
#include <Cabana_Slice.hpp>
 
#include <Kokkos_Core.hpp>
namespace Cabana
{
//---------------------------------------------------------------------------//
template <class ExecutionSpace, class KeepView, class ParticleAoSoA>
void remove( const ExecutionSpace& exec_space, const int num_keep,
             const KeepView& keep_particle, ParticleAoSoA& particles,
             const int num_particles_ignore = 0,
             const bool shrink_to_fit = true )
{
    using memory_space = typename KeepView::memory_space;
 
    // Determine the empty particle positions in the compaction zone.
    int num_particles = particles.size();
    // This View is either empty indices to be filled or the created particle
    // indices, depending on the ratio of allocated space to the number
    // created.
    Kokkos::View<int*, memory_space> indices(
        Kokkos::ViewAllocateWithoutInitializing( "empty_or_filled" ),
        std::min( num_particles - num_particles_ignore - num_keep, num_keep ) );
 
    int new_num_particles = num_particles_ignore + num_keep;
    // parallel_scan will break if not keeping any particles.
    if ( num_keep > 0 )
    {
        Kokkos::parallel_scan(
            "Cabana::remove::FindEmpty",
            Kokkos::RangePolicy<ExecutionSpace>( exec_space, 0, num_keep ),
            KOKKOS_LAMBDA( const int i, int& count, const bool final_pass ) {
                if ( !keep_particle( i ) )
                {
                    if ( final_pass )
                    {
                        indices( count ) = i + num_particles_ignore;
                    }
                    ++count;
                }
            } );
        Kokkos::fence();
 
        // Compact the list so the it only has real particles.
        Kokkos::parallel_scan(
            "Cabana::remove::RemoveEmpty",
            Kokkos::RangePolicy<ExecutionSpace>( exec_space, new_num_particles,
                                                 num_particles ),
            KOKKOS_LAMBDA( const int i, int& count, const bool final_pass ) {
                if ( keep_particle( i - num_particles_ignore ) )
                {
                    if ( final_pass )
                    {
                        particles.setTuple( indices( count ),
                                            particles.getTuple( i ) );
                    }
                    ++count;
                }
            } );
    }
 
    particles.resize( new_num_particles );
    if ( shrink_to_fit )
        particles.shrinkToFit();
}
 
} // end namespace Cabana
 
#endif // end CABANA_REMOVE_HPP