From 653b6bf82b056616db102b7eb1486af4cf7afc8b Mon Sep 17 00:00:00 2001
From: Anton Khirnov <anton@khirnov.net>
Date: Fri, 26 Feb 2016 17:11:26 +0100
Subject: Reduce dissipation on coarse levels.

Seems to improve stability.
---
 src/setup_epsdis.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/setup_epsdis.c b/src/setup_epsdis.c
index 7afce0d..552859f 100644
--- a/src/setup_epsdis.c
+++ b/src/setup_epsdis.c
@@ -56,7 +56,7 @@ setup_epsdis (CCTK_ARGUMENTS)
       epsdisA[i] = epsdis_for_level[reflvl];
   else
     for (i=0;i<ai*aj*ak;i++)
-      epsdisA[i]=epsdis;
+      epsdisA[i]=epsdis / (1 << reflvl);
 
   if (extra_dissipation_at_outerbound) 
   {
-- 
cgit v1.2.3