1 module BCsfIDmap 2 integer ninlet 3 integer, allocatable, dimension(:) :: inlf 4 real*8, allocatable, dimension(:,:) :: prof_inlet ! profile for inlet velocity 5 integer noutlet 6 integer, allocatable, dimension(:) :: outf 7 end module 8 9