Fixed bug that was incorrectly setting status flags on encounter spills

MintonGroup · Aug 24, 2021 · 55d4de3 · 55d4de3
1 parent b41ff55
commit 55d4de3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/util/util_spill.f90 b/src/util/util_spill.f90
@@ -316,7 +316,7 @@ module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive
          ! Therefore we need to set the nenc values for both the keeps and discareds
          discards%nenc = count(lspill_list(:))
          keeps%nenc = count(.not.lspill_list(:)) 
-         if (keeps%nenc > size(keeps%status)) keeps%status(keeps%nenc+1:size(keeps%status)) = INACTIVE
+         if (size(keeps%status) > keeps%nenc) keeps%status(keeps%nenc+1:size(keeps%status)) = INACTIVE
       end associate
 
       return