FDS Source: Issue #13673. Fix bug in CONNECTED_ZONES

Author: mcgratta

Source/main.f90

@@ -1827,6 +1827,10 @@ SUBROUTINE EXCHANGE_DIVERGENCE_INFO
       DSUM_ALL(IPZ) = DSUM_ALL(IPZ) + DSUM(IPZ,NM)
       PSUM_ALL(IPZ) = PSUM_ALL(IPZ) + PSUM(IPZ,NM)
       USUM_ALL(IPZ) = USUM_ALL(IPZ) + USUM(IPZ,NM)
+   ENDDO
+ENDDO
+DO IPZ=0,N_ZONE
+   DO NM=LOWER_MESH_INDEX,UPPER_MESH_INDEX
       DO IOPZ=0,N_ZONE
          IF (CONNECTED_ZONES(IPZ,IOPZ,NM)) CONNECTED_ZONES_ALL(IPZ,IOPZ) = .TRUE.
       ENDDO
@@ -1845,6 +1849,10 @@ SUBROUTINE EXCHANGE_DIVERGENCE_INFO
       DSUM(IPZ,NM) = DSUM_ALL(IPZ)
       PSUM(IPZ,NM) = PSUM_ALL(IPZ)
       USUM(IPZ,NM) = USUM_ALL(IPZ)
+   ENDDO
+ENDDO
+DO IPZ=0,N_ZONE
+   DO NM=1,NMESHES
       CONNECTED_ZONES(IPZ,:,NM) = CONNECTED_ZONES_ALL(IPZ,:)
    ENDDO
 ENDDO