#! /usr/bin/perl

$homedir = "/data/smcd6/lfang/AMSR2/AMSR2_5KM";
$inputfd= "/data/smcd9/jliu/AMSR2/L1B_NOAA/gridded_5km_Global";
$outputfd = "${homedir}/remap_5km";

for($year=2024;$year<=2024;$year++){

system("mkdir ${outputfd}/${year}");

for($mon=6;$mon<=6;$mon++){
for($day=1;$day<=1;$day++){

$yyyymmdd=$year*10000+$mon*100+$day;
print "$yyyymmdd\n";

#GAASP-L1B_36GHz_${yyyymmdd}_C.tif

$infl="${inputfd}/${year}/GAASP-L1B_36GHz_${yyyymmdd}_C.tif";
if( -e $infl) {

$outfl="${outputfd}/${year}/GAASP-L1B_36GHz_${yyyymmdd}_C_5km.dat";
system("$homedir/remap $infl $outfl");
}


}
}
}