From c0125cf1dcc48f834350be64e3dddc5fc3b87543 Mon Sep 17 00:00:00 2001 From: Carlisle Wishard Date: Wed, 29 Sep 2021 14:51:56 -0400 Subject: [PATCH] updated mass in netcdf_read_frame_base for central body --- src/netcdf/netcdf.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/netcdf/netcdf.f90 b/src/netcdf/netcdf.f90 index a4be9b37d..130c8ccaf 100644 --- a/src/netcdf/netcdf.f90 +++ b/src/netcdf/netcdf.f90 @@ -405,6 +405,7 @@ module function netcdf_read_frame_base(self, iu, param) result(ierr) call check( nf90_get_var(iu%ncid, iu%id_varid, self%id, start=[idslot]) ) call check( nf90_get_var(iu%ncid, iu%Gmass_varid, self%Gmass, start=[idslot, tslot]) ) + self%mass = self%Gmass / param%GU call check( nf90_get_var(iu%ncid, iu%radius_varid, self%radius, start=[idslot, tslot]) ) if (param%lrotation) then call check( nf90_get_var(iu%ncid, iu%Ip1_varid, self%Ip(1), start=[idslot, tslot]) )