diff options
author | rideout <rideout@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2003-05-05 22:34:01 +0000 |
---|---|---|
committer | rideout <rideout@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2003-05-05 22:34:01 +0000 |
commit | 59bad7aa5a98f23f9c7a43d1983682f08ba5d6f1 (patch) | |
tree | b02204eef520f91581246e5a56eab863adbeb300 | |
parent | 67663330e2897f830323a105fef20c6d891bfbb1 (diff) |
Support for new boundary API.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@86 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
-rw-r--r-- | interface.ccl | 8 | ||||
-rw-r--r-- | src/ADMConstraints.F | 6 |
2 files changed, 7 insertions, 7 deletions
diff --git a/interface.ccl b/interface.ccl index 8d69285..4421e12 100644 --- a/interface.ccl +++ b/interface.ccl @@ -10,11 +10,11 @@ USES INCLUDE: CalcTmunu_temps.inc # Function aliases CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER IN GH, \ - CCTK_INT IN faces, CCTK_INT IN table_handle, CCTK_STRING IN var_name, \ - CCTK_STRING IN bc_name) + CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \ + CCTK_STRING IN var_name, CCTK_STRING IN bc_name) CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER IN GH, \ - CCTK_INT IN faces, CCTK_INT IN table_handle, CCTK_STRING IN group_name, \ - CCTK_STRING IN bc_name) + CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \ + CCTK_STRING IN group_name, CCTK_STRING IN bc_name) USES FUNCTION Boundary_SelectVarForBC USES FUNCTION Boundary_SelectGroupForBC diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index a4423b9..ef5de5d 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -279,11 +279,11 @@ c Cartoon. if (cartoon==1) then if (CCTK_IsThornActive("Cartoon2D")==1) then - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 0, -1, $ "admconstraints::ham", "None") - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 0, -1, $ "admconstraints::hamnormalized", "None") - ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 0, -1, $ "admconstraints::momentum", "None") else call CCTK_WARN(0,"You have not activated Cartoon2D") |