#!/usr/bin/perl

for($year = 2002; $year <= 2015; $year++) {
    for($mon = 1; $mon <= 12; $mon++) {
	$cmd = sprintf("./grib2nc.pl %04d/%02d/*/*", $year, $mon);
	print("$cmd\n");
	system("$cmd");
    }
}
