eschnett/cactusamrex - Change GRS6VZW2JZA6FNNEX2FPMG3S5W5VC4FL3O3JIKVROL2B3EIUSVWAC

ADMBase: Correct schedule

Created by Erik Schnetter on December 16, 2019

GRS6VZW2JZA6FNNEX2FPMG3S5W5VC4FL3O3JIKVROL2B3EIUSVWAC

Dependencies

[2] O4RDTKKLC3OK5MSXNMTMOXOONLV3XSMH4OPZMANRBVYRFVJJ5KGQC

In channels

main

master

Change contents

Replacement in ADMBase/schedule.ccl at line 4 [2.1598]
B:BD[2.1697] → [2.1697:1740]
```
  SCHEDULE ADMBase_initial_data IN initial
```
[2.1697]
[2.1740]
```
  SCHEDULE ADMBase_initial_data AT initial
```
Replacement in ADMBase/schedule.ccl at line 12 [2.1598]
B:BD[2.1894] → [2.1894:1938]
```
  SCHEDULE ADMBase_initial_lapse IN initial
```
[2.1894]
[2.1938]
```
  SCHEDULE ADMBase_initial_lapse AT initial
```
Replacement in ADMBase/schedule.ccl at line 20 [2.1598]
B:BD[2.2054] → [2.2054:2100]
```
  SCHEDULE ADMBase_initial_dtlapse IN initial
```
[2.2054]
[2.2100]
```
  SCHEDULE ADMBase_initial_dtlapse AT initial
```
Replacement in ADMBase/schedule.ccl at line 28 [2.1598]
B:BD[2.2219] → [2.2219:2263]
```
  SCHEDULE ADMBase_initial_shift IN initial
```
[2.2219]
[2.2263]
```
  SCHEDULE ADMBase_initial_shift AT initial
```
Replacement in ADMBase/schedule.ccl at line 36 [2.1598]
B:BD[2.2380] → [2.2380:2426]
```
  SCHEDULE ADMBase_initial_dtshift IN initial
```
[2.2380]
[2.2426]
```
  SCHEDULE ADMBase_initial_dtshift AT initial
```

File deletion: initial.cxx

BF:BFD[2.2509] → [2.2510:2523]

BF:BFD[2.2523] → [2.2524:2524]

B:BD[2.2524] → [2.2525:6802]

