FDS Source: Issue #13673. Remove uninitialized variable

Author: mcgratta

Source/init.f90

@@ -4795,7 +4795,7 @@ SUBROUTINE REASSIGN_WALL_CELLS(T,NM)
 USE COMP_FUNCTIONS, ONLY : CURRENT_TIME
 INTEGER, INTENT(IN) :: NM
 REAL(EB), INTENT(IN) :: T
-INTEGER :: N,I1,I2,J1,J2,K1,K2,I,J,K,IW,ICG,IC,OBST_INDEX,NOM,IIO,JJO,KKO
+INTEGER :: I1,I2,J1,J2,K1,K2,I,J,K,IW,ICG,IC,OBST_INDEX,NOM,IIO,JJO,KKO
 REAL(EB) :: TNOW
 LOGICAL :: CREATE,REMOVE
 TYPE (OBSTRUCTION_TYPE), POINTER :: OB
@@ -4822,17 +4822,18 @@ SUBROUTINE REASSIGN_WALL_CELLS(T,NM)
       IC  = CELL_INDEX(BC%II ,BC%JJ ,BC%KK )
       ICG = CELL_INDEX(BC%IIG,BC%JJG,BC%KKG)
       IF (CELL(ICG)%SOLID) CYCLE
-      OBST_INDEX=0
+      OBST_INDEX = 0
+      REMOVE = .FALSE.
+      CREATE = .FALSE.
       CALL GET_BOUNDARY_TYPE
    ENDIF
 ENDDO
 
 ! Loop over all obstructions in the current mesh and initialize newly exposed or covered wall cell faces
 
-OBSTRUCTION_LOOP: DO N=1,N_OBST
+OBSTRUCTION_LOOP: DO OBST_INDEX=1,N_OBST
 
-OB => OBSTRUCTION(N)
-OBST_INDEX=N
+OB => OBSTRUCTION(OBST_INDEX)
 
 IF (.NOT.OB%SCHEDULED_FOR_REMOVAL .AND. .NOT.OB%SCHEDULED_FOR_CREATION) CYCLE OBSTRUCTION_LOOP
 
@@ -4964,7 +4965,8 @@ SUBROUTINE GET_BOUNDARY_TYPE
 WC => MESHES(NM)%WALL(IW)
 BC => MESHES(NM)%BOUNDARY_COORD(WC%BC_INDEX)
 
-IF (IW<=N_EXTERNAL_WALL_CELLS .AND. REMOVE) THEN
+IF (IW<=N_EXTERNAL_WALL_CELLS) THEN
+!IF (IW<=N_EXTERNAL_WALL_CELLS .AND. REMOVE) THEN
    EWC => MESHES(NM)%EXTERNAL_WALL(IW)
    WC%BOUNDARY_TYPE = SOLID_BOUNDARY
    CELL(IC)%SOLID       = .TRUE.
@@ -5023,12 +5025,6 @@ SUBROUTINE GET_BOUNDARY_TYPE
    CALL INIT_WALL_CELL(NM,BC%II,BC%JJ,BC%KK,WC%OBST_INDEX,IW,BC%IOR,WC%SURF_INDEX,IERR,T)
    WC => MESHES(NM)%WALL(IW)
    IF (IW<=N_EXTERNAL_WALL_CELLS) EWC%PRESSURE_BC_TYPE = PRESSURE_BC_TYPE
-! This code is under construction
-!  SF => SURFACE(WC%SURF_INDEX)
-!  IF (SF%VARIABLE_THICKNESS .OR. SF%HT_DIM>1) THEN
-!     CALL FIND_WALL_BACK_INDEX(NM,IW)
-!     CALL REALLOCATE_ONE_D_ARRAYS(NM,WALL_CELL=IW)
-!  ENDIF
 ENDIF
 
 ! Special cases 1: BURNed_AWAY obstruction exposes a surface that also burns, in which case the surface is to ignite immediately.