FDS Source: Fix unassociated pointer

firemodels · Jul 22, 2024 · e3289ef · e3289ef
1 parent 5d66e0d
commit e3289ef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/wall.f90 b/Source/wall.f90
@@ -2086,7 +2086,7 @@ SUBROUTINE SOLID_HEAT_TRANSFER(NM,T,DT_BC,PARTICLE_INDEX,WALL_INDEX,CFACE_INDEX,
                HTCB = HEAT_TRANSFER_COEFFICIENT(NM,DTMP,SF_HTC_B,SF_BACK,CFACE_INDEX_IN=ONE_D%BACK_INDEX)
             B1_BACK%HEAT_TRANS_COEF = HTCB
             Q_RAD_IN_B  = B1_BACK%Q_RAD_IN
-            IF (N_LP_ARRAY_INDICES>0) Q_WATER_B = -SUM(B2_BACK%LP_CPUA(:)) + B1%Q_CONDENSE
+            IF (N_LP_ARRAY_INDICES>0 .AND. PRESENT(WALL_INDEX)) Q_WATER_B = -SUM(B2_BACK%LP_CPUA(:)) + B1%Q_CONDENSE
          ENDIF
          Q_CON_B = HTCB*DTMP