diff --git a/src/rmvs/rmvs_setup.f90 b/src/rmvs/rmvs_setup.f90 index 7955fc74a..9d5916f56 100644 --- 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)