grainInteraction.cpp

Go to the documentation of this file.

/*------------------------------- phasicFlow ---------------------------------
      O        C enter of
     O O       E ngineering and
    O   O      M ultiscale modeling of
   OOOOOOO     F luid flow       
------------------------------------------------------------------------------
  Copyright (C): www.cemf.ir
  email: hamid.r.norouzi AT gmail.com
------------------------------------------------------------------------------  
Licence:
  This file is part of phasicFlow code. It is a free software for simulating 
  granular and multiphase flows. You can redistribute it and/or modify it under
  the terms of GNU General Public License v3 or any other later versions. 
 
  phasicFlow is distributed to help others in their research in the field of 
  granular and multiphase flows, but WITHOUT ANY WARRANTY; without even the
  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
-----------------------------------------------------------------------------*/
 
template<typename cFM,typename gMM,template <class, class, class> class cLT>
bool pFlow::grainInteraction<cFM,gMM, cLT>::createGrainInteraction()
{
    
    realVector_D rhoD("densities", this->densities());
 
    auto modelDict = this->subDict("model");
 
    forceModel_ = makeUnique<ContactForceModel>(
        this->numMaterials(),
        rhoD.deviceView(),
        modelDict );
 
 
    uint32 nPrtcl = grnParticles_.size();
 
    contactSearch_ = contactSearch::create(
    subDict("contactSearch"),
    grnParticles_.extendedDomain().domainBox(),
    grnParticles_,
    geometryMotion_,
    timers());
 
    ppContactList_ = makeUnique<ContactListType>(nPrtcl+1);
    
    pwContactList_ = makeUnique<ContactListType>(nPrtcl/5+1);
 
    return true;
}
 
 
template<typename cFM,typename gMM,template <class, class, class> class cLT>
bool pFlow::grainInteraction<cFM,gMM, cLT>::grainGrainInteraction()
{
    auto lastItem = ppContactList_().loopCount();
 
    // create the kernel functor 
    pFlow::grainInteractionKernels::ppInteractionFunctor 
        ppInteraction(
            this->dt(),
            this->forceModel_(),
            ppContactList_(), // to be read
            grnParticles_.diameter().deviceViewAll(),
            grnParticles_.coarseGrainFactor().deviceViewAll(),
            grnParticles_.propertyId().deviceViewAll(),
            grnParticles_.pointPosition().deviceViewAll(),
            grnParticles_.velocity().deviceViewAll(),
            grnParticles_.rVelocity().deviceViewAll(),
            grnParticles_.contactForce().deviceViewAll(),
            grnParticles_.contactTorque().deviceViewAll()
            );
    
    Kokkos::parallel_for(
        "ppInteraction",
        rpPPInteraction(0,lastItem),
        ppInteraction
        );
 
    Kokkos::fence();    
 
    return true;
}
 
 
template<typename cFM,typename gMM,template <class, class, class> class cLT>
bool pFlow::grainInteraction<cFM,gMM, cLT>::grainWallInteraction()
{
    
    uint32 lastItem = pwContactList_().loopCount();
    uint32 iter = this->currentIter();
    real t = this->currentTime();
    real dt = this->dt();
 
    pFlow::grainInteractionKernels::pwInteractionFunctor
        pwInteraction(
            dt,
            this->forceModel_(),
            pwContactList_(),
            geometryMotion_.getTriangleAccessor(), 
            geometryMotion_.getModel(iter, t, dt) , 
            grnParticles_.diameter().deviceViewAll() ,
            grnParticles_.coarseGrainFactor().deviceViewAll() ,
            grnParticles_.propertyId().deviceViewAll(),
            grnParticles_.pointPosition().deviceViewAll(),
            grnParticles_.velocity().deviceViewAll(),
            grnParticles_.rVelocity().deviceViewAll() ,
            grnParticles_.contactForce().deviceViewAll(),
            grnParticles_.contactTorque().deviceViewAll() ,
            geometryMotion_.triMotionIndex().deviceViewAll(),
            geometryMotion_.propertyId().deviceViewAll(),
            geometryMotion_.contactForceWall().deviceViewAll()
        );
 
    Kokkos::parallel_for(
        "",
        rpPWInteraction(0,lastItem),
        pwInteraction
        );
 
    
    Kokkos::fence();
 
    return true;
}
 
 
template<typename cFM,typename gMM,template <class, class, class> class cLT>
pFlow::grainInteraction<cFM,gMM, cLT>::grainInteraction
(
    systemControl& control,
    const particles& prtcl,
    const geometry& geom
)
:
    interaction(control, prtcl, geom),
    geometryMotion_(dynamic_cast<const GeometryMotionModel&>(geom)),
    grnParticles_(dynamic_cast<const grainParticles&>(prtcl)),
    boundaryInteraction_(grnParticles_,geometryMotion_),
    ppInteractionTimer_("grain-graine interaction (internal)", &this->timers()),
    pwInteractionTimer_("grain-wall interaction (internal)", &this->timers()),
    boundaryInteractionTimer_("grain-grain interaction (boundary)",&this->timers()),
    contactListMangementTimer_("list management (interal)", &this->timers()),
    contactListMangementBoundaryTimer_("list management (boundary)", &this->timers())
{
    
    if(!createGrainInteraction())
    {
        fatalExit;
    }
 
    for(uint32 i=0; i<6; i++)
    {
        activeBoundaries_[i] = boundaryInteraction_[i].ppPairsAllocated();
    }
}
 
template<typename cFM,typename gMM,template <class, class, class> class cLT>
bool pFlow::grainInteraction<cFM,gMM, cLT>::beforeIteration()
{
    return true;
}
 
