We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e3a22de commit ee298e6Copy full SHA for ee298e6
src/simulation/m_riemann_solvers.fpp
@@ -3163,7 +3163,7 @@ contains
3163
F_L(3:4) = U_L(2)*vel%L(2:3) - B%L(1)*B%L(2:3)
3164
F_L(5:6) = vel%L(1)*B%L(2:3) - vel%L(2:3)*B%L(1)
3165
F_L(7) = (E%L + pTot_L)*vel%L(1) - B%L(1)*(vel%L(1)*B%L(1) + vel%L(2)*B%L(2) + vel%L(3)*B%L(3))
3166
-
+
3167
F_R(1) = U_R(2)
3168
F_R(2) = U_R(2)*vel%R(1) - B%R(1)*B%R(1) + pTot_R
3169
F_R(3:4) = U_R(2)*vel%R(2:3) - B%R(1)*B%R(2:3)
0 commit comments