Skip to content

Commit 0430620

Browse files
committed
FDS Source: Syntax correction
1 parent 020cf85 commit 0430620

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Source/fire.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1190,7 +1190,7 @@ SUBROUTINE CALC_AFT_REAC_AND_PROD(ZZ,ZZ_REAC,ZZ_PROD)
11901190

11911191

11921192
CALL CALC_EQUIV_RATIO(ZZ(1:N_TRACKED_SPECIES), EQUIV)
1193-
IF (SIM_MODE .NE. DNS_MODE .AND. USE_MIXED_ZN_AFT_TMP) THEN
1193+
IF (SIM_MODE /= DNS_MODE .AND. USE_MIXED_ZN_AFT_TMP) THEN
11941194
EQUIV = MAX(1.0_EB,EQUIV)
11951195
ENDIF
11961196

0 commit comments

Comments
 (0)