From 63ad803a12dd560b50ed5ef3f8e3ce5140ac7a55 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 15 Jun 2021 16:53:20 -0400 Subject: [PATCH] Fixed bug in which central body mass wass computed incorrectly from G*mass --- src/io/io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index e0aa90e47..e8017223d 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -740,7 +740,7 @@ module subroutine io_read_cb_in(self, config) open(unit = iu, file = config%incbfile, status = 'old', form = 'FORMATTED', iostat = ierr) read(iu, *, iostat = ierr) val self%Gmass = real(val, kind=DP) - self%mass = real(val / config%GU * val, kind=DP) + self%mass = real(val / config%GU, kind=DP) read(iu, *, iostat = ierr) self%radius read(iu, *, iostat = ierr) self%j2rp2 read(iu, *, iostat = ierr) self%j4rp4