Merge pull request firemodels#13480 from drjfloyd/master

FDS Source: Move variable initialization. Issue firemodels#13478
mcgratta · Sep 25, 2024 · b28ee7c · b28ee7c
2 parents 51a2885 + 68c8fea
commit b28ee7c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Source/wall.f90 b/Source/wall.f90
@@ -2168,7 +2168,8 @@ SUBROUTINE SOLID_HEAT_TRANSFER(NM,T,DT_BC,PARTICLE_INDEX,WALL_INDEX,CFACE_INDEX,
    ! Determine additional heat sources
 
    Q_ADD = 0._EB
-
+   Q_IR = 0._EB
+
    ! Add internal heat source specified by user
 
    DO I=1,NWP
@@ -2204,7 +2205,6 @@ SUBROUTINE SOLID_HEAT_TRANSFER(NM,T,DT_BC,PARTICLE_INDEX,WALL_INDEX,CFACE_INDEX,
    ! Calculate internal radiation for Cartesian geometry only
 
    IF (SF%INTERNAL_RADIATION) THEN
-      Q_IR = 0._EB
       DO I=1,NWP
          IF (SF%KAPPA_S(LAYER_INDEX(I))<0._EB) THEN
             VOLSUM = 0._EB