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