template<typename cFM,typename gMM,template <class, class, class> class cLT>
bool pFlow::grainInteraction<cFM,gMM, cLT>::iterate()
{
    
    timeInfo ti = this->TimeInfo();
    auto iter = ti.iter();
    auto t = ti.t();
    auto dt = ti.dt();
 
    auto& contactSearchRef = contactSearch_();
 
    bool broadSearch = contactSearchRef.enterBroadSearch(ti);
    bool broadSearchBoundary = contactSearchRef.enterBroadSearchBoundary(ti);
 
    grnParticles_.diameter().updateBoundaries(DataDirection::SlaveToMaster);
    grnParticles_.velocity().updateBoundaries(DataDirection::SlaveToMaster);
    grnParticles_.rVelocity().updateBoundaries(DataDirection::SlaveToMaster);
    grnParticles_.propertyId().updateBoundaries(DataDirection::SlaveToMaster);
    
    if(broadSearch)
    {
        contactListMangementTimer_.start();
        ComputationTimer().start();
            ppContactList_().beforeBroadSearch();
            pwContactList_().beforeBroadSearch();
        ComputationTimer().end();
        contactListMangementTimer_.pause();
    } 
 
    if(broadSearchBoundary)
    {
        contactListMangementBoundaryTimer_.start();
        ComputationTimer().start();
        for(uint32 i=0; i<6u; i++)
        {
            if(activeBoundaries_[i])
            {
                auto& BI = boundaryInteraction_[i];
                BI.ppPairs().beforeBroadSearch();
                BI.pwPairs().beforeBroadSearch();
            } 
        }
        ComputationTimer().end();
        contactListMangementBoundaryTimer_.pause(); 
    }
    
    if( grnParticles_.numActive()<=0)return true;
    
    ComputationTimer().start();
    if( !contactSearchRef.broadSearch(
            ti,     
            ppContactList_(),
            pwContactList_()) )
    {
        fatalErrorInFunction<<
        "unable to perform broadSearch.\n";
        fatalExit;
    }
    
    for(uint32 i=0; i<6u; i++)
    {
        if(activeBoundaries_[i])
        {
            auto& BI = boundaryInteraction_[i];
            if(!contactSearchRef.boundaryBroadSearch(
                i,
                ti,
                BI.ppPairs(),
                BI.pwPairs())
            )
            {
                fatalErrorInFunction<<
                "failed to perform broadSearch for boundary index "<<i<<endl;
                return false;
            }
        }
    }
    ComputationTimer().end();
    
    if(broadSearch && contactSearchRef.performedSearch())
    {
        contactListMangementTimer_.resume();
        ComputationTimer().start();
            ppContactList_().afterBroadSearch();
            pwContactList_().afterBroadSearch();
        ComputationTimer().end();
        contactListMangementTimer_.end();
    }
 
    if(broadSearchBoundary && contactSearchRef.performedSearchBoundary())
    {
        contactListMangementBoundaryTimer_.resume();
        ComputationTimer().start();
        for(uint32 i=0; i<6u; i++)
        {
            if(activeBoundaries_[i])
            {
                auto& BI = boundaryInteraction_[i];
                BI.ppPairs().afterBroadSearch();
                BI.pwPairs().afterBroadSearch();
            }
        }
        ComputationTimer().end();
        contactListMangementBoundaryTimer_.end();
    }
    
    auto requireStep = boundariesMask<6>(true);
    const auto& cfModel = this->forceModel_();
    uint32 step=1;
    boundaryInteractionTimer_.start();
    ComputationTimer().start();
    while(requireStep.anyElement(true) && step <= 10)
    {
        for(uint32 i=0; i<6u; i++)
        {
            if(requireStep[i] )
            {
                requireStep[i] = boundaryInteraction_[i].grainGrainInteraction(
                    dt, 
                    this->forceModel_(),
                    step
                );
            }       
        }
        step++;
    }
    ComputationTimer().end();
    boundaryInteractionTimer_.pause();
    
 
    ppInteractionTimer_.start();
    ComputationTimer().start();
        grainGrainInteraction();
    ComputationTimer().end();
    ppInteractionTimer_.end();
 
    
    pwInteractionTimer_.start();
    ComputationTimer().start();
        grainWallInteraction();
    ComputationTimer().start();
    pwInteractionTimer_.end();
 
    {
    boundaryInteractionTimer_.resume();
    ComputationTimer().start();
    auto requireStep = boundariesMask<6>(true);
 
    uint32 step = 11;
    const auto& cfModel = this->forceModel_();
    while( requireStep.anyElement(true) && step < 20 )
    {
        for(uint32 i=0; i<6u; i++)
        {
            if(requireStep[i])
            {
                requireStep[i] = boundaryInteraction_[i].grainGrainInteraction(
                    dt, 
                    cfModel,
                    step
                );
            }       
        }
        step++;
    }
    ComputationTimer().end();
    boundaryInteractionTimer_.end();
    }
    
    return true;
}
 
template<typename cFM,typename gMM,template <class, class, class> class cLT>
bool pFlow::grainInteraction<cFM,gMM, cLT>::afterIteration()
{
    return true;
}
 
template<typename cFM,typename gMM,template <class, class, class> class cLT>
bool pFlow::grainInteraction<cFM,gMM, cLT>::hearChanges
(
    real t,
    real dt,
    uint32 iter,
    const message& msg, 
    const anyList& varList
)
{
    if(msg.equivalentTo(message::ITEM_REARRANGE))
    {
        notImplementedFunction;
    }
    return true;
}