From 0362ad0d3d4b130cfa651a1cab04cba04539ec28 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Sat, 31 Dec 2022 13:24:30 -0500 Subject: [PATCH] Made a small tweak to rotations to help with energy balance in spin --- src/fraggle/fraggle_generate.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index 8e434ed6a..a68cf7e4f 100644 --- 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