Merge pull request #13762 from mcgratta/master

FDS Source: Remove unused variables
firemodels · Nov 15, 2024 · 2c07b6e · 2c07b6e
2 parents e442e97 + 38e4cc8
commit 2c07b6e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Source/pres.f90 b/Source/pres.f90
@@ -1125,7 +1125,7 @@ SUBROUTINE ULMAT_SOLVER_SETUP(NM)
 INTEGER, INTENT(IN) :: NM
 
 ! Local Variables:
-INTEGER :: I,J,K,IPZ,IOPZ,ICC,JCC,IW,IOR,ZBTYPE_LAST(-3:3),WALL_BTYPE,NZIM,IPZIM,IZERO,JDIM,IERR
+INTEGER :: I,J,K,IPZ,ICC,JCC,IW,IOR,ZBTYPE_LAST(-3:3),WALL_BTYPE,NZIM,IPZIM,IZERO,JDIM,IERR
 INTEGER, POINTER :: IBAR=>NULL(),JBAR=>NULL(),KBAR=>NULL(),IBP1=>NULL(),JBP1=>NULL(),KBP1=>NULL(),&
                     ITRN=>NULL(),JTRN=>NULL(),KTRN=>NULL()
 TYPE(ZONE_MESH_TYPE), POINTER :: ZM
@@ -4802,7 +4802,7 @@ SUBROUTINE GET_MATRIX_INDEXES_H
 USE MPI_F08
 
 ! Local Variables:
-INTEGER :: NM, IOPZ
+INTEGER :: NM
 INTEGER :: I,J,K,IERR
 INTEGER, ALLOCATABLE, DIMENSION(:) :: NUNKH_TOT