FEMDomainClassExtMPI.f90 Source File

!##################################################
subroutine distributeFEMDomain(obj, mpid)
   use MPIClass
   use FEMDOmainClass
   class(FEMDomain_), intent(inout)::obj
   type(Mesh_), allocatable :: meshes(:)
   type(MPI_), intent(inout) :: mpid
   integer(int32) :: n

   n = mpid%petot

   ! split obj into n objects
   !if(allocated(obj%FEMDomains) )then
   !        deallocate(obj%FEMDomains)
   !endif
   !allocate(obj%FEMDomains(n))

   ! Greedy algorithm
   if (obj%Mesh%empty() .eqv. .true.) then
      print *, "distributeFEMDomain >> ERROR >> No mesh is imported."
      stop
   end if

   meshes = obj%mesh%divide(n)

   ! import mesh
   call obj%import(Mesh=meshes(mpid%myrank + 1))

end subroutine distributeFEMDomain
!##################################################