destroy_stencilElement Subroutine

private subroutine destroy_stencilElement(me)

destroy stencil

Arguments

Type IntentOptional Attributes Name
type(tem_stencilElement_type), intent(out) :: me

stencil element type to be destroyed

Called by

proc~~destroy_stencilelement~~CalledByGraph proc~destroy_stencilelement destroy_stencilElement interface~destroy~3 destroy interface~destroy~3->proc~destroy_stencilelement

Source Code

  subroutine destroy_stencilElement( me )
    ! -------------------------------------------------------------------- !
    !> stencil element type to be destroyed
    type( tem_stencilElement_type ), intent(out) :: me
    ! -------------------------------------------------------------------- !
    ! -------------------------------------------------------------------- !

    me%QQN = 0
    if ( allocated(me%tIDpos) ) deallocate(me%tIDpos)

    me%headerPos = 0

    if( allocated( me%totalPos ) ) deallocate( me%totalPos )

  end subroutine destroy_stencilElement