ReportMetrics_MultiSetModel3D_t Subroutine

  1. SELF_MultiSetModel3D_t.f90
  2. SELF_MultiSetModel3D_t
  3. ReportMetrics_MultiSetModel3D_t

public subroutine ReportMetrics_MultiSetModel3D_t(this)

Report each set's metrics. Rank-local; sets with no elements on this rank are skipped, since their min and max are undefined.

Arguments

TypeIntentOptionalAttributesName
class(MultiSetModel3D_t), intent(inout) :: this

Contents

Source Code

ReportMetrics_MultiSetModel3D_t

Source Code

  subroutine ReportMetrics_MultiSetModel3D_t(this)
    !! Report each set's metrics. Rank-local; sets with no elements on this rank are
    !! skipped, since their min and max are undefined.
    implicit none
    class(MultiSetModel3D_t),intent(inout) :: this
    ! Local
    integer :: k

    do k = 1,this%nSets
      if(this%sets(k)%mesh%nElem > 0) call this%sets(k)%model%ReportMetrics()
    enddo

  endsubroutine ReportMetrics_MultiSetModel3D_t