Changes in / [bac5f50:7b51361]

Location:

src

Files:

• components/Distribution_assm.F90 (modified) (1 diff)
• datatypes/Aggregate_mod.F90 (modified) (1 diff)

src/components/Distribution_assm.F90

@@ -326 +326 @@
       endif
     endif
+    ! print neighbours
+    if (sctls%verbose>=1) then 
+       write(stream,"(A,I0)") "N neighbours: ", M%nnghbrs
+       do i=1,M%nnghbrs
+          !write(stream,"(A,I0,A,I0,A,I0)") "neighbour ", i, ": ", M%nghbrs(i), ", overlap: ", M%ol_solve(i)%ninds
+          write(stream,"(I0,A,I0,A)",advance="no") M%nghbrs(i)+1, " ", M%ol_inner(i)%ninds+M%ol_outer(i)%ninds, " "
+       end do
+       write(stream,*) ""
+    end if
+
     ! Localise A:
     if (ol<=0) then

src/datatypes/Aggregate_mod.F90

@@ -113 +113 @@
       endif
     enddo
-    if (sctls%verbose>=2) then
+    if (sctls%verbose>=5) then
       do i=1,nagrs
         write(stream,*) &