Merge pull request #1498 from rpeacoc/Bug_fix_for_7.5.1

CFAST: Fix for Issue #1496
firemodels · Jun 9, 2020 · 5bb02c0 · 5bb02c0
2 parents f78ae8f + ce6e760
commit 5bb02c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/CFAST/outputspreadsheet.f90 b/Source/CFAST/outputspreadsheet.f90
@@ -1275,7 +1275,7 @@ subroutine ssaddvaluetooutput (ssptr, time, position, outarray)
             fireptr => fireinfo(i)
             if (fireptr%id==device) then
                 f_height = flame_height (fireptr%qdot_actual,fireptr%firearea)
-                call ssaddtolist (position,fireptr%qdot_layers(l),outarray)
+                call ssaddtolist (position,f_height,outarray)
             end if
         end do
     case ('HRR Door Jet Fires')