This year's global wine harvest will be the lowest in 37 years due to ongoing declines and bad weather in Europe's main producer regions, new figures show.