FDS Source: BC issue for leaking wall

Author: mcgratta

Source/wall.f90

@@ -728,7 +728,7 @@ SUBROUTINE SURFACE_HEAT_TRANSFER(NM,T,SF,BC,B1,WALL_INDEX,CFACE_INDEX,PARTICLE_I
          TSI = T - B1%T_IGN
       ENDIF
 
-      IF (B1%U_NORMAL>TWENTY_EPSILON_EB) THEN
+      IF (B1%U_NORMAL>TWENTY_EPSILON_EB .AND. .NOT.ANY(SF%LEAK_PATH>0)) THEN
          B1%TMP_F = B1%TMP_G
       ELSEIF (SF%TMP_FRONT>0._EB) THEN
          B1%TMP_F = TMP_0(BC%KKG) + &