collision_obj_AddImmersedBoundaries Subroutine

private impure subroutine collision_obj_AddImmersedBoundaries(this, IB)

Adds an Immersed Boundary to list of collisional objects.

Type Bound

collision_obj

Arguments

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

Collision utility
type(marker_set), intent(in), target :: IB

Immersed Boundaries

Called by

proc~~collision_obj_addimmersedboundaries~~CalledByGraph proc~collision_obj_addimmersedboundaries collision_obj%collision_obj_AddImmersedBoundaries none~add~4 collision_obj%Add none~add~4->proc~collision_obj_addimmersedboundaries 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_AddImmersedBoundaries(this,IB)
      !> Adds an Immersed Boundary to list of collisional objects.
      implicit none
      class(collision_obj), intent(inout) :: this                              !! Collision utility
      type(marker_set),     intent(in),    &
                                   target :: IB                                !! Immersed Boundaries

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

      return
    end subroutine collision_obj_AddImmersedBoundaries