CountFlagged_RefinementIndicator2D_t Function

  1. SELF_RefinementIndicator_2D_t.f90
  2. SELF_RefinementIndicator_2D_t
  3. CountFlagged_RefinementIndicator2D_t

public function CountFlagged_RefinementIndicator2D_t(this, flagValue) result(n)

Count the rank-local elements currently carrying the requested flag value (SELF_AMR_REFINE / SELF_AMR_KEEP / SELF_AMR_COARSEN). Provided as a convenience for drivers and tests; a global count across MPI ranks is the caller's responsibility.

Arguments

TypeIntentOptionalAttributesName
class(RefinementIndicator2D_t), intent(in) :: this
integer, intent(in) :: flagValue

Return Value integer


Contents

Source Code

CountFlagged_RefinementIndicator2D_t

Source Code

  function CountFlagged_RefinementIndicator2D_t(this,flagValue) result(n)
    !! Count the rank-local elements currently carrying the requested flag value
    !! (SELF_AMR_REFINE / SELF_AMR_KEEP / SELF_AMR_COARSEN). Provided as a convenience for
    !! drivers and tests; a global count across MPI ranks is the caller's responsibility.
    implicit none
    class(RefinementIndicator2D_t),intent(in) :: this
    integer,intent(in) :: flagValue
    integer :: n
    ! Local
    integer :: iel

    n = 0
    do iel = 1,this%nElem
      if(this%flag(iel) == flagValue) n = n+1
    enddo

  endfunction CountFlagged_RefinementIndicator2D_t