Kreiss-Oliger type dissipation for the restricted full norm 4-3 operator.

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@57 f69c4107-0314-4c4f-9ad4-17e986b73f4a

1 files changed, 6 insertions, 0 deletions

diff --git a/src/dissipation.c b/src/dissipation.c
index 9c8a8a9..cc93b33 100644
--- a/src/dissipation.c
+++ b/src/dissipation.c
@@ -233,9 +233,15 @@ apply (int const varindex, char const * const optstring, void * const arg)
   } else {
     switch(order) {
     case 4: {
+      if ( CCTK_Equals(dissipation_type,"Mattson-Svard-Nordstrom") ) {
       CCTK_FNAME(dissipation_4_3_opt)
         (varptr, cctk_lsh, cctk_gsh, cctk_lbnd,
                             bbox, gsize, dx, &epsdis, &diss_fraction, rhsptr);
+      } else {
+      CCTK_FNAME(dissipation_4_3_alt)
+        (varptr, cctk_lsh, cctk_gsh, cctk_lbnd,
+                            bbox, gsize, dx, &epsdis, &diss_fraction, rhsptr);
+      }
       break;
     }
     case 6: {