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 | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_tracking_type), | intent(in) | :: | track |
List of tracking entities |
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