src/OldBdry.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#include "cctk.h"
#include "cctk_Arguments.h"

static CCTK_REAL mol_dt;


void MoL_OldBdry_SetDt (CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS

  CCTK_REAL dt;
  CCTK_REAL old_time;

  old_time = *Original_Time - *Original_Delta_Time / cctkGH->cctk_timefac;

  mol_dt = cctkGH->cctk_delta_time;

  dt = cctkGH->cctk_time - old_time;

  cctkGH->cctk_delta_time = dt * cctkGH->cctk_timefac;
}

void MoL_OldBdry_ResetDt (CCTK_ARGUMENTS)
{
  cctkGH->cctk_delta_time = mol_dt;
}