keep previous SCR code in getDt

src/CheckPoint.C

@@ -650,6 +650,45 @@ float_sw4 CheckPoint::getDt() {
   }
   MPI_Bcast(&dt, 1, mEW->m_mpifloat, 0, mEW->m_cartesian_communicator);
   return dt;
+
+#if 0
+  int have_restart = 0;
+  char checkpoint_dir[SCR_MAX_FILENAME];
+  SCR_Have_restart(&have_restart, checkpoint_dir);
+  if (! have_restart) {
+    std::cerr<<"Error :: SCR found no checkpoints ! \n"<<std::flush;
+    abort();
+  } 
+
+  SCR_Start_restart(checkpoint_dir);
+
+  std::stringstream s;
+  s<<checkpoint_dir<<"/CheckPoint_"<<mEW->getRank()<<".bin";
+  char scr_file[SCR_MAX_FILENAME];
+  SCR_Route_file(s.str().c_str(), scr_file);
+  int valid=1;
+  if (std::FILE *file=std::fopen(scr_file,"rb")){
+    float_sw4 dt; 
+    if ( std::fread(&dt,sizeof dt,1,file)==1) {
+      scr_file_handle=file;
+      return dt;
+    } else {
+      std::cerr<<"ERROR:: Read of SCR checkpoint file failed in getDt \n"<<std::flush;
+      std::fclose(file);
+      valid = 0;
+    }
+  } else {
+    std::cerr<<"ERROR::Restart file opening failed in getDt "<<s.str()<<"\n"<<std::flush;
+    valid = 0;
+  }
+
+  if (!valid){
+    std::cerr<<"ERROR :: Invalid restart file "<<s.str()<<"\n Aborting..\n"<<std::flush;
+    abort();
+  }
+
+  return -1.0e99; // Dummy return to suppress warnings. Should never be reached
+#endif
 }
 
 //-----------------------------------------------------------------------