implements: adm
inherits: einstein boundary

USES INCLUDE: CalcTmunu.inc
USES INCLUDE: CalcTmunu_temps.inc
USES INCLUDE: CalcTmunu_rfr.inc
USES INCLUDE: adm_preloop_ADM.inc
USES INCLUDE: adm_icn_inloop.inc
USES INCLUDE: adm_stagleap_pre_1e.inc
USES INCLUDE: adm_stagleap_pre_2e.inc
USES INCLUDE: adm_prepred_ADM.inc
USES INCLUDE: adm_precorr_ADM.inc
USES INCLUDE: adm_icn_bound1.inc
USES INCLUDE: adm_icn_bound2.inc

private:

INT icn_group_index type = SCALAR
{
  icn_iteration
} "Specifies when to stop the ICN iterations"

INT ADMloop type=SCALAR
{
  i1,i2,
  j1,j2,
  k1,k2
} "Variables determining the behaviour of loops in ADM"

real ADM_dtlapse type=GF
{
  ADM_dtalp
} "Time derivative of lapse"

real ADM_lapse_prev type=GF
{
ADM_alp_p
} "Lapse on previous timestep"

real ADM_metric_prev type=GF
{
ADM_gxx_p,
ADM_gxy_p,
ADM_gxz_p,
ADM_gyy_p, 
ADM_gyz_p,
ADM_gzz_p
} "Metric variables and lapse on previous timestep"

real ADM_curv_prev type=GF
{
ADM_kxx_p,
ADM_kxy_p,
ADM_kxz_p,
ADM_kyy_p,
ADM_kyz_p,
ADM_kzz_p
} "Extrinsic curvature on previous timestep"

real ADM_curv_stag type=GF
{
ADM_kxx_stag,
ADM_kxy_stag,
ADM_kxz_stag,
ADM_kyy_stag,
ADM_kyz_stag,
ADM_kzz_stag
}"Extrinsic curvature on staggered timestep"

real ADM_sources type=GF
{
adms_kxx,
adms_kxy,
adms_kxz,
adms_kyy,
adms_kyz,
adms_kzz,
adms_gxx,
adms_gxy,
adms_gxz,
adms_gyy,
adms_gyz,
adms_gzz,
adms_alp
} "The sources for the ADM evolution equations"

real ADM_extrap type=GF
{
adm_gxx_extrap,
adm_gxy_extrap,
adm_gxz_extrap,
adm_gyy_extrap,
adm_gyz_extrap,
adm_gzz_extrap,
adm_alp_extrap
} "Extrapolated values of the ADM variables"

real ADM_gauge type=GF
{
adm_gauge
} "The lapse gauge coefficient"

real ADM_initlapse type=GF
{
ADM_alp0
}"Lapse saved from initial timestep"

real ADM_initial type=GF
{
  ADM_gxx0,
  ADM_gxy0,
  ADM_gxz0,
  ADM_gyy0,
  ADM_gyz0,
  ADM_gzz0,
  ADM_kxx0,
  ADM_kxy0,
  ADM_kxz0,
  ADM_kyy0,
  ADM_kyz0,
  ADM_kzz0
} "Arrays for initial data"