dr080データセットのダウンロード

[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++;

}