diff --git a/Source/read.f90 b/Source/read.f90 index 4cdc92a7d56..78b71ccfb2d 100644 --- a/Source/read.f90 +++ b/Source/read.f90 @@ -5234,7 +5234,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