#!/usr/bin/perl -w
## =====================================================================
## Name:        clean_Dust_Modis.pl
##
##
## Language:    Perl
## Purpose      This program will delete Dust files older than
##              seven (7) days from the /home/oper/work/SMOKE directory
##                                      /data/GASP/SMOKE_conc directory
##
## Modified:   04/2/2012
##
##
## =====================================================================

$startdate=`date`;
print "Start  $0 at $startdate \n";

$hour = `date +%H`;

system ("find /data/Dust/input  -name '*' -mtime +2 -exec rm -f {} ';'");
system ("find /data/Dust/input/MYD04_L2  -name '*' -mtime +2 -exec rm -f {} ';'");
system ("find /data/Dust/output -mtime +2 -exec rm -r {} ';'");
system ("find /data/Dust/logs  -name '*' -mtime +3 -exec rm -f {} ';'");