diff options
| author | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2003-11-05 20:06:35 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2003-11-05 20:06:35 +0000 |
| commit | b6a1b3cfe51b1a130ef5870c38e5c469d03a7685 (patch) | |
| tree | c21553766bc0b026fe2a1cff6e68b3bb7a506c00 | |
| parent | 4eb86fb0087a2639cac180e5e836d7884f5e8648 (diff) | |
Apply boundary conditions at postrestrict.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@86 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -rw-r--r-- | interface.ccl | 2 | ||||
| -rw-r--r-- | schedule.ccl | 9 |
2 files changed, 10 insertions, 1 deletions
diff --git a/interface.ccl b/interface.ccl index 81ec878..32a1cc0 100644 --- a/interface.ccl +++ b/interface.ccl @@ -13,7 +13,7 @@ cctk_real scalarevolve type = GF Timelevels=3 phi } "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 1f27c5c..7dddb7f 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -27,3 +27,12 @@ schedule WaveToyF90_Boundaries as WaveToy_Boundaries at EVOL AFTER WaveToy_Evolu schedule GROUP ApplyBCs as WaveToyF90_ApplyBCs at EVOL after WaveToy_Boundaries { } "Apply boundary conditions" + +schedule WaveToyF90_Boundaries as WaveToy_Boundaries at POSTRESTRICT +{ + LANG: Fortran +} "Boundaries of 3D wave equation" + +schedule GROUP ApplyBCs as WaveToyF90_ApplyBCs at POSTRESTRICT after WaveToy_Boundaries +{ +} "Apply boundary conditions" |