From b76657525aa373069f66d4d8a7c995af43bd97aa Mon Sep 17 00:00:00 2001 From: Chandan Paul Date: Sun, 19 Jan 2025 21:55:48 -0500 Subject: [PATCH] FDS Source: Fix Windows debug build warning. --- Source/read.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/read.f90 b/Source/read.f90 index 219a8c57a4c..4d31f9b41b2 100644 --- a/Source/read.f90 +++ b/Source/read.f90 @@ -5240,7 +5240,7 @@ SUBROUTINE PROC_REAC_1 IF(.NOT. RN%REVERSE) THEN IF (RN%REACTYPE==THREE_BODY_ARRHENIUS_TYPE) THEN - RN%A_SI = RN%A_IN*(1000._EB)**(-RN%RHO_EXPONENT) ![kmol/m3]^(-sum(nu)). Here 1000 is for conversion from mol/cm3 to kmol/m3 + RN%A_SI = RN%A_IN*(1000._EB)**(-RN%RHO_EXPONENT) ![kmol/m3]^(-sum(nu)). ELSE RN%A_SI = RN%A_IN*(1000._EB)**(1-RN%RHO_EXPONENT) ![kmol/m3]^(1-sum(nu)) ENDIF