FDS Source: Add back line accidentally chopped

mcgratta · Nov 5, 2023 · 4f1b39f · 4f1b39f
1 parent b92d606
commit 4f1b39f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Source/wall.f90 b/Source/wall.f90
@@ -2646,6 +2646,7 @@ SUBROUTINE SOLID_HEAT_TRANSFER_1D(NM,T,DT_BC,PARTICLE_INDEX,WALL_INDEX,CFACE_IND
 
 B1%Q_CON_F = B1%Q_CON_F - 0.5_EB*HTCF*DT_BC_SUB*B1%TMP_F
 IF (RADIATION .AND. .NOT.SF%INTERNAL_RADIATION) B1%Q_RAD_OUT = B1%Q_RAD_OUT + &
+                                                DT_BC_SUB*(B1%TMP_F_OLD**4+2._EB*B1%TMP_F_OLD**3*(B1%TMP_F-B1%TMP_F_OLD))
 
 ! Clipping for excessively high or low temperatures