Merge pull request #14052 from rmcdermo/master

FDS Source: remove unused variable
firemodels · Jan 14, 2025 · 70ebcf4 · 70ebcf4
2 parents e01acb2 + 002609e
commit 70ebcf4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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