Skip to content

Commit d1d367d

Browse files
committed
Update m_phase_change.fpp
1 parent 096b32d commit d1d367d

File tree

1 file changed

+0
-2
lines changed

1 file changed

+0
-2
lines changed

src/common/m_phase_change.fpp

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -128,8 +128,6 @@ contains
128128
dynE = dynE + 5.0e-1_wp*q_cons_vf(i)%sf(j, k, l)**2 / max(rho, sgm_eps)
129129
end do
130130

131-
print *, 'test'
132-
133131
! calculating the internal mixture energy that MUST be preserved throughout pT- and pTg-relaxation procedures
134132
! This calulation is performed as the total energy minus the kinetic one as energy it is preserved at discontinuities
135133
rhoe = q_cons_vf(E_idx)%sf(j, k, l) - dynE

0 commit comments

Comments
 (0)