xcoreT numerical model of thermally coupled crystal settling in crystal-driven convection applied to magma bodies from crustal to planetary scales