Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
9
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Switch to GitLab Next
Sign in / Register
Toggle navigation
Open sidebar
MD-CWI-NL
afivo
Commits
775fe94b
Commit
775fe94b
authored
Mar 20, 2020
by
Jannis Teunissen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix bug in Kurganov-Tadmor scheme (factor 0.5 for diffusive flux)
parent
74c8f8b6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
src/m_af_flux_schemes.f90
src/m_af_flux_schemes.f90
+1
-1
No files found.
src/m_af_flux_schemes.f90
View file @
775fe94b
...
...
@@ -214,7 +214,7 @@ contains
real
(
dp
),
intent
(
in
)
::
wmax
(
n_values
)
real
(
dp
),
intent
(
inout
)
::
flux
(
n_values
,
n_vars
)
flux
=
0.5_dp
*
(
flux_l
+
flux_r
)
-
spread
(
wmax
,
2
,
n_vars
)
*
(
u_r
-
u_l
)
flux
=
0.5_dp
*
(
flux_l
+
flux_r
-
spread
(
wmax
,
2
,
n_vars
)
*
(
u_r
-
u_l
)
)
end
subroutine
flux_kurganovTadmor_1d
subroutine
flux_update_densities
(
tree
,
dt
,
n_vars
,
i_cc
,
i_flux
,
&
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment