Merge pull request #13762 from mcgratta/master

FDS Source: Remove unused variables

Author: mcgratta

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