[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 417)

rhaas at tapir.caltech.edu rhaas at tapir.caltech.edu
Mon Aug 27 14:19:41 CDT 2012


User: rhaas
Date: 2012/08/27 02:19 PM

Removed:
 /trunk/src/
  GRHydro_RegisterVarsM.cc

Log:
 GRHydro: remove unused file
 
 From: Roland Haas <roland.haas at physics.gatech.edu>

File Changes:

Directory: /trunk/src/
======================

File [removed]: GRHydro_RegisterVarsM.cc
Delta lines: +0 -129
===================================================================
--- trunk/src/GRHydro_RegisterVarsM.cc	2012-08-27 19:19:38 UTC (rev 416)
+++ trunk/src/GRHydro_RegisterVarsM.cc	2012-08-27 19:19:40 UTC (rev 417)
@@ -1,129 +0,0 @@
-// GRHydro_RegisterVars.cc
-//
-// converted from F90 to improve readability and maintainability
-//
-// Frank Loeffler
-
-#include <cstdio>
-#include <string>
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-using namespace std;
-
-// Utility functions to register variables with MoL
-// Note: We could check for the return value here, but MoL issues a
-//       level 0 warning in that case anyway. If that changes in the
-//       future, a check can simply be inserted here.
-static void register_evolved(string v1, string v2)
-{
-  MoLRegisterEvolvedGroup(CCTK_GroupIndex(v1.c_str()), CCTK_GroupIndex(v2.c_str()));
-}
-static void register_constrained(string v1)
-{
-  MoLRegisterConstrainedGroup(CCTK_GroupIndex(v1.c_str()));
-}
-static void register_saveandrestore(string v1)
-{
-  MoLRegisterSaveAndRestoreGroup(CCTK_GroupIndex(v1.c_str()));
-}
-
-// Main function called by Cactus to register variables with MoL
-
-extern "C"void GRHydro_RegisterM(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-
-  // We need some aliased functions, so we first check if they are available
-  string needed_funs[5] = {"MoLRegisterEvolvedGroup",
-                           "MoLRegisterConstrainedGroup",
-                           "MoLRegisterSaveAndRestoreGroup",
-                           "MoLRegisterEvolved",
-                           "MoLRegisterConstrained"};
-  for (int i = 0; i < 5; i++)
-    if (!CCTK_IsFunctionAliased(needed_funs[i].c_str()))
-      CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-                 "The function \"%s\" has not been aliased!",
-                 needed_funs[i].c_str());
-
-  // Now we can set which variables have to be registered as which type with MoL
-  register_constrained("HydroBase::rho");
-  register_constrained("HydroBase::press");
-  register_constrained("HydroBase::eps");
-  register_constrained("HydroBase::vel");
-  register_constrained("HydroBase::w_lorentz");
-
-  if (CCTK_EQUALS(evolution_method, "GRHydro"))
-  {
-    // dens and scon
-    register_evolved("GRHydro::dens", "GRHydro::densrhs");
-    register_evolved("GRHydro::scon", "GRHydro::srhs");
-    register_evolved("HydroBase::Bvec", "GRHydro::Bvecrhs");
-
-    // tau
-    if (CCTK_EQUALS(GRHydro_eos_type, "General"))
-      register_evolved("GRHydro::tau" , "GRHydro::taurhs");
-    else if (CCTK_EQUALS(GRHydro_eos_type, "Polytype"))
-      register_constrained("GRHydro::tau");
-    else
-      CCTK_WARN(0, "Don't recognize the type of EOS!");
-
-    if(clean_divergence) {
-      register_evolved("GRHydro::psidc" , "GRHydro::psidcrhs");
-    }
-
-    // lapse, metric, curv
-    register_saveandrestore("admbase::lapse");
-    register_saveandrestore("admbase::metric");
-    register_saveandrestore("admbase::curv");
-
-    // shift
-    if (!CCTK_EQUALS(initial_shift, "none"))
-    {
-      if (CCTK_EQUALS(shift_evolution_method, "Comoving"))
-      {
-        register_constrained("admbase::shift");
-        register_evolved("GRHydro::GRHydro_coords", "GRHydro::GRHydro_coords_rhs");
-      }
-      else
-        register_saveandrestore("admbase::shift");
-    }
-
-    // tracer
-    if (evolve_tracer != 0)
-      register_evolved("GRHydro::GRHydro_cons_tracers", 
-		       "GRHydro::GRHydro_tracer_rhs");
-    
-    // note that we set in pararamcheck
-    // evolve_y_e and evolve_temper, but MoLRegister
-    // happens before paramcheck...
-    if (CCTK_EQUALS(Y_e_evolution_method,"GRHydro")) {
-      register_constrained("HydroBase::Y_e");
-      register_evolved("GRHydro::Y_e_con", 
-		       "GRHydro::Y_e_con_rhs");
-    }
-
-    if (CCTK_EQUALS(temperature_evolution_method,"GRHydro")) {
-      register_constrained("HydroBase::temperature");
-      register_constrained("HydroBase::entropy");
-    }
-    // particles
-    if (number_of_particles > 0)
-      register_evolved("GRHydro::particles", "GRHydro::particle_rhs");
-  }
-  else if (CCTK_EQUALS(evolution_method, "none"))
-  {
-    register_constrained("GRHydro::dens");
-    register_constrained("GRHydro::scon");
-    register_constrained("GRHydro::tau");
-    register_constrained("HydroBase::Bvec");
-    if(clean_divergence) {
-      register_constrained("GRHydro::psidc");
-    }
-  }
-}
-
-



More information about the Commits mailing list