Deallocate CoilLatentStuff if already allocated during multi-file tra…

…nsition
NREL · Sep 20, 2023 · cc607cb · cc607cb · nrel-bot · Sep 20, 2023
1 parent 5de2874
commit cc607cb
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Transition/CreateNewIDFUsingRulesV23_2_0.f90 b/src/Transition/CreateNewIDFUsingRulesV23_2_0.f90
@@ -308,6 +308,7 @@ SUBROUTINE CreateNewIDFUsingRules(EndOfFile,DiffOnly,InLfn,AskForInput,InputFile
           NumUnitarySystem = GetNumObjectsFound('AIRLOOPHVAC:UNITARYSYSTEM')
           NumUnitaryWAHP = GetNumObjectsFound('AIRLOOPHVAC:UNITARYHEATPUMP:WATERTOAIR')
           NumZoneWAHP = GetNumObjectsFound('ZONEHVAC:WATERTOAIRHEATPUMP')
+          IF (ALLOCATED(CoilLatentStuff)) DEALLOCATE(CoilLatentStuff)
           ALLOCATE(CoilLatentStuff(NumUnitarySystem + NumUnitaryWAHP + NumZoneWAHP))
           NumCoilLatentStuff = 0
           DO Num=1,NumIDFRecords