Merge pull request #13890 from rmcdermo/master

FDS Source: remove unused
firemodels · Dec 13, 2024 · b459070 · b459070
2 parents 44bc019 + e73a2c9
commit b459070
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/Source/divg.f90 b/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