modify advection_2d_sphere/sem_cores.f90