Skip to content

Commit ab86026

Browse files
author
mohdsaid497566
committed
small fixes in m_ibm
1 parent 514b771 commit ab86026

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/simulation/m_ibm.fpp

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -218,13 +218,13 @@ contains
218218
! If in simulation, use acc mixture subroutines
219219
if (elasticity) then
220220
call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv_K, &
221-
gp%ip%alpha, gp%ip%alpha_rho, Re_K, j, k, l, G_K, Gs)
221+
gp%ip%alpha, gp%ip%alpha_rho, Re_K, G_K, Gs)
222222
else if (bubbles_euler) then
223223
call s_convert_species_to_mixture_variables_bubbles_acc(rho, gamma, pi_inf, qv_K, &
224-
gp%ip%alpha, gp%ip%alpha_rho, Re_K, j, k, l)
224+
gp%ip%alpha, gp%ip%alpha_rho, Re_K)
225225
else
226226
call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv_K, &
227-
gp%ip%alpha, gp%ip%alpha_rho, Re_K, j, k, l)
227+
gp%ip%alpha, gp%ip%alpha_rho, Re_K)
228228
end if
229229
end if
230230

0 commit comments

Comments
 (0)