block_obj_Init Subroutine

    impure subroutine block_obj_Init(this,ngc,parallel)
      !> Initializes block object.
      class(block_obj),   intent(inout) :: this                                !! A block object
      integer,            intent(in)    :: ngc                                 !! Number of ghostcells
      type(parallel_obj), intent(in),    &
                                 target :: parallel                            !! Parallel structure to link with
      ! Work variables
      integer :: dir

      ! Point to the master objects
      this%parallel => parallel

      ! Store number of ghostcells
      this%ngc = ngc

      ! Initialize MPI datatypes
      do dir=1,3
        this%gc_slab_r(dir) = MPI_DATATYPE_NULL
        this%gc_slab_i(dir) = MPI_DATATYPE_NULL
      end do

      ! Switch flag
      this%is_initialized = .true.

      return
    end subroutine block_obj_Init