diff --git a/src/symba/symba_setup.f90 b/src/symba/symba_setup.f90 index 4a1ca9498..d48cc7511 100644 --- a/src/symba/symba_setup.f90 +++ b/src/symba/symba_setup.f90 @@ -114,6 +114,7 @@ module subroutine symba_setup_encounter_list(self, n) call encounter_setup_list(self, n) if (n <= 0_I8B) return + if (allocated(self%level)) deallocate(self%level) allocate(self%level(n)) self%level(:) = -1