Merge pull request #14733 from johodges/FireX_rebase

FDS Source: fix for vtk offsets in bndf with multi mesh on one mpi pr…

Author: marcosvanella

Source/vtkf.f90

@@ -2546,6 +2546,7 @@ SUBROUTINE INITIALIZE_VTKHDF_BNDF_STEP2(T)
             CALL DEALLOCATE_VTK_GAS_PHASE_GEOMETRY(X_PTS,Y_PTS,Z_PTS,OFFSETS,VTKC_TYPE,CONNECT)
             DEALLOCATE(VERTICES)
          ENDDO PATCH_LOOP1
+         NOFFSETS_ACCUM = NOFFSETS_ACCUM + 1
 
          ! Write connectivity data to file
          START1 = NCONN_START
@@ -2572,6 +2573,8 @@ SUBROUTINE INITIALIZE_VTKHDF_BNDF_STEP2(T)
          DEALLOCATE(ALL_OFFSETS)
          DEALLOCATE(ALL_VTKC_TYPE)
          N_WRITTEN = N_WRITTEN + 1
+      ELSE
+         NOFFSETS_ACCUM = NOFFSETS_ACCUM + 1
       ENDIF
       ! Build GEOM patch geometry
       IF ((MESHES(NM)%N_INTERNAL_CFACE_CELLS>0).AND.(.TRUE.)) THEN
@@ -2631,6 +2634,8 @@ SUBROUTINE INITIALIZE_VTKHDF_BNDF_STEP2(T)
             CALL DEALLOCATE_VTK_GAS_PHASE_GEOMETRY(X_PTS,Y_PTS,Z_PTS,OFFSETS,VTKC_TYPE,CONNECT)
             N_WRITTEN = N_WRITTEN + 1
          ENDIF
+      ELSE
+         NOFFSETS_ACCUM = NOFFSETS_ACCUM + 1
       ENDIF
    ENDDO MESH_LOOP_HDF