German city sets up 'warming centers' for those who can't afford heating