Made a small tweak to rotations to help with energy balance in spin

MintonGroup · Dec 31, 2022 · 0362ad0 · 0362ad0
1 parent 28e5cde
commit 0362ad0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90
@@ -349,7 +349,7 @@ module subroutine fraggle_generate_rot_vec(collider)
             rotdir = rotdir - 0.5_DP
             rotdir = .unit. rotdir
             call random_number(rotmag)
-            rotmag = rotmag * .mag. (Lbefore(:) - Lafter(:)) / ((nfrag - 1) * fragments%mass(i) * fragments%radius(i)**2 * fragments%Ip(3,i))
+            rotmag = 0.01_DP * rotmag * .mag. (Lbefore(:) - Lafter(:)) / ((nfrag - 1) * fragments%mass(i) * fragments%radius(i)**2 * fragments%Ip(3,i))
             fragments%rot(:,i) = rotmag * rotdir
          end do