diff --git a/Source/func.f90 b/Source/func.f90
index 022226bb84a..724cbc41f40 100644
--- 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