Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Initialized Mslr_hitandrun for that special merge case
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Feb 23, 2023
1 parent 09547ec commit c107d52
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions src/collision/collision_regime.f90
Original file line number Diff line number Diff line change
Expand Up @@ -288,7 +288,9 @@ subroutine collision_regime_LS12_SI(Mcb, m1, m2, rad1, rad2, rh1, rh2, vb1, vb2,
Msmall = Mtot - Mbig
if (Msmall < min_mfrag) then
regime = COLLRESOLVE_REGIME_MERGE
Mbig = Mtot
Mslr = 0.0_DP
Mslr_hitandrun = 0.0_DP
else
Mslr_hitandrun = max(calc_Qrd_rev(Msmall, Mbig, Mint, den1, den2, Vimp, c_star), min_mfrag)
if (regime == COLLRESOLVE_REGIME_HIT_AND_RUN ) then
Expand Down

0 comments on commit c107d52

Please sign in to comment.