Fix wrong conditionals in leveling solver

ORNL-CEES · Oct 9, 2023 · f12aa11 · f12aa11
1 parent 7cda2ea
commit f12aa11
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/setup/LevelingSolver.f90 b/src/setup/LevelingSolver.f90
@@ -152,7 +152,7 @@ subroutine LevelingSolver
     end if
 
     if (allocated(dLevel)) then
-        if( SIZE(iAssemblage) /= nElements) then
+        if( SIZE(dLevel) /= nElements) then
             deallocate(dLevel, STAT=n)
             if (n /= 0) then
                 INFOThermo = 20
@@ -165,7 +165,7 @@ subroutine LevelingSolver
     end if
 
     if (allocated(iterHistoryLevel)) then
-        if( SIZE(iAssemblage) /= nElements) then
+        if( SIZE(iterHistoryLevel) /= nElements) then
             deallocate(iterHistoryLevel, STAT=n)
             if (n /= 0) then
                 INFOThermo = 20