bc_set_Info Subroutine

    impure subroutine bc_set_Info(this)
      !> Prints to stdout information on bc_set, for debugging.
      class(bc_set), intent(inout) :: this                                     !! Boundary conditions utility
      ! work variable
      integer :: i,m

      if (allocated(this%region)) then
        write(stdout,"(a20,a, i16)") 'Nbr Regions'         , repeat('-',19)//'>', this%count
        write(stdout,"(a)")repeat('-',40)

        do i=1,this%count
          write(stdout,"(a20,a, a)"  )    'Region name',      repeat('-',19)//'>', this%region(i)%name
          write(stdout,"(a20,a, 3f16.4)") 'Region xlo',       repeat('-',19)//'>', this%region(i)%xlo
          write(stdout,"(a20,a, 3f16.4)") 'Region xhi',       repeat('-',19)//'>', this%region(i)%xhi
          write(stdout,"(a20,a, 3i16)"  ) 'Region lo',        repeat('-',19)//'>', this%region(i)%lo
          write(stdout,"(a20,a, 3i16)"  ) 'Region hi',        repeat('-',19)//'>', this%region(i)%hi
          write(stdout,"(a25,a, i16)")    'Region Dir',       repeat('-',14)//'>', this%region(i)%dir
          write(stdout,"(a25,a, i16)")    'Region Side',      repeat('-',14)//'>', this%region(i)%side
          write(stdout,"(a20,a, i16)")    'Region var count', repeat('-',19)//'>', this%region(i)%count
          do m=1,this%region(i)%count
            write(stdout,"(a25,a, a)"  )   'var'            , repeat('-',14)//'>', this%region(i)%BC(m)%name
            write(stdout,"(a25,a, i16)")   'Type'           , repeat('-',14)//'>', this%region(i)%BC(m)%type
            write(stdout,"(a25,a, l16)")   'associated(val)', repeat('-',14)//'>', associated(this%region(i)%BC(m)%val)
          end do
          write(stdout,"(a)")repeat('-',40)
        end do
      else
        write(stdout,"(a)") 'No regions defined'
      end if

      return
    end subroutine bc_set_Info