hvs_vtk_open Subroutine

public subroutine hvs_vtk_open(vtk_file, vtk_config, proc, time)

Open the output files in VTK format.

This will open VTU files and if multiple processes are used a PVTU file. We always write unstructured meshes, so we also write the header for the unstructured mesh here already. The actual mesh data is then to be written by hvs_vtk_write_meshdata.

Arguments

Type IntentOptional Attributes Name
type(hvs_vtk_file_type), intent(out) :: vtk_file

The file description to open.
type(hvs_vtk_config_type), intent(in) :: vtk_config

User specified settings for the output
type(tem_comm_env_type), intent(in) :: proc

Parallel environment to use for the output.
type(tem_time_type), intent(in), optional :: time

Time information.

If this is present, the filename will be built with a time stamp and the time point information is written into the vtu file.

Calls

proc~~hvs_vtk_open~~CallsGraph proc~hvs_vtk_open hvs_vtk_open proc~tem_abort tem_abort proc~hvs_vtk_open->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~hvs_vtk_open~~CalledByGraph proc~hvs_vtk_open hvs_vtk_open proc~hvs_output_open hvs_output_open proc~hvs_output_open->proc~hvs_vtk_open proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_open

Contents

Source Code

hvs_vtk_open

Source Code

  subroutine hvs_vtk_open(vtk_file, vtk_config, proc, time)
    !> The file description to open.
    type(hvs_vtk_file_type), intent(out) :: vtk_file

    !> User specified settings for the output
    type(hvs_vtk_config_type), intent(in) :: vtk_config

    !> Parallel environment to use for  the output.
    type(tem_comm_env_type), intent(in) :: proc

    !> Time information.
    !!
    !! If this is present, the filename will be built with a time stamp and
    !! the time point information is written into the vtu file.
    type(tem_time_type), intent(in), optional :: time
    ! ----------------------------------------------------------------------!
    character(len=PathLen) :: filename
    character(len=PathLen) :: headerline
    character :: linebreak
    ! ----------------------------------------------------------------------!

    write(logUnit(0),*) 'VTK output deactivated in this executable!'
    call tem_abort()

  end subroutine hvs_vtk_open