tem_build_faceLists Subroutine

private subroutine tem_build_faceLists(minLevel, maxLevel, nEligibleChildren, faces)

communicated, refined/coarsened and local faces.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: minLevel

Minimum level of your mesh.
integer, intent(in) :: maxLevel

Maximum level of your mesh.
integer, intent(in) :: nEligibleChildren

The number of eligible children for the vertical face dependency
type(tem_face_type), intent(inout) :: faces(minLevel:maxLevel)

The created face descriptor.

Calls

proc~~tem_build_facelists~~CallsGraph proc~tem_build_facelists tem_build_faceLists proc~tem_build_computelist tem_build_computeList proc~tem_build_facelists->proc~tem_build_computelist proc~tem_build_fromfinerlist tem_build_fromFinerList proc~tem_build_facelists->proc~tem_build_fromfinerlist proc~tem_iscomputeface tem_isComputeFace proc~tem_build_computelist->proc~tem_iscomputeface proc~tem_isfromfinerface tem_isFromFinerFace proc~tem_build_fromfinerlist->proc~tem_isfromfinerface proc~tem_abort tem_abort proc~tem_iscomputeface->proc~tem_abort proc~tem_isfromfinerface->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~tem_build_facelists~~CalledByGraph proc~tem_build_facelists tem_build_faceLists proc~tem_build_face_info tem_build_face_info proc~tem_build_face_info->proc~tem_build_facelists

Contents

Source Code

tem_build_faceLists

Source Code

  subroutine tem_build_faceLists( minLevel, maxLevel, nEligibleChildren, faces )
    ! --------------------------------------------------------------------------
    !> Minimum level of your mesh.
    integer, intent(in) :: minLevel
    !> Maximum level of your mesh.
    integer, intent(in) :: maxLevel
    !> The number of eligible children for the vertical face dependency
    integer, intent(in) :: nEligibleChildren
    !> The created face descriptor.
    type(tem_face_type),intent(inout) :: faces(minLevel:maxLevel)
    ! --------------------------------------------------------------------------
    integer :: iLevel
    ! --------------------------------------------------------------------------

    levelLoop: do iLevel = minLevel, maxLevel

      ! Build the list of compute faces for the current level
      call tem_build_computeList( faces(iLevel), nEligibleChildren )

    end do levelLoop

    ! Build the list of from finer faces for the current level
    call tem_build_fromFinerList( minLevel, maxLevel, nEligibleChildren, faces )

  end subroutine tem_build_faceLists