Merge pull request #14655 from mcgratta/master

FDS Source: Fix unassigned pointer

Author: mcgratta

Source/wall.f90

@@ -2114,16 +2114,6 @@ SUBROUTINE SOLID_HEAT_TRANSFER(NM,T,DT_BC,PARTICLE_INDEX,WALL_INDEX,CFACE_INDEX,
    ENDIF
    Q_CON_F = HTCF*DTMP
 
-   ! Compute back side emissivity
-
-   IF (SF_BACK%EMISSIVITY_SPECIFIED) THEN
-      EMISSIVITY_BACK = SF_BACK%EMISSIVITY
-   ELSEIF (SF%EMISSIVITY_BACK_SPECIFIED) THEN
-      EMISSIVITY_BACK = SF%EMISSIVITY_BACK
-   ELSEIF (BACKING /= INSULATED) THEN
-      CALL GET_EMISSIVITY(ONE_D,NWP,EMISSIVITY_BACK)
-   ENDIF
-
    ! Get heat losses from convection and radiation out of back of surface
 
    SELECT CASE(BACKING)
@@ -2141,6 +2131,11 @@ SUBROUTINE SOLID_HEAT_TRANSFER(NM,T,DT_BC,PARTICLE_INDEX,WALL_INDEX,CFACE_INDEX,
          ELSE
             TMP_GAS_BACK = TMP_0(BC%KK)
          ENDIF
+         IF (SF%EMISSIVITY_BACK_SPECIFIED) THEN
+            EMISSIVITY_BACK = SF%EMISSIVITY_BACK
+         ELSE
+            CALL GET_EMISSIVITY(ONE_D,NWP,EMISSIVITY_BACK)
+         ENDIF
          DTMP = TMP_GAS_BACK - B1%TMP_B
          HTCB = HEAT_TRANSFER_COEFFICIENT(NM,T,DTMP,SF,BACK_SIDE=.TRUE.)
          Q_CON_B = HTCB*DTMP
@@ -2176,6 +2171,13 @@ SUBROUTINE SOLID_HEAT_TRANSFER(NM,T,DT_BC,PARTICLE_INDEX,WALL_INDEX,CFACE_INDEX,
          ELSE
             DIRICHLET_BACK = .FALSE.
          ENDIF
+         IF (SF_BACK%EMISSIVITY_SPECIFIED) THEN
+            EMISSIVITY_BACK = SF_BACK%EMISSIVITY
+         ELSEIF (SF%EMISSIVITY_BACK_SPECIFIED) THEN
+            EMISSIVITY_BACK = SF%EMISSIVITY_BACK
+         ELSEIF (BACKING /= INSULATED) THEN
+            CALL GET_EMISSIVITY(ONE_D,NWP,EMISSIVITY_BACK)
+         ENDIF
 
    END SELECT