tboudreaux/GridFire
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(neutrino): Updated neutrino output

Browse Source 
GridFire now reports neutrino loss for reaclib reactions. Note this
currently is only computed if precomputation is enabled.
This commit is contained in:
Emily Boudreaux
2025-11-27 15:00:51 -05:00
parent 05175ae87c
commit 39a689ee5d
16 changed files with 97 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tests/extern/C/gridfire_evolve.c vendored
View File

@@ -46,6 +46,8 @@ int main() {
double energy_out;
double dEps_dT;
double dEps_dRho;
double specific_neutrino_energy_loss;
double specific_neutrino_flux;
double mass_lost;
ret = gf_evolve(
@@ -59,7 +61,10 @@ int main() {
Y_out,
&energy_out,
&dEps_dT,
&dEps_dRho, &mass_lost
&dEps_dRho,
&specific_neutrino_energy_loss,
&specific_neutrino_flux,
&mass_lost
);
CHECK_RET_CODE(ret, ctx, "EVOLUTION");
@@ -72,6 +77,8 @@ int main() {
printf("Energy output: %e\n", energy_out);
printf("dEps/dT: %e\n", dEps_dT);
printf("dEps/dRho: %e\n", dEps_dRho);
printf("Specific neutrino energy loss: %e\n", specific_neutrino_energy_loss);
printf("Specific neutrino flux: %e\n", specific_neutrino_flux);
printf("Mass lost: %e\n", mass_lost);
gf_free(ctx);

7
tests/extern/fortran/gridfire_evolve.f90 vendored
View File

@@ -36,7 +36,7 @@ program main
! Output buffers
real(c_double), dimension(8) :: Y_out
real(c_double) :: energy_out, dedt, dedrho, dmass
real(c_double) :: energy_out, dedt, dedrho, snu_e_loss, snu_flux, dmass
! Thermodynamic Conditions (Solar Core-ish)
real(c_double) :: T = 1.5e7 ! 15 Million K
@@ -60,7 +60,7 @@ program main
! --- 5. Evolve ---
print *, "Evolving system (dt =", dt, "s)..."
call net%evolve(Y_in, T, rho, dt, Y_out, energy_out, dedt, dedrho, dmass, ierr)
call net%evolve(Y_in, T, rho, dt, Y_out, energy_out, dedt, dedrho, snu_e_loss, snu_flux, dmass, ierr)
if (ierr /= 0) then
print *, "Evolution Failed with error code: ", ierr
@@ -74,6 +74,9 @@ program main
print *, "--- Results ---"
print '(A, ES12.5, A)', "Energy Generation: ", energy_out, " erg/g/s"
print '(A, ES12.5)', "dEps/dT: ", dedt
print '(A, ES12.5)', "dEps/drho: ", dedrho
print '(A, ES12.5)', "Neutrino Energy Loss: ", snu_e_loss
print '(A, ES12.5)', "Neutrino Flux: ", snu_flux
print '(A, ES12.5)', "Mass Change: ", dmass
print *, ""