Skip to content
Draft
Changes from all commits
Commits
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
12 changes: 6 additions & 6 deletions src/simulation/m_data_output.fpp
Original file line number Diff line number Diff line change
Expand Up @@ -1659,12 +1659,6 @@ contains
accel = accel_mag(j - 2, k, l)
end if
else if (p == 0) then
if (chemistry) then
do d = 1, num_species
rhoYks(d) = q_cons_vf(eqn_idx%species%beg + d - 1)%sf(j - 2, k - 2, l)
end do
end if

if (f_probe_owned(probe(i)%x, x_cb(-1), x_cb(m), 1)) then
if (f_probe_owned(probe(i)%y, y_cb(-1), y_cb(n), 2)) then
do s = -1, m
Expand Down Expand Up @@ -1694,6 +1688,12 @@ contains

dyn_p = 0.5_wp*rho*dot_product(vel, vel)

if (chemistry) then
do d = 1, num_species
rhoYks(d) = q_cons_vf(eqn_idx%species%beg + d - 1)%sf(j - 2, k - 2, l)
end do
end if

if (hypoelasticity) then
if (cont_damage) then
! Recover D = U_D/m_s, clamped to [0, 1]
Expand Down
Loading