Create the secondary subcommunicators
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ky_type), | intent(inout) | :: | self |
subroutine ky_make_subcom_2(self)
implicit none
class(ky_type), intent(inout) :: self
integer :: is
!Exit if we don't have this kyb
if(.not.self%is_local)return
!Now make the supercell sub communicators
do is=1,self%nsupercell
!Now make child subcom
call self%supercells(is)%make_subcom_2
enddo
end subroutine ky_make_subcom_2