destroy_element Subroutine

private subroutine destroy_element(me)

destroy all the lists in the element object

Arguments

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

element object

Calls

proc~~destroy_element~~CallsGraph proc~destroy_element destroy_element interface~destroy~25 destroy proc~destroy_element->interface~destroy~25 proc~destroy_ga2d_real destroy_ga2d_real interface~destroy~25->proc~destroy_ga2d_real

Called by

proc~~destroy_element~~CalledByGraph proc~destroy_element destroy_element interface~destroy~34 destroy interface~destroy~34->proc~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