diff --git a/Source/dump.f90 b/Source/dump.f90 index 71e25a7147c..4b272172ff5 100644 --- a/Source/dump.f90 +++ b/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 diff --git a/Source/read.f90 b/Source/read.f90 index e4220517251..ba54fd89b63 100644 --- a/Source/read.f90 +++ b/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 diff --git a/Source/smvv.f90 b/Source/smvv.f90 index 9342ca7547e..97e61762a5f 100644 --- a/Source/smvv.f90 +++ b/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)))