FDS Source: Issue #13181. Fix bug related to OBST removal

firemodels · Jul 20, 2024 · 2e09697 · 2e09697
1 parent f3dbf79
commit 2e09697
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/init.f90 b/Source/init.f90
@@ -4957,7 +4957,7 @@ SUBROUTINE GET_BOUNDARY_TYPE
    IW_OLD = CELL(ICG_OLD)%WALL_INDEX(-IOR)
    IF (IW_OLD>0) THEN
       WC_OLD => MESHES(NM)%WALL(IW_OLD)
-      IF (SF%THERMAL_BC_INDEX==PYROLYSIS_SPECIFIED) THEN
+      IF (SF%PYROLYSIS_MODEL==PYROLYSIS_SPECIFIED) THEN
          B1     => MESHES(NM)%BOUNDARY_PROP1(WC%B1_INDEX)
          B1_OLD => MESHES(NM)%BOUNDARY_PROP1(WC_OLD%B1_INDEX)
          IF (WC_OLD%SURF_INDEX==WC%SURF_INDEX) B1%T_IGN = B1_OLD%T_IGN