Commit 25822185 authored by Michael Dumbser's avatar Michael Dumbser

First working fully coupled version of FO-CCZ4 + GRHD for a stationary TOV star.

No artificial viscosity, no bullshit. Just as things should be done.

:-)
parent 2a881cfa
......@@ -12,14 +12,14 @@
"dimension": 3,
"end_time": 101.0,
"offset": [
-4.0,
-4.0,
-4.0
-15.0,
-15.0,
-15.0
],
"width": [
8.0,
8.0,
8.0
30.0,
30.0,
30.0
]
},
"shared_memory": {
......
......@@ -371,6 +371,14 @@ RECURSIVE SUBROUTINE PDElimitervalue(limiter_value,xx,numberOfObservables, obser
real :: rr
limiter_value=0
#ifdef CCZ4GRHD
IF( SQRT(xx(1)**2+xx(2)**2+xx(3)**2)>=7.0 .and. SQRT(xx(1)**2+xx(2)**2+xx(3)**2)<=9.5 ) THEN
limiter_value = 1
ELSE
limiter_value = 0
ENDIF
#endif
!limiter_value = 1
END SUBROUTINE PDElimitervalue
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment