diff options
author | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2003-11-05 20:06:56 +0000 |
---|---|---|
committer | schnetter <schnetter@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2003-11-05 20:06:56 +0000 |
commit | 5b8384308087f9a2cf52a75f4759de1eef65d2d8 (patch) | |
tree | df6ecfb4f97828b4518dffa1bbe95eb9ba6446f1 | |
parent | ca2f3d28e0b9a410f1279817fd3a9761eaad2c8e (diff) |
Apply boundary conditions at POSTRESTRICT.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@59 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
-rw-r--r-- | interface.ccl | 2 | ||||
-rw-r--r-- | schedule.ccl | 11 |
2 files changed, 11 insertions, 2 deletions
diff --git a/interface.ccl b/interface.ccl index 587729d..ed14cde 100644 --- a/interface.ccl +++ b/interface.ccl @@ -14,7 +14,7 @@ cctk_real scalarevolve type=GF Timelevels=3 } "The evolved scalar field" -CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER IN GH, \ +CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, \ CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \ CCTK_STRING IN var_name, CCTK_STRING IN bc_name) USES FUNCTION Boundary_SelectVarForBC diff --git a/schedule.ccl b/schedule.ccl index 0e59f65..4693dd3 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -23,7 +23,16 @@ schedule WaveToyFreeF90_Boundaries as WaveToy_Boundaries at EVOL AFTER WaveToy_E { LANG: Fortran } "Boundaries of 3D wave equation" - + schedule GROUP ApplyBCs as WaveToyFreeF90_ApplyBCs at EVOL after WaveToy_Boundaries { } "Apply boundary conditions" + +schedule WaveToyFreeF90_Boundaries as WaveToy_Boundaries at POSTRESTRICT +{ + LANG: Fortran +} "Boundaries of 3D wave equation" + +schedule GROUP ApplyBCs as WaveToyFreeF90_ApplyBCs at POSTRESTRICT after WaveToy_Boundaries +{ +} "Apply boundary conditions" |