if (ADM_evolStorage==1)
{
STORAGE:ADM_metric_prev,ADM_curv_prev
COMMUNICATION: ADM_metric_prev 
}

if (CCTK_Equals(system,"ADM"))
{
  STORAGE: ADM_metric_prev,ADM_curv_prev
  COMMUNICATION: ADM_metric_prev

  if (ADM_constraintsPersist==1)
  {
  STORAGE:ADM_constraints
  }

  if (ADM_constraintCommunication==1)
  {
  COMMUNICATION:ADM_constraints
  }

  if (ADM_keep_alp0==1)
  {
  STORAGE:ADM_initlapse
  }

schedule ADM_Preloop at CACTUS_INITIAL9
  {
    LANG: Fortran
  }"Report on parameters for ADM Evolution"

schedule ADM_alp0_init at CACTUS_INITIAL9
  {
    LANG: Fortran
  }"ADM_alp0_init"
	
  if (CCTK_Equals(method,"stagleap"))
  {
	# Evolve using Staggered Leapfrog

	STORAGE: ADM_curv_stag

        if (ADM_minimalCommunications==0)
        {
          COMMUNICATION:ADM_curv_stag
        }

	schedule ADM_StaggeredLeapfrog at CACTUS_EVOL
	{
	     LANG: Fortran
        }"Evolve using Staggered Leapfrog"
  }
  else if (CCTK_Equals(method,"leapfrog"))
  { 
	# Evolve using Double Leapfrog

	schedule ADM_DoubleLeap at CACTUS_EVOL
	{
	     LANG: Fortran
	}"Evolve using Double Leapfrog"
  }
  
  else if (CCTK_Equals(method,"ICN") || CCTK_Equals("method","icn")) 
  {	
	# Evolve using Iterative Crank-Nicholson

	schedule ADM_IterativeCN at CACTUS_EVOL
	{
	     LANG: Fortran
	}"Evolve using Iterative Crank-Nicholson" 
  
  }
	schedule ADM_AllConstraints at CACTUS_ANALYSIS
	{		
	     LANG: Fortran
             STORAGE: ADM_constraints
	     COMMUNICATION: ADM_constraints
	}"Evaluate Constraints" 
}