diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90 index 10de44f33..17cfe62cf 100644 --- 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(:))