From b7e6259ebdd112b5a244addbd3da0e9daac45068 Mon Sep 17 00:00:00 2001
From: marcosvanella <marcos_vanella@hotmail.com>
Date: Tue, 22 Sep 2026 16:14:41 -0400
Subject: [PATCH] FDS Source: Explicitly associate temp arrays in routine,
 ccib.f90.

---
 Source/ccib.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Source/ccib.f90 b/Source/ccib.f90
index 36aaae79f48..b34e548c2b9 100644
--- a/Source/ccib.f90
+++ b/Source/ccib.f90
@@ -12046,6 +12046,10 @@ SUBROUTINE GET_EXPLICIT_ADVDIFFVECTOR_SCALAR_3D(N)
 INTEGER :: IIG,JJG,KKG,IOR
 REAL(EB) :: UN
 
+U_TEMP => U_WORK
+F_TEMP => F_WORK
+Z_TEMP => Z_WORK
+
 ! Mesh Loop:
 MESH_LOOP : DO NM=LOWER_MESH_INDEX,UPPER_MESH_INDEX