tem_tracking_print_last_VTK_files Subroutine

public subroutine tem_tracking_print_last_VTK_files(track)

Print the filenames of the last written VTK files on the screen.

Mainly useful for the harvesting tools to get information on the written visualization files.


Type IntentOptional AttributesName
type(tem_tracking_type), intent(in) :: track

List of tracking entities


Source Code

  subroutine tem_tracking_print_last_VTK_files(track)
    !> List of tracking entities
    type(tem_tracking_type), intent(in) :: track

    integer :: iTrack, iConfig
    integer :: nTracks

    nTracks = track%control%nActive

    do iTrack = 1, nTracks
      iConfig = track%instance(iTrack)%pntConfig
      ! Only the root process for this output file needs to print the name
      if (track%instance(iTrack)%output_file%proc%rank == 0) then
        ! Only the VTK outputs are considered here
        if (track%config(iConfig)%output_config%vis_kind == hvs_VTK) then
          write(*,*) 'Wrote VTK file: ', &
            &        trim(track%instance(iTrack)%output_file%vtk%last_opened_file)
        end if
      end if
    end do

  end subroutine tem_tracking_print_last_VTK_files