#!/usr/bin/perl

##For WindPower Aug 2004
#for($d=219;$d<=225;$d++){
#    $ddd = sprintf("%03s",$d);
#    for($h=0;$h<24;$h++){
#        $hh = sprintf("%02d",$h);
#        (@res) = `sh ARC_FSL_map.run 04${ddd}${hh}00`;
#        print "$#res ARC_FSL_map.run 04${ddd}${hh}00\n";
#        (@res) = `sh ARC_FSL_map.run 04${ddd}${hh}30`;
#        print "$#res ARC_FSL_map.run 04${ddd}${hh}30\n";
##        exit(0);
#    }
#}
#exit(0);

#For WindPower Jul 2004
for($d=192;$d<=199;$d++){
    $ddd = sprintf("%03s",$d);
    for($h=0;$h<24;$h++){
        $hh = sprintf("%02d",$h);
        (@res) = `sh ARC_FSL_map.run 04${ddd}${hh}00`;
        print "$#res ARC_FSL_map.run 04${ddd}${hh}00\n";
        (@res) = `sh ARC_FSL_map.run 04${ddd}${hh}30`;
        print "$#res ARC_FSL_map.run 04${ddd}${hh}30\n";
#        exit(0);
    }
}
exit(0);

#For WFIP 1 Sep 15 to Sep 25 2011
for($d=259;$d<=268;$d++){
    $ddd = sprintf("%03s",$d);
    for($h=0;$h<24;$h++){
        $hh = sprintf("%02d",$h);
        (@res) = `sh ARC_FSL_map.run 11${ddd}${hh}00`;
        print "$#res ARC_FSL_map.run 11${ddd}${hh}00\n";
        (@res) = `sh ARC_FSL_map.run 11${ddd}${hh}30`;
        print "$#res ARC_FSL_map.run 11${ddd}${hh}30\n";
#        exit(0);
    }
}
exit(0);

#For WFIP 1 Oct 13 to Oct 21 2011
for($d=285;$d<=294;$d++){
    $ddd = sprintf("%03s",$d);
    for($h=0;$h<24;$h++){
        $hh = sprintf("%02d",$h);
        (@res) = `sh ARC_FSL_map.run 11${ddd}${hh}00`;
        print "$#res ARC_FSL_map.run 11${ddd}${hh}00\n";
        (@res) = `sh ARC_FSL_map.run 11${ddd}${hh}30`;
        print "$#res ARC_FSL_map.run 11${ddd}${hh}30\n";
#        exit(0);
    }
}
exit(0);

#For WFIP 1 Apr 13 to Apr 25 2012
for($d=105;$d<=116;$d++){
    $ddd = sprintf("%03s",$d);
    for($h=0;$h<24;$h++){
        $hh = sprintf("%02d",$h);
        (@res) = `sh ARC_FSL_map.run 12${ddd}${hh}00`;
        print "$#res ARC_FSL_map.run 12${ddd}${hh}00\n";
        (@res) = `sh ARC_FSL_map.run 12${ddd}${hh}30`;
        print "$#res ARC_FSL_map.run 12${ddd}${hh}30\n";
#        exit(0);
    }
}
exit(0);

for($d=160;$d<=171;$d++){
    $ddd = sprintf("%03s",$d);
    for($h=0;$h<24;$h++){
        $hh = sprintf("%02d",$h);
        (@res) = `sh ARC_FSL_map.run 12${ddd}${hh}00`;
        print "$#res ARC_FSL_map.run 12${ddd}${hh}00\n";
        (@res) = `sh ARC_FSL_map.run 12${ddd}${hh}30`;
        print "$#res ARC_FSL_map.run 12${ddd}${hh}30\n";
#        exit(0);
    }
}
exit(0);

for($d=333;$d<=340;$d++){
    $ddd = sprintf("%03s",$d);
    for($h=0;$h<24;$h++){
        $hh = sprintf("%02d",$h);
        (@res) = `sh ARC_FSL_map.run 12${ddd}${hh}00`;
        print "$#res ARC_FSL_map.run 12${ddd}${hh}00\n";
        (@res) = `sh ARC_FSL_map.run 12${ddd}${hh}30`;
        print "$#res ARC_FSL_map.run 12${ddd}${hh}30\n";
#        exit(0);
    }
}
exit(0);

for($ddd=333;$ddd<=340;$ddd++){
    for($h=0;$h<24;$h++){
        $hh = sprintf("%02d",$h);
        (@res) = `sh ARC_FSL_map.run 11${ddd}${hh}00`;
        print "$#res ARC_FSL_map.run 11${ddd}${hh}00\n";
        (@res) = `sh ARC_FSL_map.run 11${ddd}${hh}30`;
        print "$#res ARC_FSL_map.run 11${ddd}${hh}30\n";
#        exit(0);
    }
}
