Reduced fragment numbers back down to avoid blowing up the system with fragments

MintonGroup · May 10, 2021 · 7da0bf6 · 7da0bf6
1 parent 3e6179c
commit 7da0bf6
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/src/symba/symba_casedisruption.f90 b/src/symba/symba_casedisruption.f90
@@ -32,7 +32,7 @@ function symba_casedisruption (symba_plA, family, nmergeadd, mergeadd_list, x, v
    logical                                 :: lmerge
 
    ! Collisional fragments will be uniformly distributed around the pre-impact barycenter
-   nfrag = 22 ! This value is set for testing. This needs to be updated such that it is calculated or set by the user
+   nfrag = 11 ! This value is set for testing. This needs to be updated such that it is calculated or set by the user
    allocate(m_frag(nfrag))
    allocate(rad_frag(nfrag))
    allocate(xb_frag(NDIM, nfrag))

diff --git a/src/symba/symba_casehitandrun.f90 b/src/symba/symba_casehitandrun.f90
@@ -51,7 +51,7 @@ function symba_casehitandrun(symba_plA, family, nmergeadd, mergeadd_list, id, x,
       nfrag = 0
       lpure = .true.
    else ! Imperfect hit and run, so we'll keep the largest body and destroy the other
-      nfrag = 12
+      nfrag = 11
       lpure = .false.
       allocate(m_frag(nfrag))
       allocate(id_frag(nfrag))

diff --git a/src/symba/symba_casesupercatastrophic.f90 b/src/symba/symba_casesupercatastrophic.f90
@@ -32,7 +32,7 @@ function symba_casesupercatastrophic (symba_plA, family, nmergeadd, mergeadd_lis
    logical                                 :: lmerge
 
    ! Collisional fragments will be uniformly distributed around the pre-impact barycenter
-   nfrag = 42 ! This value is set for testing. This needs to be updated such that it is calculated or set by the user
+   nfrag = 20 ! This value is set for testing. This needs to be updated such that it is calculated or set by the user
    allocate(m_frag(nfrag))
    allocate(rad_frag(nfrag))
    allocate(xb_frag(NDIM, nfrag))