#! /iag/bin/perl

$file = shift();
$averaged = shift();

open( PIPEIN,  "ncdump -v mooring,tempDepth,pressDepth $file |" );

open( PIPEOUT, "| ncgen -b" );
#open( PIPEOUT, "| cat" );

$file =~ s/\.nc/\-$averaged/;

while( <PIPEIN> )
 { if(/netcdf/)
	{ s/ \{/\-$averaged \{/; }
   elsif(/title/)
	{ s/Data/Data \($averaged Avg\)/; }
   elsif(/subtitle/ or /atlasTime/)
	{ next; }
   print PIPEOUT;
 }

exit;