symba_frag_pos rescaled energies

MintonGroup · Jun 1, 2021 · 1fb1c06 · 1fb1c06
1 parent 518790e
commit 1fb1c06
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -216,6 +216,14 @@ subroutine restore_scale_factors()
       end do
 
       Qloss = Qloss * Escale
+      ke_family = ke_family * Escale
+      Etot_before = Etot_before * Escale
+      pe_before = pe_before * Escale
+      ke_spin_before = ke_spin_before * Escale
+      ke_orbit_before = ke_orbit_before * Escale
+      Ltot_before = Ltot_before * Lscale
+      Lmag_before = Lmag_before * Lscale 
+
       mscale = 1.0_DP
       rscale = 1.0_DP
       vscale = 1.0_DP