FDS Source: Ensure continuity of SM3D TEMPERATURE

Author: mcgratta

Source/dump.f90

@@ -4428,7 +4428,6 @@ SUBROUTINE DUMP_SMOKE3D(T,DT,NM)
 REAL(FB) :: DXX,STIME
 REAL(EB), POINTER, DIMENSION(:,:,:) :: FF
 REAL(FB), ALLOCATABLE, DIMENSION(:) :: QQ_PACK
-REAL(EB) :: FR_C
 TYPE(SMOKE3D_TYPE), POINTER :: S3
 
 ! Miscellaneous settings
@@ -4453,13 +4452,6 @@ SUBROUTINE DUMP_SMOKE3D(T,DT,NM)
       ENDDO
    ENDDO
 
-   ! Adjust the temperature as it is used in the expression for the radiation source term
-
-   IF (S3%DISPLAY_TYPE=='TEMPERATURE' .AND. RTE_SOURCE_CORRECTION) THEN
-      FR_C = RTE_SOURCE_CORRECTION_FACTOR**0.25_EB
-      WHERE (CHI_R*Q>QR_CLIP) FF = (FF+TMPM)*FR_C - TMPM
-   ENDIF
-
    ! Interpolate data to cell nodes
 
    DO K=0,KBAR

Source/read.f90

@@ -16026,7 +16026,7 @@ SUBROUTINE READ_SM3D
    IF (N<=N_SMOKE3D_RESERVED) THEN
       IF (N==1) THEN ; QUANTITY='DENSITY' ; SPEC_ID='SOOT' ; ENDIF
       IF (N==2) THEN ; QUANTITY='HRRPUV' ; ENDIF
-      IF (N==3) THEN ; QUANTITY='TEMPERATURE' ; ENDIF
+      IF (N==3) THEN ; QUANTITY='EFFECTIVE FLAME TEMPERATURE' ; ENDIF
    ELSE
       CALL CHECKREAD('SM3D',LU_INPUT,IOS) ; IF (STOP_STATUS==SETUP_STOP) RETURN
       IF (IOS==1) EXIT READ_SM3D_LOOP

Source/smvv.f90

@@ -979,7 +979,7 @@ SUBROUTINE SMOKE3D_TO_FILE(NM,TIME,DX,SMOKE3D_INDEX,VALS,NX,NY,NZ)
       MAX_VAL = MAX(VAL_FDS,MAX_VAL)
    ENDDO
 
-ELSEIF (S3%DISPLAY_TYPE=='TEMPERATURE') THEN
+ELSEIF (S3%DISPLAY_TYPE=='TEMPERATURE' .OR. S3%DISPLAY_TYPE=='EFFECTIVE FLAME TEMPERATURE') THEN
 
    DO I=1,NVALS
       VAL_FDS = MIN(TEMP_MAX_SMV,MAX(TEMP_MIN_SMV,VALS(I)))