Fixed uninitialized heliocentric central body in an encountering test…

… particle structure
MintonGroup · Jun 15, 2021 · 6fa0b1f · 6fa0b1f
1 parent 6ae9c82
commit 6fa0b1f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90
@@ -482,6 +482,7 @@ subroutine rmvs_make_planetocentric(pl, cb, tp, config)
                       tpenci => pl%planetocentric(i)%tp)
                tpenci%lplanetocentric = .true.
                call tpenci%setup(nenc(i))
+               tpenci%cb_heliocentric = cb
                tpenci%ipleP = i
                tpenci%status(:) = ACTIVE
                tpenci%name(:) = pack(tp%name(:), encmask(:))