setup_owned_faces Subroutine

private subroutine setup_owned_faces(mesh, flow)

Caches faces whose owner cell belongs to this rank.

Arguments

Type IntentOptional Attributes Name
type(mesh_t), intent(in) :: mesh
type(flow_mpi_t), intent(inout) :: flow

Called by

proc~~setup_owned_faces~~CalledByGraph proc~setup_owned_faces mod_mpi_flow::setup_owned_faces proc~flow_mpi_initialize mod_mpi_flow::flow_mpi_initialize proc~flow_mpi_initialize->proc~setup_owned_faces program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~flow_mpi_initialize

Source Code

   subroutine setup_owned_faces(mesh, flow)
      type(mesh_t), intent(in) :: mesh
      type(flow_mpi_t), intent(inout) :: flow
      integer :: f, n

      n = 0
      do f = 1, mesh%nfaces
         if (flow%owned(mesh%faces(f)%owner)) n = n + 1
      end do

      allocate(flow%owned_faces(n))
      n = 0
      do f = 1, mesh%nfaces
         if (.not. flow%owned(mesh%faces(f)%owner)) cycle
         n = n + 1
         flow%owned_faces(n) = f
      end do
   end subroutine setup_owned_faces