From e3289ef595b5511011abbefd8574c6298c7299db Mon Sep 17 00:00:00 2001
From: mcgratta <mcgratta@gmail.com>
Date: Mon, 22 Jul 2024 13:56:32 -0400
Subject: [PATCH] FDS Source: Fix unassociated pointer

---
 Source/wall.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/wall.f90 b/Source/wall.f90
index d7d0a61f3c2..169fad48000 100644
--- 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