Set planetocentric flag correctly on setup

MintonGroup · Jul 6, 2021 · f8d52a1 · f8d52a1
1 parent 10c3a00
commit f8d52a1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/rmvs/rmvs_setup.f90 b/src/rmvs/rmvs_setup.f90
@@ -107,6 +107,7 @@ module subroutine rmvs_setup_system(self, param)
                cb%lplanetocentric = .false.
                associate(npl => pl%nbody)
                   allocate(pl%planetocentric(npl))
+                  pl%planetocentric(:)%lplanetocentric = .true.
                   do i = 1, npl
                      allocate(pl%planetocentric(i)%cb, source=cb)
                      allocate(rmvs_pl :: pl%planetocentric(i)%pl)