# Interface definition for thorn IDSWTEF
# $Header$

IMPLEMENTS: IDSWTE

INHERITS: WaveToy IDScalarWave TATelliptic TATMG boundary grid

USES INCLUDE HEADER: TATelliptic.h
USES INCLUDE HEADER: Boundary.h Symmetry.h
USES INCLUDE HEADER: mg_Arguments.h
USES INCLUDE: DECLARE_MG_ARGUMENTS.h RELEASE_MG_ARGUMENTS.h SET_MG_VARIABLES.h
USES INCLUDE: MG_C2F_PROTO_pre.h MG_C2F_PROTO_post.h
USES INCLUDE: PASS_MG_C2F_pre.h PASS_MG_C2F_post.h
USES INCLUDE: MG_FARGUMENTS_pre.h MG_FARGUMENTS_post.h
USES INCLUDE: DECLARE_MG_FARGUMENTS.h RELEASE_MG_FARGUMENTS.h



CCTK_REAL residuals TYPE=gf
{
  residual
} "Residuals for elliptic equation"



CCTK_REAL level1 TYPE=array SIZE=(nx-2*ngx)/mgfactor+2*ngx,(ny-2*ngy)/mgfactor+2*ngy,(nz-2*ngz)/mgfactor+2*ngz GHOSTSIZE=ngx,ngy,ngz
{
  l1_phi
  l1_residual
  l1_x l1_y l1_z l1_r
} "Storage for multigrid level 1"

CCTK_REAL level2 TYPE=array SIZE=(nx-2*ngx)/mgfactor/mgfactor+2*ngx,(ny-2*ngy)/mgfactor/mgfactor+2*ngy,(nz-2*ngz)/mgfactor/mgfactor+2*ngz GHOSTSIZE=ngx,ngy,ngz
{
  l2_phi
  l2_residual
  l2_x l2_y l2_z l2_r
} "Storage for multigrid level 2"

CCTK_REAL level3 TYPE=array SIZE=(nx-2*ngx)/mgfactor/mgfactor/mgfactor+2*ngx,(ny-2*ngy)/mgfactor/mgfactor/mgfactor+2*ngy,(nz-2*ngz)/mgfactor/mgfactor/mgfactor+2*ngz GHOSTSIZE=ngx,ngy,ngz
{
  l3_phi
  l3_residual
  l3_x l3_y l3_z l3_r
} "Storage for multigrid level 3"