Merge pull request #15066 from drjfloyd/master

FDS Source: Fix temperature unit PY%SPECIFIC_HEAT

Author: drjfloyd

Source/read.f90

@@ -6606,7 +6606,7 @@ SUBROUTINE READ_PROP
    ELSE
       ! Type-K CP(20 C)=0.4515 kJ/kg, CP(1200 C)=0.6010 kJ/kg
       DO J = 0,I_MAX_TEMP
-         PY%SPECIFIC_HEAT(J) = 451.5_EB+0.001_EB*(REAL(MAX(20,MIN(1200,J)),EB)-20._EB)*(601.0_EB-451.5_EB)
+         PY%SPECIFIC_HEAT(J) = 451.5_EB+0.001_EB*(REAL(MAX(293,MIN(1493,J)),EB)-293._EB)*(601.0_EB-451.5_EB)
       ENDDO
    ENDIF
    PY%SPECIFIC_HEAT = PY%SPECIFIC_HEAT/TIME_SHRINK_FACTOR