Fixed order in which radius is read in

MintonGroup · Aug 5, 2021 · 46caf9e · 46caf9e
1 parent f79e61a
commit 46caf9e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/io/io.f90 b/src/io/io.f90
@@ -794,14 +794,14 @@ module subroutine io_read_body_in(self, param)
                   end if
                   self%Gmass(i) = real(val, kind=DP)
                   self%mass(i) = real(val / param%GU, kind=DP)
+                  if (param%lclose) read(iu, *, iostat=ierr, err=100) self%radius(i)
                class is (swiftest_tp)
                   read(iu, *, iostat=ierr, err=100) self%id(i)
                end select
                read(iu, *, iostat=ierr, err=100) self%xh(1, i), self%xh(2, i), self%xh(3, i)
                read(iu, *, iostat=ierr, err=100) self%vh(1, i), self%vh(2, i), self%vh(3, i)
                select type (self)
                class is (swiftest_pl)
-                  if (param%lclose) read(iu, *, iostat=ierr, err=100) self%radius(i)
                   if (param%lrotation) then
                      read(iu, iostat=ierr, err=100) self%Ip(:, i)
                      read(iu, iostat=ierr, err=100) self%rot(:, i)