lagrangian_set_UpdateGhostObjects Subroutine

private impure subroutine lagrangian_set_UpdateGhostObjects(this, dist)

Updates ghost objects. Copies objects that lie "dist"-away from the block's boundaries to neighboring MPI-ranks and designate copies as Ghost Objects (id<0). This subroutine will also update the local count (i.e., this%count_) to (NBR of ACTIVE OBJECTS) + (NBR of GHOST OBJECTS). However, the global count (this%count) will remain unchanged (i.e., equal to the total count of active ojbects only)0

Type Bound

lagrangian_set

Arguments

Type IntentOptional Attributes Name
class(lagrangian_set), intent(inout) :: this

A set of Lagrangian objects
real(kind=wp), intent(in) :: dist

Distance from boundaries

Calls

proc~~lagrangian_set_updateghostobjects~~CallsGraph proc~lagrangian_set_updateghostobjects lagrangian_set%lagrangian_set_UpdateGhostObjects proc~lagrangian_set_recycle lagrangian_set%lagrangian_set_Recycle proc~lagrangian_set_updateghostobjects->proc~lagrangian_set_recycle proc~lagrangian_set_updateghostobjectsdir lagrangian_set_UpdateGhostObjectsDir proc~lagrangian_set_updateghostobjects->proc~lagrangian_set_updateghostobjectsdir proc~lagrangian_set_resize lagrangian_set%lagrangian_set_Resize proc~lagrangian_set_recycle->proc~lagrangian_set_resize mpi_irecv mpi_irecv proc~lagrangian_set_updateghostobjectsdir->mpi_irecv mpi_isend mpi_isend proc~lagrangian_set_updateghostobjectsdir->mpi_isend mpi_wait mpi_wait proc~lagrangian_set_updateghostobjectsdir->mpi_wait mpi_waitall mpi_waitall proc~lagrangian_set_updateghostobjectsdir->mpi_waitall proc~lagrangian_set_updateghostobjectsdir->proc~lagrangian_set_resize

Called by

proc~~lagrangian_set_updateghostobjects~~CalledByGraph proc~lagrangian_set_updateghostobjects lagrangian_set%lagrangian_set_UpdateGhostObjects proc~collision_obj_updateghostobjects collision_obj%collision_obj_UpdateGhostObjects proc~collision_obj_updateghostobjects->proc~lagrangian_set_updateghostobjects proc~cdifs_obj_updatecollisions cdifs_obj_UpdateCollisions proc~cdifs_obj_updatecollisions->proc~collision_obj_updateghostobjects proc~grans_obj_advancesolution_computecollisionforces grans_obj_AdvanceSolution_ComputeCollisionForces proc~grans_obj_advancesolution_computecollisionforces->proc~collision_obj_updateghostobjects proc~cdifs_obj_advancesolutionrp cdifs_obj_AdvanceSolutionRP proc~cdifs_obj_advancesolutionrp->proc~cdifs_obj_updatecollisions proc~grans_obj_advancesolution grans_obj_AdvanceSolution proc~grans_obj_advancesolution->proc~grans_obj_advancesolution_computecollisionforces interface~grans_obj_advancesolution grans_obj%grans_obj_AdvanceSolution interface~grans_obj_advancesolution->proc~grans_obj_advancesolution proc~cdifs_obj_advancesolution cdifs_obj_AdvanceSolution proc~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolutionrp interface~cdifs_obj_advancesolution cdifs_obj%cdifs_obj_AdvanceSolution interface~cdifs_obj_advancesolution->proc~cdifs_obj_advancesolution

Source Code

    impure subroutine lagrangian_set_UpdateGhostObjects(this,dist)
      !> Updates ghost objects.
      ! Copies objects that lie "dist"-away from the
      ! block's boundaries to neighboring MPI-ranks
      ! and designate copies as Ghost Objects (id<0).
      ! This subroutine will also update the local count
      ! (i.e., this%count_) to
      !  (NBR of ACTIVE OBJECTS) + (NBR of GHOST OBJECTS).
      ! However, the global count (this%count) will remain
      ! unchanged (i.e., equal to the total count of active
      ! ojbects only)0
      implicit none
      class(lagrangian_set), intent(inout) :: this                             !! A set of Lagrangian objects
      real(wp),              intent(in)    :: dist                             !! Distance from boundaries

      ! Remove previous ghost and deactivated objects
      call this%Recycle()

      ! Create and send new ghost objects in x,y,z directions
      call lagrangian_set_UpdateGhostObjectsDir(this,dist,1)
      call lagrangian_set_UpdateGhostObjectsDir(this,dist,2)
      call lagrangian_set_UpdateGhostObjectsDir(this,dist,3)

      return
    end subroutine lagrangian_set_UpdateGhostObjects