tem_vrtx_finalize Subroutine

public subroutine tem_vrtx_finalize(vrtx)

Clean up allocated memory in vrtx structure

Arguments

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

Called by

proc~~tem_vrtx_finalize~~CalledByGraph proc~tem_vrtx_finalize tem_vrtx_finalize proc~hvs_output_finalize hvs_output_finalize proc~hvs_output_finalize->proc~tem_vrtx_finalize proc~tem_tracking_finalize tem_tracking_finalize proc~tem_tracking_finalize->proc~hvs_output_finalize

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