tem_tracking_finalize Subroutine

  1. tem_tracking_module.f90
  2. tem_tracking_module
  3. tem_tracking_finalize

public subroutine tem_tracking_finalize(me)

Close all the units of the tracking objects

Arguments

Type IntentOptional AttributesName
type(tem_tracking_type), intent(inout) :: me

tracker object to close

Calls

proc~~tem_tracking_finalize~~CallsGraph proc~tem_tracking_finalize tem_tracking_finalize proc~hvs_output_finalize hvs_output_finalize proc~tem_tracking_finalize->proc~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

Contents

Source Code

tem_tracking_finalize

Source Code

  subroutine tem_tracking_finalize( me )
    ! -------------------------------------------------------------------- !
    !> tracker object to close
    type(tem_tracking_type ), intent(inout) :: me
    ! -------------------------------------------------------------------- !
    integer :: iTrack !, iError
    ! -------------------------------------------------------------------- !

    do iTrack = 1, me%control%nActive
      call hvs_output_finalize( out_file = me%instance(iTrack)%output_file )
    end do

  end subroutine tem_tracking_finalize