updated mass in netcdf_read_frame_base for central body

MintonGroup · Sep 29, 2021 · c0125cf · c0125cf
1 parent 7cf3adf
commit c0125cf
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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]) )