Skip to content

Commit 62d430e

Browse files
committed
Update m_variables_conversion.fpp
1 parent 7bd0efa commit 62d430e

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/common/m_variables_conversion.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1634,7 +1634,7 @@ contains
16341634
pi_infs(2))/gammas(2)
16351635
c = (1._wp/(rho*(adv(1)/blkmod1 + adv(2)/blkmod2)))
16361636
elseif (model_eqns == 3) then
1637-
c = sum( adv * gs_min * ( pres + ps_inf ) ) / rho
1637+
c = sum(adv*gs_min*(pres + ps_inf))/rho
16381638
elseif (((model_eqns == 4) .or. (model_eqns == 2 .and. bubbles_euler))) then
16391639
! Sound speed for bubble mmixture to order O(\alpha)
16401640

0 commit comments

Comments
 (0)