tem_collect_faces Subroutine

private subroutine tem_collect_faces(levelDesc, minLevel, maxLevel, faces)

element that exists in the level descriptor.

Arguments

Type IntentOptional Attributes Name
type(tem_levelDesc_type), intent(in) :: levelDesc(1:3,minLevel:maxLevel)

Level descriptor for each spatial direction and each level of your mesh.
integer, intent(in) :: minLevel

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

Maximum level of your mesh.
type(tem_face_type), intent(inout) :: faces(minLevel:maxLevel)

Face descriptor where the faces will be appended to.

Calls

proc~~tem_collect_faces~~CallsGraph proc~tem_collect_faces tem_collect_faces proc~tem_get_faces tem_get_faces proc~tem_collect_faces->proc~tem_get_faces proc~tem_addface tem_addFace proc~tem_get_faces->proc~tem_addface proc~tem_get_elemprp tem_get_elemPrp proc~tem_get_faces->proc~tem_get_elemprp proc~tem_get_faceneigh tem_get_faceNeigh proc~tem_get_faces->proc~tem_get_faceneigh proc~tem_init_facelist tem_init_faceList proc~tem_get_faces->proc~tem_init_facelist interface~append~24 append proc~tem_addface->interface~append~24 proc~tem_abort tem_abort proc~tem_get_elemprp->proc~tem_abort proc~tem_get_faceneigh->proc~tem_abort proc~tem_coordofid tem_CoordOfId proc~tem_get_faceneigh->proc~tem_coordofid proc~tem_idofcoord tem_IdOfCoord proc~tem_get_faceneigh->proc~tem_idofcoord proc~tem_treeidintotal tem_treeIDinTotal proc~tem_get_faceneigh->proc~tem_treeidintotal interface~init~24 init proc~tem_init_facelist->interface~init~24 proc~append_arrayga2d_real append_arrayga2d_real interface~append~24->proc~append_arrayga2d_real proc~append_singlega2d_real append_singlega2d_real interface~append~24->proc~append_singlega2d_real proc~init_ga2d_real init_ga2d_real interface~init~24->proc~init_ga2d_real mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~tem_levelof tem_LevelOf proc~tem_coordofid->proc~tem_levelof proc~tem_etypeofid tem_eTypeOfId proc~tem_treeidintotal->proc~tem_etypeofid tem_positioninsorted tem_positioninsorted proc~tem_treeidintotal->tem_positioninsorted

Called by

proc~~tem_collect_faces~~CalledByGraph proc~tem_collect_faces tem_collect_faces proc~tem_build_face_info tem_build_face_info proc~tem_build_face_info->proc~tem_collect_faces

Source Code

  subroutine tem_collect_faces(levelDesc, minLevel, maxLevel, faces )
    ! --------------------------------------------------------------------------
    !> Minimum level of your mesh.
    integer, intent(in) :: minLevel
    !> Maximum level of your mesh.
    integer, intent(in) :: maxLevel
    !> Level descriptor for each spatial direction and each level of your mesh.
    type(tem_levelDesc_type), intent(in) :: levelDesc(1:3,minLevel:maxLevel)
    !> Face descriptor where the faces will be appended to.
    type(tem_face_type),intent(inout)  :: faces(minLevel:maxLevel)
    ! --------------------------------------------------------------------------
    integer :: iLevel, iDir
    ! --------------------------------------------------------------------------

    levelLoop: do iLevel = minLevel, maxLevel
      directionLoop: do iDir = 1, 3

        ! For this level and this direction we collect all the faces.
        call tem_get_faces( levelDesc = levelDesc(iDir, iLevel),  &
          &                 direction = iDir,                     &
          &                 faces     = faces(iLevel)%faces(iDir) )

      end do directionLoop
    end do levelLoop

  end subroutine tem_collect_faces