tem_out_bc_header Subroutine

  subroutine tem_out_bc_header( me, outUnit )
    type( tem_bc_header_type ), intent(in) :: me
    integer, intent(in) :: outUnit
    integer :: iBC

    write( outUnit, "(A, I2)") ' in bc_header, number of BCs: ', me%nBCs
    write( outUnit, "(3A12)" ) 'label', 'BC kind', 'BC_ID'
    do iBC = 1, me%nBCs
      write( outUnit, "( A12, A12, I12)" ) &
        &               trim(me%label(iBC)), trim(me%BC_kind(iBC)), me%BC_ID(iBC)
    end do
  end subroutine tem_out_bc_header