diff options
Diffstat (limited to 'src/dissipation.c')
| -rw-r--r-- | src/dissipation.c | 39 |
1 files changed, 35 insertions, 4 deletions
diff --git a/src/dissipation.c b/src/dissipation.c index 6426431..a1557cc 100644 --- a/src/dissipation.c +++ b/src/dissipation.c @@ -27,6 +27,16 @@ void CCTK_FCALL CCTK_FNAME(dissipation_6_5_opt) (const CCTK_REAL *var, const CCTK_REAL *epsdis, const CCTK_REAL *diss_fraction, CCTK_REAL *rhs); +void CCTK_FCALL CCTK_FNAME(dissipation_6_5_alt) (const CCTK_REAL *var, + const CCTK_INT *ni, + const CCTK_INT *nj, + const CCTK_INT *nk, + const CCTK_INT *bbox, + const CCTK_INT *gsize, + const CCTK_REAL *dx, + const CCTK_REAL *epsdis, + const CCTK_REAL *diss_fraction, + CCTK_REAL *rhs); void CCTK_FCALL CCTK_FNAME(dissipation_2_1) (const CCTK_REAL *var, const CCTK_INT *ni, const CCTK_INT *nj, @@ -63,6 +73,15 @@ void CCTK_FCALL CCTK_FNAME(dissipation_8_4) (const CCTK_REAL *var, const CCTK_REAL *dx, const CCTK_REAL *epsdis, CCTK_REAL *rhs); +void CCTK_FCALL CCTK_FNAME(dissipation_8_4_alt) (const CCTK_REAL *var, + const CCTK_INT *ni, + const CCTK_INT *nj, + const CCTK_INT *nk, + const CCTK_INT *bbox, + const CCTK_INT *gsize, + const CCTK_REAL *dx, + const CCTK_REAL *epsdis, + CCTK_REAL *rhs); static void apply (int const varindex, char const * const optstring, void * const arg); @@ -170,9 +189,15 @@ apply (int const varindex, char const * const optstring, void * const arg) break; } case 8: { - CCTK_FNAME(dissipation_8_4) - (varptr, &cctk_lsh[0], &cctk_lsh[1], &cctk_lsh[2], + if ( CCTK_Equals(dissipation_type,"Mattson-Svard-Nordstrom") ) { + CCTK_FNAME(dissipation_8_4) + (varptr, &cctk_lsh[0], &cctk_lsh[1], &cctk_lsh[2], + bbox, gsize, dx, &epsdis, rhsptr); + } else { + CCTK_FNAME(dissipation_8_4_alt) + (varptr, &cctk_lsh[0], &cctk_lsh[1], &cctk_lsh[2], bbox, gsize, dx, &epsdis, rhsptr); + } break; } default: @@ -187,9 +212,15 @@ apply (int const varindex, char const * const optstring, void * const arg) break; } case 6: { - CCTK_FNAME(dissipation_6_5_opt) - (varptr, cctk_lsh, cctk_gsh, cctk_lbnd, + if ( CCTK_Equals(dissipation_type,"Mattson-Svard-Nordstrom") ) { + CCTK_FNAME(dissipation_6_5_opt) + (varptr, cctk_lsh, cctk_gsh, cctk_lbnd, + bbox, gsize, dx, &epsdis, &diss_fraction, rhsptr); + } else { + CCTK_FNAME(dissipation_6_5_alt) + (varptr, cctk_lsh, cctk_gsh, cctk_lbnd, bbox, gsize, dx, &epsdis, &diss_fraction, rhsptr); + } break; } default: |