#!/usr/bin/perl -w

use strict;

use Cwd;

my $now = cwd;

opendir(DH,$now)or die "Can not open $now directory\n";

my @stuff  = readdir DH; 
my @subdir;
foreach my $file (@stuff)
{ 
  if ($file !~ /\.tar/) { next }
#  my $command = "tar xvf $file";
#  print $command,"\n";
#  `$command`;
  my $subdir = substr($file, rindex($file,'_')+1, rindex($file,'.')-rindex($file,'_')-1);
#  `rm -irf $subdir`;
#  `mkdir $subdir`;
  push @subdir, $subdir;
#  `mv *.nc $subdir/`;
 
}
close DH;
print @subdir,"\n";
foreach my $subdir (@subdir)
{
  $subdir = $now . "/" . $subdir;
  chdir $subdir;
  print cwd,"\n";
  my $in =<>;
  opendir(SUB, $subdir) or die  "Can not open $subdir directory\n";
  my @sub_file  = readdir SUB;

  foreach my $file (@sub_file)
  { if ($file !~ /\.nc/) { next }
    my $out_file = $file;
    $out_file =~ s/\.nc/\.out/;
    print " nc file \t out file\n";

    `/home/hxu/netcdf/ncdump $file > $out_file`;
    print $file,"\t",$out_file,"\n";
    `rm *.dat`;
    `rm *.info`;
    `/home/hxu/netcdf/nc_refor.pl $out_file`;
    print "convertation\n";
   }
  my $in = <>;
}