tem_tracking_finalize Subroutine

public subroutine tem_tracking_finalize(me)

Close all the units of the tracking objects

Arguments

Type IntentOptional Attributes Name
type(tem_tracking_type), intent(inout) :: me

tracker object to close

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