Merge pull request #14830 from drjfloyd/master

FDS Source: reset Q_LEAK, Issue #14807

Author: drjfloyd

Source/read.f90

@@ -5288,7 +5288,7 @@ SUBROUTINE PROC_REAC_1
       DO NS=1,RN%N_SPEC
          IF (RN%N_S(NS) .LT. 1) THEN
             IS_EXPONENT_LT_1 = .TRUE.
-            WRITE(LU_ERR,*)"Info: CVODE solver order set to 1 because one of the reaction involves exponent < 1.0. "
+            IF (MY_RANK==0) WRITE(LU_ERR,'(A)')"INFO: CVODE solver order set to 1 because one REAC has an N_S < 1."
             EXIT
          ENDIF
       ENDDO

Source/wall.f90

@@ -1768,6 +1768,7 @@ SUBROUTINE CALC_HVAC_BC(BC,B1,SF)
 ! Compute R*Sum(Y_i/W_i) at the wall
 
 DU=DUCTNODE(B1%NODE_INDEX)%DUCT_INDEX(1)
+IF (DUCT(DU)%LEAK_ENTHALPY) B1%Q_LEAK=0._EB
 MFT = -DUCTNODE(B1%NODE_INDEX)%DIR(1)*DUCT_MF(DU)/NODE_AREA_EX(B1%NODE_INDEX)
 IF (.NOT. ANY(SF%LEAK_PATH>0)) THEN
    IF (DUCTNODE(B1%NODE_INDEX)%DIR(1)*DUCT_MF(DU) > 0._EB) THEN