TYPE bound_info_type
integer :: nbndpts
integer, allocatable :: bndpts(:,:) ! ijk location of fluid boundary point
!real, allocatable :: intpts(:,:) ! xyz location of boundary intercept point
!real, allocatable :: bndvec(:,:) ! vector from boundary to fluid point (normalised)
real, allocatable :: recpts(:,:) ! xyz location of reconstruction point
integer, allocatable :: recids_u(:,:) ! ijk location of u grid cell that rec point is in
integer, allocatable :: recids_v(:,:) ! ijk location of u grid cell that rec point is in
integer, allocatable :: recids_w(:,:) ! ijk location of u grid cell that rec point is in
integer, allocatable :: recids_c(:,:) ! ijk location of u grid cell that rec point is in
real, allocatable :: bnddst(:) ! distance between surface & bound point
integer, allocatable :: bndptsrank(:) ! indices of points on current rank
!integer, allocatable :: bndpts_loc(:,:) ! indices of points on current rank
logical, allocatable :: lcomprec(:) ! Switch whether reconstruction point is a computational point
logical, allocatable :: lskipsec(:) ! Switch whether to skip finding the shear stress at this point
integer :: nbndptsrank
integer, allocatable :: bndpts_loc(:,:) ! ijk location of fluid boundary point on rank
integer :: nfctsecs
integer, allocatable :: secbndptids(:)
integer, allocatable :: secfacids(:)
real, allocatable :: secareas(:)
integer, allocatable :: fctsecsrank(:)
integer :: nfctsecsrank
integer, allocatable :: secfacids_loc(:)
real , allocatable :: secareas_loc(:)
integer, allocatable :: secbndpts_loc(:,:)
real , allocatable :: bnddst_loc(:)
real , allocatable :: recpts_loc(:,:)
integer, allocatable :: recids_u_loc(:,:)
integer, allocatable :: recids_v_loc(:,:)
integer, allocatable :: recids_w_loc(:,:)
integer, allocatable :: recids_c_loc(:,:)
logical, allocatable :: lcomprec_loc(:)
logical, allocatable :: lskipsec_loc(:)
end TYPE bound_info_type