CCTK_REAL energy TYPE=scalar

CCTK_REAL energy TYPE=scalar tags='checkpoint="no"'

CCTK_REAL angular_momentum TYPE=scalar

CCTK_REAL angular_momentum TYPE=scalar tags='checkpoint="no"'

CCTK_REAL bare_mass TYPE=scalar

CCTK_REAL bare_mass TYPE=scalar tags='checkpoint="no"'

CCTK_REAL puncture_adm_mass TYPE=scalar

CCTK_REAL puncture_adm_mass TYPE=scalar tags='checkpoint="no"'

  static CCTK_REAL mp_saved, mm_saved, mp_adm_saved, mm_adm_saved, E_saved, J1_saved, J2_saved, J3_saved;

    // store these in local variables so that we can restore them once CarpetX
    // can wipes the grid scalars
    mp_saved = *mp;
    mm_saved = *mm;
    mp_adm_saved = *mp_adm;
    mm_adm_saved = *mm_adm;
    E_saved = *E;
    J1_saved = *J1;
    J2_saved = *J2;
    J3_saved = *J3;
  } else {
    // before each call CarpetX wipes the grid scalars so I need to restore them
    *mp = mp_saved;
    *mm = mm_saved;
    *mp_adm = mp_adm_saved;
    *mm_adm = mm_adm_saved;
    *E = E_saved;
    *J1 = J1_saved;
    *J2 = J2_saved;
    *J3 = J3_saved;