collision_obj_UpdateGhostObjects Subroutine

private impure subroutine collision_obj_UpdateGhostObjects(this)

Updates ghost objects in preparation for collisions.

Type Bound

collision_obj

Arguments

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

Collision utility

Calls

proc~~collision_obj_updateghostobjects~~CallsGraph proc~collision_obj_updateghostobjects collision_obj%collision_obj_UpdateGhostObjects proc~lagrangian_set_updateghostobjects lagrangian_set%lagrangian_set_UpdateGhostObjects proc~collision_obj_updateghostobjects->proc~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~~collision_obj_updateghostobjects~~CalledByGraph proc~collision_obj_updateghostobjects collision_obj%collision_obj_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 collision_obj_UpdateGhostObjects(this)
      !> Updates ghost objects in preparation for collisions.
      implicit none
      class(collision_obj), intent(inout) :: this                              !! Collision utility
      ! work variables
      real(wp) :: dist

      dist = this%cblock%ngc*maxval(this%cblock%dx)

      if (associated(this%RP)) call this%RP%UpdateGhostObjects(dist)
      if (associated(this%PP)) call this%PP%UpdateGhostObjects(dist)
      if (associated(this%IB)) call this%IB%UpdateGhostObjects(dist)

      return
    end subroutine collision_obj_UpdateGhostObjects