FDS Source: remove unused variable

firemodels · Jan 14, 2025 · 002609e · 002609e
1 parent e01acb2
commit 002609e
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