np / files

     1.1 --- a/np	Fri Feb 19 15:51:34 2010 -0500
     1.2 +++ b/np	Mon Feb 22 17:53:19 2010 -0600
     1.3 @@ -370,7 +370,7 @@
     1.4  
     1.5      if ($parameters{"dtDataDump"}) {
     1.6  	my $index = $parameters{"DataDumpNumber"};
     1.7 -	for (my $t = $parameters{"InitialTime"};$t <= $parameters{"StopTime"};$t += $parameters{"dtDataDump"}) {
     1.8 +	for (my $t = $parameters{"InitialTimeDataDump"};$t <= $parameters{"StopTime"};$t += $parameters{"dtDataDump"}) {
     1.9  	    my $redshift = &ComputeRedshiftFromTime($t*$TimeUnits) if ($parameters{"ComovingCoordinates"});
    1.10  	    %{$outputs[@outputs]} = (redshift => $redshift, time => $t, name => sprintf "DD%04d", $index);
    1.11  	    $index ++;
    1.12 @@ -501,6 +501,10 @@
    1.13  
    1.14      }
    1.15      close (IN);
    1.16 +
    1.17 +    # Keep separate InitialTime for calculating time dumps.
    1.18 +    $parameters{"InitialTimeDataDump"} = $parameters{"InitialTime"};
    1.19 +
    1.20  }
    1.21  
    1.22  sub ComputeTimeUnits {