finish_diagnostics_velocity_space Subroutine

  subroutine finish_diagnostics_velocity_space()
    use le_grids, only: finish_weights
    use mp, only: proc0
    implicit none
    if (proc0) call finish_weights
  end subroutine finish_diagnostics_velocity_space