Merge pull request #14118 from ericvmueller/master

FDS Source: fix pointer bug for BLOWING correction on particles

Author: ericvmueller

Source/read.f90

@@ -6304,6 +6304,10 @@ SUBROUTINE PROC_PART
       RETURN
    ENDIF
 
+   ! Allocate necessary boundary information if BLOWING heat transfer correction is applied
+
+   IF (SF%BLOWING) LPC%INCLUDE_BOUNDARY_PROP2_TYPE = .TRUE.
+   
    ! If COLOR is not assigned to the PART class, use the SURF color if it has been specified
 
    IF (ALL(LPC%RGB==0) .AND. .NOT.ALL(SF%RGB==SURFACE(INERT_SURF_INDEX)%RGB)) LPC%RGB=SF%RGB

Source/wall.f90

@@ -3522,6 +3522,8 @@ REAL(EB) FUNCTION HEAT_TRANSFER_COEFFICIENT(NMX,DELTA_N_TMP,H_FIXED,SFX,WALL_IND
 IF (PRESENT(PARTICLE_INDEX_IN)) THEN
    LPX => LAGRANGIAN_PARTICLE(PARTICLE_INDEX_IN)
    P1X => BOUNDARY_PROP1(LPX%B1_INDEX)
+   IF (LAGRANGIAN_PARTICLE_CLASS(LPX%CLASS_INDEX)%INCLUDE_BOUNDARY_PROP2_TYPE) &
+      P2X => BOUNDARY_PROP2(LPX%B2_INDEX)
    BCX => BOUNDARY_COORD(LPX%BC_INDEX)
    DN = SFX%CONV_LENGTH
    R_DROP = LPX%RADIUS