cut_phylo_for_focal_time function

Cut the phylogeny for a given time in the past