Karl Leopold, Công tước xứ Mecklenburg