truncate_element Subroutine

private subroutine truncate_element(me)

truncate all the lists in the element object

Arguments

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

element object

Calls

proc~~truncate_element~~CallsGraph proc~truncate_element truncate_element interface~truncate~10 truncate proc~truncate_element->interface~truncate~10 proc~truncate_ga_dynlong truncate_ga_dynlong interface~truncate~10->proc~truncate_ga_dynlong

Called by

proc~~truncate_element~~CalledByGraph proc~truncate_element truncate_element interface~truncate~27 truncate interface~truncate~27->proc~truncate_element

Source Code

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

  end subroutine truncate_element