Merge branch 'development' of github.com:starkiller-astro/Microphysic…

…s into development
AMReX-Astro · May 31, 2020 · 7d39b27 · 7d39b27
2 parents 946c111 + da80977
commit 7d39b27
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/integration/VODE/vode_type_simplified_sdc.F90 b/integration/VODE/vode_type_simplified_sdc.F90
@@ -544,8 +544,8 @@ subroutine jac_to_vode(time, jac_react, vode_state, jac)
 
     eos_state % rho = vode_state % rpar(irp_SRHO)
     eos_state % T = 1.e4   ! initial guess
-    eos_state % xn(:) = y(SFS:SFS-1+nspec)/vode_state % rpar(irp_SRHO)
-    eos_state % h = y(SENTH)/vode_state % rpar(irp_SRHO)
+    eos_state % xn(:) = vode_state % y(SFS:SFS-1+nspec)/vode_state % rpar(irp_SRHO)
+    eos_state % h = vode_state % y(SENTH)/vode_state % rpar(irp_SRHO)
 
     call eos(eos_input_rh, eos_state)
 

diff --git a/interfaces/burn_type.F90 b/interfaces/burn_type.F90
@@ -44,6 +44,11 @@ module burn_type_module
     real(rt) :: aux(naux)
 #endif
 
+#if SDC_EVOLVE_ENTHALPY
+    ! make pressure available to RHS
+    real(rt) :: p0
+#endif
+
     real(rt) :: cv
     real(rt) :: cp
     real(rt) :: y_e