Domain-specific implementation of high order Discontinuous Galerkin methods in spherical geometry