diff --git a/Source/vtkf.f90 b/Source/vtkf.f90 index 5440ea37c15..72033297c4e 100644 --- a/Source/vtkf.f90 +++ b/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