Fixed allocation bug

MintonGroup · Jan 13, 2023 · 3e92b22 · 3e92b22
1 parent 57b79a6
commit 3e92b22
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/collision/collision_generate.f90 b/src/collision/collision_generate.f90
@@ -203,6 +203,7 @@ module subroutine collision_generate_merge(self, nbody_system, param, t)
                   ! its index in the main pl structure
                   ibiggest = impactors%id(maxloc(pl%Gmass(impactors%id(:)), dim=1))
                   fragments%id(1) = pl%id(ibiggest)
+                  if (allocated(fragments%info)) deallocate(fragments%info)
                   allocate(fragments%info, source=pl%info(ibiggest:ibiggest))
 
                   ! Compute the physical properties of the new body after the merge.