From 3c5b540780de3de544281a715e6ba1e78f6cf93e Mon Sep 17 00:00:00 2001
From: ericvmueller <ericvmueller@gmail.com>
Date: Wed, 14 Aug 2024 16:28:26 -0400
Subject: [PATCH] FDS Source: properly initialize ember variables

---
 Source/part.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Source/part.f90 b/Source/part.f90
index feee6ad8ea1..7645b7bfb9a 100644
--- a/Source/part.f90
+++ b/Source/part.f90
@@ -2519,14 +2519,14 @@ SUBROUTINE MOVE_IN_GAS
             WE_G,T_BU_BAG,T_BU_STRIP,MPOM,SFAC,BREAKUP_RADIUS(0:NDC),&
             DD,DD_X,DD_Y,DD_Z,DW_X,DW_Y,DW_Z,K_TERM(3),Y_TERM(3),C_DRAG,A_DRAG,&
             GX_LOC,GY_LOC,GZ_LOC,DRAG_MAX(3)=0._EB,K_SGS,U_P,KN,M_DOT,&
-            EMBER_DENSITY,EMBER_VOLUME,ACCEL_X,ACCEL_Y,ACCEL_Z,&
+            EMBER_DENSITY,EMBER_VOLUME=0._EB,ACCEL_X,ACCEL_Y,ACCEL_Z,&
             LP_FORCE,FACE_VOLS(2,2,2),VEL_G_INT(3),VOL_WGT(2,2,2),&
             EMBER_PACKING_RATIO,LOCAL_PACKING_RATIO,LPC_GEOM_FACTOR
 REAL(EB) :: WGT(2,2,2,3)
 REAL(EB), POINTER, DIMENSION(:,:,:) :: FV_D=>NULL(),VEL_G=>NULL()
 REAL(EB), SAVE :: BETA
 INTEGER :: IIX,JJY,KKZ,IL,JL,KL,AXIS,N_LPC2
-LOGICAL :: STUCK
+LOGICAL :: STUCK=.FALSE.
 TYPE(LAGRANGIAN_PARTICLE_CLASS_TYPE), POINTER :: LPC2
 
 ! Save current values of particle velocity components