gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

INTERPOLATION: implement the minmod limiter.

Browse Source
This commit is contained in:
Grzegorz Kowal 2010-12-05 00:42:58 -02:00
parent ce57f9710f
commit 1245a2161d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/interpolation.F90
View File

@ -69,7 +69,12 @@ module interpolation
ds (i) = dvr(i) * dvl(i) ds (i) = dvr(i) * dvl(i)
if (ds(i) .gt. 0.0) then if (ds(i) .gt. 0.0) then
#ifdef MINMOD
dv = sign(0.5, dvr(i)) * min(abs(dvr(i)), abs(dvl(i)))
#endif /* MINMOD */
#ifdef LF
dv = ds(i) / (dvr(i) + dvl(i)) dv = ds(i) / (dvr(i) + dvl(i))
#endif /* LF */
vl(i) = vx(i) + dv vl(i) = vx(i) + dv
vr(i) = vx(i) - dv vr(i) = vx(i) - dv