-
Notifications
You must be signed in to change notification settings - Fork 0
/
command.line.loop.mosaic.6hr.offset.pl
86 lines (67 loc) · 4.24 KB
/
command.line.loop.mosaic.6hr.offset.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
#!/usr/bin/perl
#
# To run, type:
#which perl
#echo $PATH
# <full path>/command.line.loop.pl
#
#$series1=shift; #PIXEL OUTPUT FIL
#$series2=shift; #PIXEL OUTPUT FIL
#$series3=shift; #PIXEL OUTPUT FIL
$startyear=2018;
$endyear=2018;
$startmonth=1;
@days=(0,31,28,31,30,31,30,31,31,30,31,30,31);
for($year=$startyear;$year<=$endyear;$year++) {
for ($month=1;$month<=1;$month++) {
$daysinmonth=$days[$month];
print "$daysinmonth\n";
if ($month==2 && $year==2016) {
$daysinmonth=29;
}
$outdir=sprintf("/Volumes/REESEN/SMAP/Validation_Data/NLDAS2/MOSAIC_6hr_Offset/%04d/%02d/",$year,$month);
unless(-e $outdir) {
$cmd="mkdir -p $outdir";
print "$cmd\n";
system($cmd);
}
for ($day=1;$day<=2;$day++) {
@files=();
#if it is atleast the thrid day of the month
if ($day>1) {
$filename=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.0?00.nc",$year,$month,$year,$month,$day);
$filename_01=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.1[01]00.nc",$year,$month,$year,$month,$day);
$filename_02=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.1[23456789]00.nc",$year,$month,$year,$month,$day-1);
$filename_03=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.2?00.nc",$year,$month,$year,$month,$day-1);
@files=($filename,$filename_01,$filename_02,$filename_03);
}
#if it's the second day of the month
if ($day==1&& $month>1) {
$month_before=$month-1;
$day_before=$days[$month_before];
$filename=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.0?00.nc",$year,$month,$year,$month,$day);
$filename_01=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.1[01]00.nc",$year,$month,$year,$month,$day);
$filename_02=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.1[23456789]00.nc",$year,$month_before,$year,$month_before,$day_before);
$filename_03=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.2?00.nc",$year,$month_before,$year,$month_before,$day_before);
@files=($filename,$filename_01,$filename_02,$filename_03);
}
#if it's the second day of the month
if ($day==1 && $month==1) {
$month_before=12;
$day_before=31;
$year_before=$year-1;
$filename=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.0?00.nc",$year,$month,$year,$month,$day);
$filename_01=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.1[01]00.nc",$year,$month,$year,$month,$day);
$filename_02=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.1[23456789]00.nc",$year_before,$month_before,$year_before,$month_before,$day_before);
$filename_03=sprintf(" /Volumes/REESEN/SMAP/Validation_Data/NLDAS2/Mosaic/%04d/%02d/NLDAS_MOSAIC0125_H..A%04d%02d%02d.2?00.nc",$year_before,$month_before,$year_before,$month_before,$day_before);
@files=($filename,$filename_01,$filename_02,$filename_03);
}
$cmd=sprintf("ncrcat -O @files $outdir/NLDAS_MOSAIC0125_H..A%04d%02d%02d.daily.nc",$year,$month,$day);
print "$cmd\n";
system($cmd);
$cmd=sprintf("ncra -O $outdir/NLDAS_MOSAIC0125_H..A%04d%02d%02d.daily.nc $outdir/NLDAS_MOSAIC0125_H..A%04d%02d%02d.nc",$year,$month,$day,$year,$month,$day);
print "$cmd\n";
system($cmd);
}
}
}