collision_obj_AddResolvedParticles Subroutine

private impure subroutine collision_obj_AddResolvedParticles(this, RP)

Adds Resolved Particles to list of collisional objects.

Type Bound

collision_obj

Arguments

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

Collision utility
type(ResPart_set), intent(in), target :: RP

Resolved Particles

Called by

proc~~collision_obj_addresolvedparticles~~CalledByGraph proc~collision_obj_addresolvedparticles collision_obj%collision_obj_AddResolvedParticles none~add~4 collision_obj%Add none~add~4->proc~collision_obj_addresolvedparticles proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->none~add~4 proc~grans_obj_preparesolvercollision grans_obj_PrepareSolverCollision proc~grans_obj_preparesolvercollision->none~add~4 interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolvercollision interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    impure subroutine collision_obj_AddResolvedParticles(this,RP)
      !> Adds Resolved Particles to list of collisional objects.
      implicit none
      class(collision_obj), intent(inout) :: this                              !! Collision utility
      type(ResPart_set),    intent(in),    &
                                   target :: RP                                !! Resolved Particles

      if (.not.associated(this%RP)) then
        this%RP => RP
      else
        call this%parallel%Stop("Collision object already contains an RP object")
      end if

      return
    end subroutine collision_obj_AddResolvedParticles