FDS Source: remove unused

rmcdermo · rmcdermo · commit 8f481cb5a5d4 · 2025-03-05T11:41:37.000-05:00
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
