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); }}