diff options
author | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2006-07-05 19:05:46 +0000 |
---|---|---|
committer | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2006-07-05 19:05:46 +0000 |
commit | 52a24adeead81157f5d205c6a94a3d4a8731c453 (patch) | |
tree | ec844495b86668525a75f4142cc3245c2d144dff /src/Get_Coeff.F90 | |
parent | 7409bb1a94ba40a8ff24896cc8a2e5ef3a096d96 (diff) |
Introduce a function SBP_determine_onesided_stencil which determines
which faces should use one-sided stencils, depending on which
boundaries are inter-processor boundaries, symmetry boundaries, and
multi-patch boundaries.
Use this function everywhere. Remove the previous mechinisms; some
were not in all cases correct.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@75 f69c4107-0314-4c4f-9ad4-17e986b73f4a
Diffstat (limited to 'src/Get_Coeff.F90')
-rw-r--r-- | src/Get_Coeff.F90 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Get_Coeff.F90 b/src/Get_Coeff.F90 index 3c7a09f..60dab5b 100644 --- a/src/Get_Coeff.F90 +++ b/src/Get_Coeff.F90 @@ -22,6 +22,8 @@ CCTK_REAL function GetCoeff () GetCoeff = 13649.0_wp/43200.0_wp case (8) GetCoeff = 1498139.0_wp/5080320.0_wp + case default + call CCTK_WARN (0, "operator not implemented") end select else if ( CCTK_EQUALS(operator_type,'Minimal Bandwidth') ) then @@ -30,6 +32,8 @@ CCTK_REAL function GetCoeff () GetCoeff = 3.0_wp/11.0_wp case(6) GetCoeff = 30.0_wp/137.0_wp + case default + call CCTK_WARN (0, "operator not implemented") end select else select case (order) @@ -37,6 +41,8 @@ CCTK_REAL function GetCoeff () GetCoeff = 0.2388575707774486064323157210922003533466_wp case(6) GetCoeff = 0.2028105550720356346665604029847379994496_wp + case default + call CCTK_WARN (0, "operator not implemented") end select end if end if |