Skip to content

Commit 02a07f5

Browse files
committed
FDS source: output max temperature to 3d smokeview (max was not being computed)
1 parent dae95a7 commit 02a07f5

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

Source/smvv.f90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -986,6 +986,7 @@ SUBROUTINE SMOKE3D_TO_FILE(NM,TIME,DX,SMOKE3D_INDEX,VALS,NX,NY,NZ)
986986
VAL_FDS = MIN(TEMP_MAX_SMV,MAX(TEMP_MIN,VALS(I)))
987987
VAL_SMV = 254*((VAL_FDS-TEMP_MIN)/(TEMP_MAX_SMV-TEMP_MIN))
988988
BUFFER_IN(I) = CHAR(INT(VAL_SMV))
989+
MAX_VAL = MAX(VAL_FDS,MAX_VAL)
989990
ENDDO
990991

991992
ELSE

0 commit comments

Comments
 (0)