destroy_element Subroutine

  1. tem_element_module.f90
  2. tem_element_module
  3. destroy_element

private subroutine destroy_element(me)

destroy all the lists in the element object

Arguments

Type IntentOptional AttributesName
type(tem_element_type), intent(inout) :: me

element object

Calls

proc~~destroy_element~~CallsGraph proc~destroy_element destroy_element interface~destroy~4 destroy proc~destroy_element->interface~destroy~4 proc~destroy_ga_dynlong destroy_ga_dynlong interface~destroy~4->proc~destroy_ga_dynlong

Called by

proc~~destroy_element~~CalledByGraph proc~destroy_element destroy_element interface~destroy~37 destroy interface~destroy~37->proc~destroy_element

Contents

Source Code

destroy_element

Source Code

  subroutine destroy_element( me )
    ! ---------------------------------------------------------------------------
    !> element object
    type( tem_element_type ), intent(inout) :: me
    ! ---------------------------------------------------------------------------
    integer :: iVal
    ! ---------------------------------------------------------------------------
    call destroy( me = me%tID )
    call destroy( me = me%property )
    call destroy( me = me%eType )
    call destroy( me = me%pntTID )
    do iVal = 1, me%stencil%nVals
      call destroy( me = me%stencil%val( iVal ) )
    end do
    call destroy( me = me%stencil )
    do iVal = 1, me%neighID%nVals
      call destroy( me = me%neighID%val( iVal ) )
    end do
    call destroy( me = me%neighID )
    call destroy( me = me%sourceProc )
    call destroy( me = me%haloNesting )
    call destroy( me = me%needsUpdate )

  end subroutine destroy_element