#!/usr/bin/perl -w

## =====================================================================
## Name:        cleanSMOKE.pl  
##                  
## 
## Language:    Perl
## Purpose      This program will delete SMOKE files older than
##              seven (7) days from the /home/oper/work/SMOKE directory 
##		                        /data/GASP/SMOKE_conc directory
##                  
## Modified:   10/2/2006
##
## 
## =====================================================================

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

$hour = `date +%H`;

system ("find /data/new_SMOKE/GOES_AOD  -name '*' -mtime +3 -exec rm -f {} ';'");
system ("find /data/new_SMOKE/GOES_AOD/ALL -name '*'  -mtime +3 -exec rm -f {} ';'");
system ("find /data/new_SMOKE/arrH  -name '*' -mtime +3 -exec rm -f {} ';'");
system ("find /data/new_SMOKE/Image -name '*'  -mtime +3 -exec rm -f {} ';'");
system ("find /data/new_SMOKE/Thresh20_40/COMB_AOD_CLOUD_FIRE/2SCHEMES -mtime +3 -exec rm -r {} ';'");
system ("find /data/new_SMOKE/AOD  -name '*' -mtime +3 -exec rm -f {} ';'");
system ("find /data/new_SMOKE/table -name '*' -mtime +5 -exec rm -f {} ';'");