diff options
author | allen <allen@479a9caf-478d-4319-8268-cbb0ee841cc9> | 2003-07-18 18:08:39 +0000 |
---|---|---|
committer | allen <allen@479a9caf-478d-4319-8268-cbb0ee841cc9> | 2003-07-18 18:08:39 +0000 |
commit | 310bab73f14fce8a9089c7cdc570876cc6f22348 (patch) | |
tree | 1be3398b0a510dc7e976b4936f4e6bb88f08df6a /src | |
parent | dbffc86c72ecb8f77401622825808bc2ea252e88 (diff) |
This commit was generated by cvs2svn to compensate for changes in r2, which
included commits to RCS files with non-trunk default branches.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyExtra/trunk@3 479a9caf-478d-4319-8268-cbb0ee841cc9
Diffstat (limited to 'src')
-rw-r--r-- | src/Boundary.c | 63 | ||||
-rw-r--r-- | src/make.code.defn | 9 |
2 files changed, 72 insertions, 0 deletions
diff --git a/src/Boundary.c b/src/Boundary.c new file mode 100644 index 0000000..908617b --- /dev/null +++ b/src/Boundary.c @@ -0,0 +1,63 @@ +#include "cctk.h" +#include "cctk_Arguments.h" +#include "cctk_Parameters.h" + +#include "cctk_Faces.h" + +#include "util_Table.h" + + +static int handle=-1; + +void WaveToyExtra_Boundary(CCTK_ARGUMENTS); +void WaveToyExtra_Boundary(CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; + + CCTK_INT ierr=0; + + if (CCTK_EQUALS(bound,"custom")) + { + if (!CCTK_EQUALS(custom_options,"")) + { + if (handle == -1) + { + handle = Util_TableCreateFromString(custom_options); + if (handle < 0) + { + CCTK_VWarn(0,__LINE__,__FILE__,CCTK_THORNSTRING, + "WaveToyC_Boundaries: Error creating table for " + "boundary condition %s",custom_bound); + } + } + } + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle, + "wavetoy::phi",custom_bound); + } + + if (ierr < 0) + { + CCTK_VWarn(0,__LINE__,__FILE__,CCTK_THORNSTRING, + "WaveToyC_Boundaries: Error selecting boundary " + "condition %s",bound); + } + + return; +} + + + /*@@ + @routine WaveToyC_Terminate + @date + @author Gabrielle Allen + @desc + Tidy up wavetoy + @enddesc + @history + @endhistory +@@*/ +void WaveToyC_Terminate(const cGH *GH) +{ + Util_TableDestroy(handle); +} diff --git a/src/make.code.defn b/src/make.code.defn new file mode 100644 index 0000000..5b83963 --- /dev/null +++ b/src/make.code.defn @@ -0,0 +1,9 @@ +# Main make.code.defn file for thorn WaveToyExtra +# $Header$ + +# Source files in this directory +SRCS = Boundary.c + +# Subdirectories containing source files +SUBDIRS = + |