tem_vrtx_finalize Subroutine

public subroutine tem_vrtx_finalize(vrtx)

Clean up allocated memory in vrtx structure

Arguments

Type	Intent	Optional	Attributes		Name
type(tem_vrtx_type),	intent(inout)			::	vrtx

Source Code

  subroutine tem_vrtx_finalize(vrtx)
    type(tem_vrtx_type), intent(inout) :: vrtx

    if (allocated(vrtx%refine)) deallocate(vrtx%refine)
  end subroutine tem_vrtx_finalize