Merge pull request #13890 from rmcdermo/master

FDS Source: remove unused

Author: rmcdermo

Source/divg.f90

@@ -960,7 +960,6 @@ SUBROUTINE SPECIES_ADVECTION_PART_1
 REAL(EB), POINTER, DIMENSION(:,:,:) :: RHO_Z_P,RHO_RMW
 REAL(EB), POINTER, DIMENSION(:,:,:,:) :: FX_ZZ,FY_ZZ,FZ_ZZ
 REAL(EB) :: ZZ_GET(1:N_TRACKED_SPECIES),MW_G
-REAL(EB), PARAMETER :: DUMMY=0._EB
 REAL(EB), DIMENSION(0:3,0:3,0:3) :: Z_TEMP,U_TEMP,F_TEMP
 INTEGER :: I,J,K,IW,N !,II,JJ,KK,IOR,IC,IIG,JJG,KKG
 TYPE(WALL_TYPE), POINTER :: WC