Skip to content

Commit 51bf2ce

Browse files
author
cubic Bot
committed
Increment dbvars when writing alpha_rho_e fields to formatted DB (merges into #1059)
1 parent ed33c3c commit 51bf2ce

File tree

1 file changed

+9
-0
lines changed

1 file changed

+9
-0
lines changed

src/post_process/m_data_output.fpp

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -352,6 +352,15 @@ contains
352352
! Energy
353353
if (E_wrt .or. cons_vars_wrt) dbvars = dbvars + 1
354354
355+
! Individual energies
356+
if (model_eqns == 3) then
357+
do i = 1, num_fluids
358+
if (alpha_rho_e_wrt(i) .or. cons_vars_wrt) then
359+
dbvars = dbvars + 1
360+
end if
361+
end do
362+
end if
363+
355364
! Pressure
356365
if (pres_wrt .or. prim_vars_wrt) dbvars = dbvars + 1
357366

0 commit comments

Comments
 (0)