Merge pull request #12194 from ericvmueller/master

FDS Source: include LP%RVC in storage packing for restart files
firemodels · Oct 18, 2023 · fe26062 · fe26062
2 parents 961f9f3 + 1529ed9
commit fe26062
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Source/func.f90 b/Source/func.f90
@@ -1501,6 +1501,7 @@ SUBROUTINE PACK_PARTICLE(NM,OS,LP,LPC_INDEX,RC,IC,LC,UNPACK_IT,COUNT_ONLY)
 RC=RC+1 ; IF (.NOT.COUNT_ONLY) CALL EQUATE(OS%REALS(RC),LP%ACCEL_X,UNPACK_IT)
 RC=RC+1 ; IF (.NOT.COUNT_ONLY) CALL EQUATE(OS%REALS(RC),LP%ACCEL_Y,UNPACK_IT)
 RC=RC+1 ; IF (.NOT.COUNT_ONLY) CALL EQUATE(OS%REALS(RC),LP%ACCEL_Z,UNPACK_IT)
+RC=RC+1 ; IF (.NOT.COUNT_ONLY) CALL EQUATE(OS%REALS(RC),LP%RVC,UNPACK_IT)
 
 ! Boundary Coordinates