Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

remove/modify fe_core_mass limit for tracking velocity #784

Open
wants to merge 7 commits into
base: main
Choose a base branch
from
Open

remove/modify fe_core_mass limit for tracking velocity #784

Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
7daf195
remove fe_core_mass limit for tracking velocity
Debraheem Feb 15, 2025
63e3a13
new fe_core infall routine
Debraheem Mar 7, 2025
b524272
fix infall, test
Debraheem Mar 8, 2025
7cb847b
fix minus sign
Debraheem Mar 8, 2025
e439d10
[ci skip] formatting
Debraheem Mar 8, 2025
fe622b0
empty commit test
Debraheem Mar 10, 2025
ad01b86
Merge branch 'main' into EbF/bugfix/fix_fe_infall_condition
Debraheem Mar 11, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 6 additions & 4 deletions star/private/report.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -405,10 +405,12 @@ subroutine do_report(s, ierr)
if(-velocity(k) > s% fe_core_infall) mass_sum = mass_sum + s% dm(k)
end do

if ((mass_sum > s% fe_core_infall_mass*msun) .and. &
(s%m(k_min) <= s%fe_core_mass*msun)) then
s% fe_core_infall = -velocity(k_min)
end if
k = nz
do while (k > 1 .and. s% m(k) <= s% fe_core_mass * Msun)
k = k-1 ! loop outwards
end do
! k is now the outer index of the fe core
s% fe_core_infall = - minval(s%v(k:nz))
end if

non_fe_core_mass = s% he_core_mass
Expand Down