FDS Source: remove commented variables

Author: rmcdermo

Source/wall.f90

@@ -483,18 +483,15 @@ SUBROUTINE SURFACE_HEAT_TRANSFER(NM,T,SF,BC,B1,WALL_INDEX,CFACE_INDEX,PARTICLE_I
 INTEGER, INTENT(IN) :: NM
 INTEGER, INTENT(IN), OPTIONAL :: WALL_INDEX,CFACE_INDEX,PARTICLE_INDEX
 REAL(EB) :: ARO,QNET,RAMP_FACTOR,RSUM_F,PBAR_F,TSI,UN, &
-            RHO_ZZ_F(1:N_TOTAL_SCALARS),ZZ_GET(1:N_TRACKED_SPECIES), & !ZZ_GET_OTHER(1:N_TRACKED_SPECIES), &
-            RHO_OTHER, PBAR_OTHER,D_Z_N(0:I_MAX_TEMP),D_Z_G,D_Z_OTHER,TMP_OTHER,DDO, & !DENOM,PBAR_G, &
+            RHO_ZZ_F(1:N_TOTAL_SCALARS),ZZ_GET(1:N_TRACKED_SPECIES), &
+            RHO_OTHER, PBAR_OTHER,D_Z_N(0:I_MAX_TEMP),D_Z_G,D_Z_OTHER,TMP_OTHER,DDO, &
             MU_DNS_G,MU_DNS_OTHER,MU_OTHER,RHO_D,RHO_D_TURB,RHO_D_DZDN,RHO_D_DZDN_OTHER,RSUM_OTHER, &
-            BBB,CCC,PPP,QQQ,RRR,UUU,YYY,WWW,HTC_OLD,RSC_LOC,DTMP,RSUM_G,MU_G !, &
-            !MW_G,MW_G_2,MW_OTHER,MW_OTHER_2,RHO_G_2,RHO_OTHER_2,RHO_ZZ_G,RHO_ZZ_G_2,RHO_ZZ_OTHER,RHO_ZZ_OTHER_2
+            BBB,CCC,PPP,QQQ,RRR,UUU,YYY,WWW,HTC_OLD,RSC_LOC,DTMP,RSUM_G,MU_G
 LOGICAL :: ATMOSPHERIC_INTERPOLATION
 INTEGER :: IIO,JJO,KKO,N,ADCOUNT
 REAL(EB), POINTER, DIMENSION(:,:,:) :: OM_RHOP
 REAL(EB), POINTER, DIMENSION(:,:,:,:) :: OM_ZZP
 REAL(EB), POINTER, DIMENSION(:,:,:) :: OM_MUP
-! REAL(EB), DIMENSION(0:3,0:3,0:3) :: U_TEMP,F_TEMP,B_TEMP
-! REAL(EB), DIMENSION(-1:3,-1:3,-1:3) :: Z_TEMP
 TYPE(EXTERNAL_WALL_TYPE), POINTER :: EWC
 TYPE(OMESH_TYPE), POINTER :: OM
 TYPE(MESH_TYPE), POINTER :: MM