Merge pull request #13322 from ericvmueller/master

FDS Source: properly initialize ember variables

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