tem_destroy_subTree_of_st_funList Subroutine

public subroutine tem_destroy_subTree_of_st_funList(me)

destroy subtree for shapes defined in each spacetime functions for dynamic load balancing

Arguments

Type IntentOptional Attributes Name
type(tem_st_fun_linkedList_type), intent(inout) :: me

Linked list to append the spacetime function to.

Calls

proc~~tem_destroy_subtree_of_st_funlist~~CallsGraph proc~tem_destroy_subtree_of_st_funlist tem_destroy_subTree_of_st_funList proc~tem_destroy_subtree tem_destroy_subTree proc~tem_destroy_subtree_of_st_funlist->proc~tem_destroy_subtree proc~tem_horizontalspacer tem_horizontalSpacer proc~tem_destroy_subtree_of_st_funlist->proc~tem_horizontalspacer mpi_comm_free mpi_comm_free proc~tem_destroy_subtree->mpi_comm_free

Source Code

  subroutine tem_destroy_subTree_of_st_funList( me )
    ! -------------------------------------------------------------------- !
    !> Linked list to append the spacetime function to.
    type( tem_st_fun_linkedList_type ), intent(inout) :: me
    ! -------------------------------------------------------------------- !
    type(tem_st_fun_listElem_type), pointer :: st_fun
    integer :: iSt, iList
    ! -------------------------------------------------------------------- !
    call tem_horizontalSpacer( fUnit = logUnit(3))
    write(logUnit(3),*) 'Create subtree for all space time functions stored '
    write(logUnit(3),*) 'in linked list of spacetime function'

    st_fun => me%head
    iList = 0
    do
      if (.not. associated(st_fun)) EXIT
      iList = iList + 1
      do iSt = 1, st_fun%nVals
        call tem_destroy_subTree(me = st_fun%val(iSt)%subTree)
      end do
      st_fun => st_fun%next
    end do
    write(logUnit(3),'(a,i3,a)') ' Done creating subtree for ', iList, &
      &                          ' spacetime functions'
    call tem_horizontalSpacer( fUnit = logUnit(3))

  end subroutine tem_destroy_subTree_of_st_funList