From 98a4d5d9c792c2de5d19eef314df47f7bbbc96e6 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 17 Aug 2021 19:39:28 -0400 Subject: [PATCH] Added back an initial try of f_spin=0.05 in the fragmenation code --- src/fragmentation/fragmentation.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fragmentation/fragmentation.f90 b/src/fragmentation/fragmentation.f90 index 8ba00c7cf..d4a94627e 100644 --- a/src/fragmentation/fragmentation.f90 +++ b/src/fragmentation/fragmentation.f90 @@ -96,7 +96,7 @@ module subroutine fragmentation_initialize(system, param, family, x, v, L_spin, L_frag_orb(:) = L_orb(:, 1) + L_orb(:, 2) L_frag_spin(:) = L_spin(:, 1) + L_spin(:, 2) L_frag_budget(:) = L_frag_orb(:) + L_frag_spin(:) - f_spin = norm2(L_frag_spin(:)) / norm2(L_frag_budget(:)) + f_spin = 0.05_DP call reset_fragments() call define_coordinate_system()