diff --git a/Source/smvv.f90 b/Source/smvv.f90 index 930e19b7fd8..debf00b103e 100644 --- a/Source/smvv.f90 +++ b/Source/smvv.f90 @@ -986,6 +986,7 @@ SUBROUTINE SMOKE3D_TO_FILE(NM,TIME,DX,SMOKE3D_INDEX,VALS,NX,NY,NZ) VAL_FDS = MIN(TEMP_MAX_SMV,MAX(TEMP_MIN,VALS(I))) VAL_SMV = 254*((VAL_FDS-TEMP_MIN)/(TEMP_MAX_SMV-TEMP_MIN)) BUFFER_IN(I) = CHAR(INT(VAL_SMV)) + MAX_VAL = MAX(VAL_FDS,MAX_VAL) ENDDO ELSE