Merge pull request #14333 from rmcdermo/master

rmcdermo · web-flow · commit 6f15f51d2778 · 2025-03-05T11:42:41.000-05:00
FDS Source: remove unused
diff --git a/Source/func.f90 b/Source/func.f90
@@ -3227,7 +3227,6 @@ END SUBROUTINE REALLOCATE_EDGE
 
 SUBROUTINE ALLOCATE_STORAGE(NM,LP_INDEX,LPC_INDEX,SURF_INDEX,WALL_INDEX,CFACE_INDEX,THIN_WALL_INDEX)
 
-USE GLOBAL_CONSTANTS, ONLY: PYROLYSIS_PREDICTED
 INTEGER, INTENT(IN):: NM,SURF_INDEX
 INTEGER, INTENT(IN), OPTIONAL :: LP_INDEX,LPC_INDEX,WALL_INDEX,CFACE_INDEX,THIN_WALL_INDEX
 INTEGER :: N_NEW_STORAGE_SLOTS,OD_INDEX,TD_INDEX,B1_INDEX,B2_INDEX,BR_INDEX,BC_INDEX,I,NAS
