Replaced the FORCE MERGE message with a more descriptive message for …

…the Fraggle logfile.
MintonGroup · Sep 3, 2021 · dfa9b56 · dfa9b56
1 parent 6e728a3
commit dfa9b56
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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