bc_set_GetBCType Function

    pure function bc_set_GetBCType(this,region,var) result(val)
      ! Returns the boundary condition type of a variable on a certain region.
      class(bc_set),    intent(in) :: this                                     !! Boundary conditions utility
      character(len=*), intent(in) :: region                                   !! Region name
      character(len=*), intent(in) :: var                                      !! Variable name
      integer                      :: val                                      !! Result
      ! Work variable
      integer :: ind_reg
      integer :: ind_var

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

      val = this%region(ind_reg)%BC(ind_var)%type

      return
    end function bc_set_GetBCType