[Commits] [svn:einsteintoolkit] Paper_EinsteinToolkit_2010/examples/tov/ (Rev. 79)

[knarf at cct.lsu.edu]

User: knarf
Date: 2011/04/28 01:26 PM

Modified:
 /examples/tov/
  tov.rpar

Log:
 fix naming, add a bit more output

File Changes:

Directory: /examples/tov/
=========================

File [modified]: tov.rpar
Delta lines: +5 -3
===================================================================
--- examples/tov/tov.rpar	2011-04-28 18:22:51 UTC (rev 78)
+++ examples/tov/tov.rpar	2011-04-28 18:26:13 UTC (rev 79)
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
 use strict;
 
-foreach my $type (("", "pert")) {
+foreach my $type (("", "_pert")) {
 foreach my $res ((16, 8, 4, 2)) {
 
   my $out_every = 256/$res;
   my $K_TOV    = 100;
   my $K_change = "";
-  if ($type eq "pert") {
+  if ($type eq "_pert") {
     $K_TOV     = 99;
     $K_change  = "TOVSolver::TOV_Transform_to_K = 100";
   }
@@ -215,6 +215,8 @@
  ADMBase::curv
  ML_BSSN::ML_Ham
  ML_BSSN::ML_mom
+ GRHydro::dens
+ GRHydro::eps
 "
 
 IOASCII::out1D_every        = $out_every
@@ -235,7 +237,7 @@
 "
 PAR_EOF
 
-  open(OUT, ">tov_${res}_${type}.par");
+  open(OUT, ">tov_${res}${type}.par");
   print OUT "$par";
   close(OUT);
 }}