hvs_output_finalize Subroutine

public subroutine hvs_output_finalize(out_file)

Finalize the output

Arguments

Type IntentOptional AttributesName
type(hvs_output_file_type), intent(inout) :: out_file

Calls

proc~~hvs_output_finalize~~CallsGraph proc~hvs_output_finalize hvs_output_finalize proc~tem_vrtx_finalize tem_vrtx_finalize proc~hvs_output_finalize->proc~tem_vrtx_finalize proc~tem_restart_finalize tem_restart_finalize proc~hvs_output_finalize->proc~tem_restart_finalize proc~hvs_ascii_close hvs_ascii_close proc~hvs_output_finalize->proc~hvs_ascii_close proc~hvs_vtk_closepvd hvs_vtk_closePVD proc~hvs_output_finalize->proc~hvs_vtk_closepvd proc~check_mpi_error check_mpi_error proc~tem_restart_finalize->proc~check_mpi_error mpi_type_free mpi_type_free proc~tem_restart_finalize->mpi_type_free proc~tem_abort tem_abort proc~hvs_vtk_closepvd->proc~tem_abort proc~check_mpi_error->proc~tem_abort mpi_error_string mpi_error_string proc~check_mpi_error->mpi_error_string mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

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

Contents

Source Code


Source Code

  subroutine hvs_output_finalize( out_file )
    ! --------------------------------------------------------------------------!
    type(hvs_output_file_type), intent(inout) :: out_file
    ! --------------------------------------------------------------------------!
    select case(out_file%vis_kind)
    case(hvs_AsciiTransient)
      call hvs_ascii_close( ascii = out_file%ascii)
    case(hvs_VTK)
      call hvs_vtk_closePVD(vtk_file = out_file%vtk)
      call tem_vrtx_finalize(out_file%vrtx)
    case(hvs_Internal)
      call tem_restart_finalize( me = out_file%restart )
    end select
  end subroutine hvs_output_finalize