bc_set_CheckBCExists Function

    pure function bc_set_CheckBCExists(this,region,var) result(val)
      !> Checks whether there is BC for a given variable on a given region.
      class(bc_set),    intent(in) :: this                                     !! Boundary conditions utility
      character(len=*), intent(in) :: region                                   !! Region name
      character(len=*), intent(in) :: var                                      !! Variable name
      logical :: val                                                           !! Result
      ! Work variable
      integer :: ind_reg, ind_var

      ind_reg = this%GetRegionIndex(region)
      ind_var = this%region(ind_reg)%GetBCIndex(var)

      if (ind_var.le.0) then
        val=.false.
      else
        val = .true.
      end if

      return
    end function bc_set_CheckBCExists