# Interface definition for thorn WaveToyFO
# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyFO/interface.ccl,v 1.3 2004/05/21 17:45:41 schnetter Exp $

IMPLEMENTS: WaveToyFO

INHERITS: grid



CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, \
  CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \
  CCTK_STRING IN group_name, CCTK_STRING IN bc_name)

REQUIRES FUNCTION Boundary_SelectGroupForBC



CCTK_INT FUNCTION MoLRegisterEvolvedGroup(CCTK_INT IN EvolvedIndex, \
                                          CCTK_INT IN RHSIndex)

REQUIRES FUNCTION MoLRegisterEvolvedGroup



CCTK_INT FUNCTION                         \
    MultiPatch_Prim2Char                  \
        (CCTK_POINTER_TO_CONST IN cctkGH, \
         CCTK_INT ARRAY IN normal,        \
         CCTK_INT ARRAY IN lbnd,          \
         CCTK_INT ARRAY IN lsh,           \
         CCTK_INT IN rhs_flag,            \
         CCTK_INT IN num_modes,           \
         CCTK_POINTER ARRAY IN modes,     \
         CCTK_REAL ARRAY OUT speeds)
PROVIDES FUNCTION MultiPatch_Prim2Char  \
    WITH WaveToyFO_MultiPatch_Prim2Char \
    LANGUAGE C

CCTK_INT FUNCTION                              \
    MultiPatch_Char2Prim                       \
        (CCTK_POINTER_TO_CONST IN cctkGH,      \
         CCTK_INT ARRAY IN normal,             \
         CCTK_INT ARRAY IN lbnd,               \
         CCTK_INT ARRAY IN lsh,                \
         CCTK_INT IN rhs_flag,                 \
         CCTK_INT IN num_modes,                \
         CCTK_POINTER_TO_CONST ARRAY IN modes)
PROVIDES FUNCTION MultiPatch_Char2Prim  \
    WITH WaveToyFO_MultiPatch_Char2Prim \
    LANGUAGE C



PUBLIC:

CCTK_REAL scalarevolve TYPE=gf TIMELEVELS=3
{
  phi psix psiy psiz
} "Scalar field"

PRIVATE:

CCTK_REAL scalarevolvedot TYPE=gf
{
  phidot psixdot psiydot psizdot
} "Time derivative of the scalar field"