solid_set_SetFilterSize Subroutine

private impure subroutine solid_set_SetFilterSize(this, l_filter)

Changes filter size to desired value.

Type Bound

solid_set

Arguments

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

A collection of solids
real(kind=wp), intent(in) :: l_filter

Filter size

Calls

proc~~solid_set_setfiltersize~~CallsGraph proc~solid_set_setfiltersize solid_set%solid_set_SetFilterSize proc~lagrangian_set_setfiltersize lagrangian_set%lagrangian_set_SetFilterSize proc~solid_set_setfiltersize->proc~lagrangian_set_setfiltersize

Source Code

    impure subroutine solid_set_SetFilterSize(this,l_filter)
      !> Changes filter size to desired value.
      implicit none
      class(solid_set), intent(inout)    :: this                               !! A collection of solids
      real(wp),            intent(in)    :: l_filter                           !! Filter size
      ! Work variable
      integer :: n
      if (allocated(this%p)) then
        do n=1,this%count
          call this%p(n)%SetFilterSize(l_filter)
        end do
      end if
      return
    end subroutine solid_set_SetFilterSize