block_obj_UpdateSpacing Subroutine

    impure subroutine block_obj_UpdateSpacing(this)
      !> Updates grid spacing arrays.
      implicit none
      class(block_obj), intent(inout) :: this                                  !! A block object
      ! Work variables
      integer :: i,dir
      real(wp):: buffr(3)

      associate (lo => this%lo,  hi => this%hi, ngc=> this%ngc,&
        axis => this%axis)

        do dir=1,3
          do i=lo(dir)-ngc,hi(dir)+ngc
            axis(dir)%dxm(i) = axis(dir)%x(i+1)-axis(dir)%x(i)
          end do
        end do

      end associate

      ! Compute minimum mesh spacing
      do dir=1,3
        this%dx(dir) = minval(abs(this%axis(dir)%dxm))
      end do

      call this%parallel%Min(this%dx,buffr); this%dx=buffr

      return
    end subroutine block_obj_UpdateSpacing