From dfa9b560b33fb2a1b81d16cc89b5d292e98888e1 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 3 Sep 2021 16:45:10 -0400 Subject: [PATCH] Replaced the FORCE MERGE message with a more descriptive message for the Fraggle logfile. --- src/fraggle/fraggle_regime.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fraggle/fraggle_regime.f90 b/src/fraggle/fraggle_regime.f90 index eb614d951..2888d234f 100644 --- a/src/fraggle/fraggle_regime.f90 +++ b/src/fraggle/fraggle_regime.f90 @@ -179,7 +179,7 @@ subroutine fraggle_regime_collresolve(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP - write(*,*) "FORCE MERGE" + call fraggle_io_log_one_message("Fragments would have mass below the minimum. Converting this collision into a merger.") else if( Vimp < Vescp) then regime = COLLRESOLVE_REGIME_MERGE !perfect merging regime