diff options
Diffstat (limited to 'src/RK2.c')
-rw-r--r-- | src/RK2.c | 18 |
1 files changed, 12 insertions, 6 deletions
@@ -102,6 +102,12 @@ void MoL_RK2Add(CCTK_ARGUMENTS) totalsize *= cctk_ash[arraydim]; } + CCTK_INT rl = 0; + if (CCTK_IsFunctionAliased("GetRefinementLevel")) { + rl = GetRefinementLevel(cctkGH); + } + CCTK_INT tl = 0; + switch (*MoL_Intermediate_Step) { @@ -114,7 +120,7 @@ void MoL_RK2Add(CCTK_ARGUMENTS) CCTK_INT const tls[] = {0}; CCTK_REAL const facts[] = {CCTK_DELTA_TIME}; MoL_LinearCombination(cctkGH, - EvolvedVariableIndex[var], 1.0, + EvolvedVariableIndex[var], rl, tl, 1.0, srcs, tls, facts, nsrcs); } @@ -125,7 +131,7 @@ void MoL_RK2Add(CCTK_ARGUMENTS) CCTK_INT const tls[] = {0}; CCTK_REAL const facts[] = {CCTK_DELTA_TIME}; MoL_LinearCombination(cctkGH, - EvolvedArrayVariableIndex[var], 1.0, + EvolvedArrayVariableIndex[var], rl, tl, 1.0, srcs, tls, facts, nsrcs); } @@ -140,7 +146,7 @@ void MoL_RK2Add(CCTK_ARGUMENTS) CCTK_INT const tls[] = {0}; CCTK_REAL const facts[] = {CCTK_DELTA_TIME}; MoL_LinearCombination(cctkGH, - EvolvedComplexVariableIndex[var], 1.0, + EvolvedComplexVariableIndex[var], rl, tl, 1.0, srcs, tls, facts, nsrcs); } @@ -158,7 +164,7 @@ void MoL_RK2Add(CCTK_ARGUMENTS) CCTK_INT const tls[] = {1, 0}; CCTK_REAL const facts[] = {0.5, CCTK_DELTA_TIME}; MoL_LinearCombination(cctkGH, - EvolvedVariableIndex[var], 0.5, + EvolvedVariableIndex[var], rl, tl, 0.5, srcs, tls, facts, nsrcs); } @@ -170,7 +176,7 @@ void MoL_RK2Add(CCTK_ARGUMENTS) CCTK_INT const tls[] = {1, 0}; CCTK_REAL const facts[] = {0.5, CCTK_DELTA_TIME}; MoL_LinearCombination(cctkGH, - EvolvedArrayVariableIndex[var], 0.5, + EvolvedArrayVariableIndex[var], rl, tl, 0.5, srcs, tls, facts, nsrcs); } @@ -186,7 +192,7 @@ void MoL_RK2Add(CCTK_ARGUMENTS) CCTK_INT const tls[] = {1, 0}; CCTK_REAL const facts[] = {0.5, CCTK_DELTA_TIME}; MoL_LinearCombination(cctkGH, - EvolvedComplexVariableIndex[var], 0.5, + EvolvedComplexVariableIndex[var], rl, tl, 0.5, srcs, tls, facts, nsrcs); } |