From 002609eee4ae4057fe5a85dca7cee9023f240d59 Mon Sep 17 00:00:00 2001
From: Randy McDermott <randy.mcdermott@gmail.com>
Date: Mon, 13 Jan 2025 19:34:07 -0500
Subject: [PATCH] FDS Source: remove unused variable

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

diff --git a/Source/init.f90 b/Source/init.f90
index 5c80df1a9a..fdc5dd78bb 100644
--- a/Source/init.f90
+++ b/Source/init.f90
@@ -4960,7 +4960,7 @@ SUBROUTINE REASSIGN_WALL_CELLS(T,NM)
 
 SUBROUTINE GET_BOUNDARY_TYPE
 
-INTEGER :: IOR,IIG,JJG,KKG,ICO,IW_OLD,IERR,PRESSURE_BC_TYPE,ICG_OLD,II
+INTEGER :: IOR,IIG,JJG,KKG,IW_OLD,IERR,PRESSURE_BC_TYPE,ICG_OLD,II
 TYPE (BOUNDARY_PROP1_TYPE), POINTER :: B1,B1_OLD
 TYPE (BOUNDARY_ONE_D_TYPE), POINTER :: ONE_D_OLD
 TYPE (WALL_TYPE), POINTER :: WC_OLD