hvs_vtk_write_meshdata Subroutine

public subroutine hvs_vtk_write_meshdata(vtk_file, vrtx, nElems)

Write the mesh information into the VTK output files.

Note: the unstructured meshes we write are consisting of voxels, this assumption is built into the code and exploited.

Arguments

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

File handles to the files where the mesh data should be written to.
type(tem_vrtx_type), intent(in) :: vrtx

Information on the vertices of the mesh
integer, intent(in) :: nElems

Number of elements in the mesh

Calls

proc~~hvs_vtk_write_meshdata~~CallsGraph proc~hvs_vtk_write_meshdata hvs_vtk_write_meshdata proc~tem_abort tem_abort proc~hvs_vtk_write_meshdata->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~hvs_vtk_write_meshdata~~CalledByGraph proc~hvs_vtk_write_meshdata hvs_vtk_write_meshdata proc~hvs_output_open hvs_output_open proc~hvs_output_open->proc~hvs_vtk_write_meshdata proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_open

Contents

Source Code

hvs_vtk_write_meshdata

Source Code

  subroutine hvs_vtk_write_meshdata(vtk_file, vrtx, nElems)
    !> File handles to the files where the mesh data should be written to.
    type(hvs_vtk_file_type), intent(in) :: vtk_file

    !> Information on the vertices of the mesh
    type(tem_vrtx_type), intent(in) :: vrtx

    !> Number of elements in the mesh
    integer, intent(in) :: nElems
    ! ----------------------------------------------------------------------!
    write(logUnit(0),*) 'Using dummy hvs_vtk_write_meshdata because'
    write(logUnit(0),*) 'executable is configured with --no_vtk'
    call tem_abort()
  end subroutine hvs_vtk_write_meshdata