From 158d86631870bcb9ed8f297a45eb76436361f407 Mon Sep 17 00:00:00 2001 From: pmocz Date: Wed, 22 Jan 2025 09:16:46 -0500 Subject: [PATCH 1/2] fixing uninitialized crystal_core_boundary_mass --- star/private/init.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/star/private/init.f90 b/star/private/init.f90 index fc2ed56bd..258c66998 100644 --- a/star/private/init.f90 +++ b/star/private/init.f90 @@ -744,6 +744,7 @@ subroutine set_starting_star_data(s, ierr) s% len_extra_iwork = 0 s% len_extra_work = 0 + s% crystal_core_boundary_mass = 0d0 s% phase_sep_mixing_mass = -1 call init_random(s) From fa4c62f3abd2b30a9e77f67a1cf653b62b576e00 Mon Sep 17 00:00:00 2001 From: Philip Mocz Date: Wed, 22 Jan 2025 09:51:19 -0500 Subject: [PATCH 2/2] initialize crystal_core_boundary_mass to -1 --- star/private/init.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/star/private/init.f90 b/star/private/init.f90 index 258c66998..4c692c44d 100644 --- a/star/private/init.f90 +++ b/star/private/init.f90 @@ -744,7 +744,7 @@ subroutine set_starting_star_data(s, ierr) s% len_extra_iwork = 0 s% len_extra_work = 0 - s% crystal_core_boundary_mass = 0d0 + s% crystal_core_boundary_mass = -1 s% phase_sep_mixing_mass = -1 call init_random(s)