#include <loop.hxx>
#include <cctk.h>
#include <cctk_Arguments_Checked.h>
#include <cctk_Parameters.h>
namespace ADMBase {
extern "C" void ADMBase_initial_data(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_data;
  DECLARE_CCTK_PARAMETERS;
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> gxx_(cctkGH, gxx);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> gxy_(cctkGH, gxy);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> gxz_(cctkGH, gxz);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> gyy_(cctkGH, gyy);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> gyz_(cctkGH, gyz);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> gzz_(cctkGH, gzz);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> kxx_(cctkGH, kxx);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> kxy_(cctkGH, kxy);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> kxz_(cctkGH, kxz);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> kyy_(cctkGH, kyy);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> kyz_(cctkGH, kyz);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> kzz_(cctkGH, kzz);
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { gxx_(p.I) = 1; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { gxy_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { gxz_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { gyy_(p.I) = 1; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { gyz_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { gzz_(p.I) = 1; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { kxx_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { kxy_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { kxz_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { kyy_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { kyz_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { kzz_(p.I) = 0; });
}
extern "C" void ADMBase_initial_lapse(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_lapse;
  DECLARE_CCTK_PARAMETERS;
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> alp_(cctkGH, alp);
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { alp_(p.I) = 1; });
}
extern "C" void ADMBase_initial_dtlapse(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_dtlapse;
  DECLARE_CCTK_PARAMETERS;
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> dtalp_(cctkGH, dtalp);
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { dtalp_(p.I) = 0; });
}
extern "C" void ADMBase_initial_shift(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_shift;
  DECLARE_CCTK_PARAMETERS;
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> betax_(cctkGH, betax);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> betay_(cctkGH, betay);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> betaz_(cctkGH, betaz);
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { betax_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { betay_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { betaz_(p.I) = 0; });
}
extern "C" void ADMBase_initial_dtshift(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_dtshift;
  DECLARE_CCTK_PARAMETERS;
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> dtbetax_(cctkGH, dtbetax);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> dtbetay_(cctkGH, dtbetay);
  const Loop::GF3D<CCTK_REAL, 0, 0, 0> dtbetaz_(cctkGH, dtbetaz);
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { dtbetax_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { dtbetay_(p.I) = 0; });
  Loop::loop_all<0, 0, 0>(cctkGH,
                          [&](const Loop::PointDesc &p) { dtbetaz_(p.I) = 0; });
}
} // namespace ADMBase

File addition: admbase.cxx (-rw-r--r--)

[2.2509]

#include <loop.hxx>
#include <cctk.h>
#include <cctk_Arguments_Checked.h>
#include <cctk_Parameters.h>
namespace ADMBase {
using namespace Loop;
extern "C" void ADMBase_initial_data(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_data;
  DECLARE_CCTK_PARAMETERS;
  const GF3D<CCTK_REAL, 0, 0, 0> gxx_(cctkGH, gxx);
  const GF3D<CCTK_REAL, 0, 0, 0> gxy_(cctkGH, gxy);
  const GF3D<CCTK_REAL, 0, 0, 0> gxz_(cctkGH, gxz);
  const GF3D<CCTK_REAL, 0, 0, 0> gyy_(cctkGH, gyy);
  const GF3D<CCTK_REAL, 0, 0, 0> gyz_(cctkGH, gyz);
  const GF3D<CCTK_REAL, 0, 0, 0> gzz_(cctkGH, gzz);
  const GF3D<CCTK_REAL, 0, 0, 0> kxx_(cctkGH, kxx);
  const GF3D<CCTK_REAL, 0, 0, 0> kxy_(cctkGH, kxy);
  const GF3D<CCTK_REAL, 0, 0, 0> kxz_(cctkGH, kxz);
  const GF3D<CCTK_REAL, 0, 0, 0> kyy_(cctkGH, kyy);
  const GF3D<CCTK_REAL, 0, 0, 0> kyz_(cctkGH, kyz);
  const GF3D<CCTK_REAL, 0, 0, 0> kzz_(cctkGH, kzz);
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gxx_(p.I) = 1; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gxy_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gxz_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gyy_(p.I) = 1; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gyz_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gzz_(p.I) = 1; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { kxx_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { kxy_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { kxz_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { kyy_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { kyz_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { kzz_(p.I) = 0; });
}
extern "C" void ADMBase_initial_lapse(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_lapse;
  DECLARE_CCTK_PARAMETERS;
  const GF3D<CCTK_REAL, 0, 0, 0> alp_(cctkGH, alp);
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { alp_(p.I) = 1; });
}
extern "C" void ADMBase_initial_dtlapse(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_dtlapse;
  DECLARE_CCTK_PARAMETERS;
  const GF3D<CCTK_REAL, 0, 0, 0> dtalp_(cctkGH, dtalp);
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { dtalp_(p.I) = 0; });
}
extern "C" void ADMBase_initial_shift(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_shift;
  DECLARE_CCTK_PARAMETERS;
  const GF3D<CCTK_REAL, 0, 0, 0> betax_(cctkGH, betax);
  const GF3D<CCTK_REAL, 0, 0, 0> betay_(cctkGH, betay);
  const GF3D<CCTK_REAL, 0, 0, 0> betaz_(cctkGH, betaz);
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { betax_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { betay_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { betaz_(p.I) = 0; });
}
extern "C" void ADMBase_initial_dtshift(CCTK_ARGUMENTS) {
  DECLARE_CCTK_ARGUMENTS_ADMBase_initial_dtshift;
  DECLARE_CCTK_PARAMETERS;
  const GF3D<CCTK_REAL, 0, 0, 0> dtbetax_(cctkGH, dtbetax);
  const GF3D<CCTK_REAL, 0, 0, 0> dtbetay_(cctkGH, dtbetay);
  const GF3D<CCTK_REAL, 0, 0, 0> dtbetaz_(cctkGH, dtbetaz);
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { dtbetax_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { dtbetay_(p.I) = 0; });
  loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { dtbetaz_(p.I) = 0; });
}
} // namespace ADMBase

Replacement in ADMBase/src/make.code.defn at line 4 [2.6820]
B:BD[2.6900] → [2.6900:6919]
```
SRCS = initial.cxx
```
[2.6900]
[2.6919]
```
SRCS = admbase.cxx
```

ADMBase: Correct schedule

Dependencies

In channels

Change contents

Replacement in ADMBase/schedule.ccl at line 4 [2.1598]

Replacement in ADMBase/schedule.ccl at line 12 [2.1598]

Replacement in ADMBase/schedule.ccl at line 20 [2.1598]

Replacement in ADMBase/schedule.ccl at line 28 [2.1598]

Replacement in ADMBase/schedule.ccl at line 36 [2.1598]

File deletion: initial.cxx

File addition: admbase.cxx (-rw-r--r--)

Replacement in ADMBase/src/make.code.defn at line 4 [2.6820]