From e73a2c9832a270beab6500c353f43f458b655664 Mon Sep 17 00:00:00 2001 From: rmcdermo Date: Fri, 13 Dec 2024 15:50:05 -0500 Subject: [PATCH] FDS Source: remove unused --- Source/divg.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/Source/divg.f90 b/Source/divg.f90 index da7287f941a..d00687b4bee 100644 --- 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