[2015年 8月 13日 木曜日 14:03:26 JST]
[/work4/data/ECCO.dr080g]
[am@aofd165]
$ cat download.ecco.pl
#!/usr/bin/perl
$URL = "http://ecco.jpl.nasa.gov/thredds/fileServer/ecco_Smoother";
@date0 = (n10day_01_09,n10day_10_18,n10day_19_27,n10day_28_37);
@date1 = ( 1,2160,4320,6480);
@date2 = (2160,4320,6480,8880);
@vars = (Have,Uave,Vave,Wave,Tave,Save,gsUave,gsVave,gsWave,gsXdiffave,gsYdiffave,gsZdiffGMave,gsZdiffave,gsExtave,gsKFave,gsKPPave,EPrelaxAve,gtExave,gtKFave,gtKPPave,tRelaxave,gtUave,gtVave,gtWave,gtXdiffave,gtYdiffave,gtZdiffave,gtZdiffGMave);
$year = 1993;
while ($year <= 2014) {
$i = 0;
while ($i < 4) {
$dd1 = sprintf "%05d",$date1[$i];
$dd2 = sprintf "%05d",$date2[$i];
$dir = "dr080g_"."$year"."/$date0[$i]";
foreach $var (@vars) {
if ($var eq "Have" or $var eq "Uave" or $var eq "Vave" or $var eq "Wave" or $var eq "Tave" or $var eq "Save" or $var eq " EPrelaxAve") {
$num=240;
} else {
$num=720;
}
$file = "$var"."_08_08.$dd1"."_"."$dd2"."_".$num.".cdf";
print $file,"\n";
system("wget -r $URL/$dir/$file");
}
$i++;
}
$year++;
}