Skip to content

Commit 98ce554

Browse files
authored
Update m_riemann_solvers.fpp
Including a suggestion from coderabbitai, effectively initializing qv_avg to input parameter on 's_compute_speed_of_sound'
1 parent d7fd48f commit 98ce554

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

src/simulation/m_riemann_solvers.fpp

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2850,6 +2850,7 @@ contains
28502850
rho_avg = 5.e-1_wp*(rho_L + rho_R)
28512851
H_avg = 5.e-1_wp*(H_L + H_R)
28522852
gamma_avg = 5.e-1_wp*(gamma_L + gamma_R)
2853+
qv_avg = 5.e-1_wp*(qv_L + qv_R)
28532854
vel_avg_rms = 0._wp
28542855

28552856
$:GPU_LOOP(parallelism='[seq]')

0 commit comments

Comments
 (0)