Merge pull request firemodels#13416 from drjfloyd/master

FDS Source: Fix typo in HRRPUA fit for S-pyro
rmcdermo · Sep 9, 2024 · 71e785b · 71e785b
2 parents 90b60e3 + b19c86c
commit 71e785b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/func.f90 b/Source/func.f90
@@ -5733,7 +5733,7 @@ REAL(EB) FUNCTION Q_REF_FIT(HRRPUA,HOC,Y_S,Q_INC)
 REAL(EB), INTENT(IN) :: HRRPUA,HOC,Y_S,Q_INC
 REAL(EB) :: HRRPUA_SCALE,QFLAME,RHF_ABS
 REAL(EB), PARAMETER :: HRRPUA_SCALE_DATA(0:16) = (/0.0000_EB,0.4100_EB,0.5900_EB,0.6800_EB,0.7700_EB,0.8050_EB,&
-                                                   0.8400_EB,0.8750_EB,0.9100_EB,0.9725_EB,0.9750_EB,0.9775_EB,&
+                                                   0.8400_EB,0.8750_EB,0.9100_EB,0.9225_EB,0.9350_EB,0.9475_EB,&
                                                    0.9600_EB,0.9625_EB,0.9650_EB,0.9675_EB,0.9700_EB/)
 
 CALL INTERPOLATE1D_UNIFORM(0,HRRPUA_SCALE_DATA,HRRPUA/100000._EB,HRRPUA_SCALE)