Deallocate the memoery used by the geometry variables
subroutine deallocate_memory()
!< Deallocate the memoery used by the geometry variables
implicit none
call dmsg(1, 'geometry', 'deallocate_memory')
call dealloc(xn)
call dealloc(yn)
call dealloc(zn)
call dealloc(xA)
call dealloc(yA)
call dealloc(zA)
call dealloc(volume)
call dealloc(CellCenter)
! call dealloc(left_ghost_centroid)
! call dealloc(right_ghost_centroid)
! call dealloc(front_ghost_centroid)
! call dealloc(back_ghost_centroid)
! call dealloc(top_ghost_centroid)
! call dealloc(bottom_ghost_centroid)
end subroutine deallocate_memory