#!/usr/bin/perl

for $i (1,2,4,5,6) {
  for $y (1) {
#  for $y (3,4,5,6,7) {
    $yyyy = "201$y";
    print $dir,"\n";
    $dir = "/data/ftp/pub/genesis/glevels/cosmic$i/postproc/y$yyyy";
    if(! -d $dir) { print "$dir doesnt exist\n"; next; }
    chdir $dir || die "Could not chdir $dir";
    print `ln -s ../../2p6/y$yyyy/* .`;
  }
}

exit;

for $i (1,2,3,4,5,6) {
  for $y (6,7,8,9) {
    $yyyy = "200$y";
    print $dir,"\n";
    $dir = "/data/ftp/pub/genesis/glevels/cosmic$i/postproc/y$yyyy";
    chdir $dir || die "Could not chdir $dir";
    print `ln -s ../../2p6/y$yyyy/* .`;
  }
}

