FDS_SOURCE: Fix variable names

firemodels · Jul 15, 2024 · 9a6a4d7 · 9a6a4d7
1 parent 31799a0
commit 9a6a4d7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/dump.f90 b/Source/dump.f90
@@ -3709,7 +3709,7 @@ SUBROUTINE WRITE_DIAGNOSTICS(T,DT)
 CALL CPU_TIME(CPUTIME)
 
 
-IF (SIMULATION_MODE==DNS)
+IF (SIM_MODE==DNS_MODE) THEN
    IF (ABS(T) > 0._EB) THEN
       OUT_DIGITS = MAX(0,MIN(7,7-INT(LOG10(ABS(T)))))
    ELSE