Merge branch 'debug'

MintonGroup · Dec 14, 2021 · ef33dd6 · ef33dd6
2 parents 5f017d1 + f6e1a9e
commit ef33dd6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90
@@ -274,7 +274,7 @@ module subroutine symba_step_reset_system(self, param)
                      tp%levelg(1:ntp) = -1
                      tp%levelm(1:ntp) = -1
                      tp%lmask(1:ntp) = .true.
-                     tp%ldiscard(1:npl) = .false.
+                     tp%ldiscard(1:ntp) = .false.
                      nenc_old = system%pltpenc_list%nenc
                      call system%pltpenc_list%setup(0)
                      call system%pltpenc_list%setup(nenc_old)