#!/usr/bin/perl

#### 
#### [P][S][Y][M].png
#### Parameter _ SPECIES _ YEAR _ PERIOD

$version=@ARGV[0];

#on cook
$dirbase = "/bipbip-dataipsl/AEROCOM/" ;
# on dataipsl
#$dirbase = "/bipbip/AEROCOM/" ;

chdir $dirbase.$version.'/plots/';

$argp   = 0;
$args   = 1;
$argy   = 2;
$argm   = 3;

my @flist = ();
my @flist = glob("OD550D_*png");
for($i=0; $i<@flist; $i++) {
    my @a = split /[\_\.]/, $flist[$i];
    my $flistnew ='OD550_'.$a[$args].'_'.$a[$argy].'_'.$a[$argm].'.ps.png';
    `ln -s $flist[$i] $flistnew`; 
}
my @flist = ();
my @flist = glob("OD550_*png");
for($i=0; $i<@flist; $i++) {
    my @a = split /[\_\.]/, $flist[$i];
    my $flistnew ='OD550D_'.$a[$args].'_'.$a[$argy].'_'.$a[$argm].'.ps.png';
    `ln -s $flist[$i] $flistnew`; 
}
my @flist = ();
my @flist = glob("LOADD_*png");
for($i=0; $i<@flist; $i++) {
    my @a = split /[\_\.]/, $flist[$i];
    my $flistnew ='LOAD_'.$a[$args].'_'.$a[$argy].'_'.$a[$argm].'.ps.png';
    `ln -s $flist[$i] $flistnew`; 
}
my @flist = ();
my @flist = glob("LOAD_*png");
for($i=0; $i<@flist; $i++) {
    my @a = split /[\_\.]/, $flist[$i];
    my $flistnew ='LOADD_'.$a[$args].'_'.$a[$argy].'_'.$a[$argm].'.ps.png';
    `ln -s $flist[$i] $flistnew`; 
}



