Skip to content

Commit c603cc8

Browse files
rjfarmerDebraheem
andauthored
Debraheem/fix eps nuc neu total (#496)
Restore eps_nuc_neu to zones undergoing operator split burn. This fixes the history output for 'eps_nuc_neu_total', 'log_Lneu', and 'log_Lneu_nuc'. --------- Co-authored-by: EbF <[email protected]>
1 parent c263191 commit c603cc8

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

star/private/struct_burn_mix.f90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1197,7 +1197,8 @@ subroutine burn1_zone( &
11971197
s% d_dxdt_nuc_dRho(:,k) = 0d0
11981198
s% d_dxdt_nuc_dT(:,k) = 0d0
11991199
s% d_dxdt_nuc_dx(:,:,k) = 0d0
1200-
s% eps_nuc_neu_total(k) = 0d0
1200+
! below, restore eps_nuc_neu to op_split zones.
1201+
s% eps_nuc_neu_total(k) = ending_eps_neu_total
12011202

12021203
do i=1,species ! for use by dX_nuc_drop timestep limiter
12031204
s% dxdt_nuc(i,k) = (s% xa(i,k)-xa_start(i))/dt

0 commit comments

Comments
 (0)