Code for melt migration and segregation following emplacement in the lower crust