| 1 |
35d59dc1
|
Adam M. Wilson @ pfe
|
### Process a folder of daily MOD35 HDF files to produce a climatology
|
| 2 |
|
|
|
| 3 |
aba23d60
|
Adam M. Wilson @ pfe
|
.libPaths("/pleiades/u/awilso10/R/x86_64-unknown-linux-gnu-library/2.15/")
|
| 4 |
|
|
|
| 5 |
35d59dc1
|
Adam M. Wilson @ pfe
|
## import commandline arguments
|
| 6 |
aba23d60
|
Adam M. Wilson @ pfe
|
library(getopt,lib="/pleiades/u/awilso10/R/x86_64-unknown-linux-gnu-library/2.15/")
|
| 7 |
35d59dc1
|
Adam M. Wilson @ pfe
|
## get options
|
| 8 |
|
|
opta <- getopt(matrix(c(
|
| 9 |
|
|
'tile', 't', 1, 'character',
|
| 10 |
|
|
'verbose','v',1,'logical'
|
| 11 |
|
|
), ncol=4, byrow=TRUE))
|
| 12 |
|
|
|
| 13 |
b3344197
|
Adam M. Wilson @ pfe
|
tile=opta$tile #tile="h00v08"
|
| 14 |
35d59dc1
|
Adam M. Wilson @ pfe
|
verbose=opta$verbose #print out extensive information for debugging?
|
| 15 |
|
|
|
| 16 |
aba23d60
|
Adam M. Wilson @ pfe
|
## set working directory
|
| 17 |
b3344197
|
Adam M. Wilson @ pfe
|
setwd("/nobackupp1/awilso10/mod35")
|
| 18 |
|
|
#setwd("/u/awilso10/MOD35")
|
| 19 |
aba23d60
|
Adam M. Wilson @ pfe
|
|
| 20 |
35d59dc1
|
Adam M. Wilson @ pfe
|
### directory containing daily files
|
| 21 |
|
|
outdir=paste("daily/",tile,"/",sep="") #directory for separate daily files
|
| 22 |
|
|
|
| 23 |
|
|
### directory to hold climatology
|
| 24 |
|
|
outdir2="summary" #directory for combined daily files and summarized files
|
| 25 |
|
|
if(!file.exists(outdir2)) dir.create(outdir2)
|
| 26 |
|
|
|
| 27 |
|
|
### path to NCO
|
| 28 |
|
|
ncopath="/nasa/sles11/nco/4.0.8/gcc/mpt/bin/"
|
| 29 |
|
|
|
| 30 |
|
|
### Vector of variables that must be in file or they will be deleted.
|
| 31 |
|
|
### Formated as output from system(paste("cdo -s showvar ",fdly$path[i]),intern=T)
|
| 32 |
|
|
#finalvars=" CER COT CLD"
|
| 33 |
|
|
|
| 34 |
|
|
|
| 35 |
|
|
################################################################################
|
| 36 |
|
|
## Get list of all daily files
|
| 37 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Checking daily output in preparation for generating climatology:",tile))
|
| 38 |
35d59dc1
|
Adam M. Wilson @ pfe
|
|
| 39 |
|
|
fdly=data.frame(path=list.files(outdir,pattern="nc$",full=T),stringsAsFactors=F)
|
| 40 |
|
|
fdly$file=basename(fdly$path)
|
| 41 |
|
|
fdly$dateid=substr(fdly$file,14,21)
|
| 42 |
|
|
fdly$date=as.Date(substr(fdly$file,14,21),"%Y%m%d")
|
| 43 |
|
|
fdly$month=format(fdly$date,"%m")
|
| 44 |
|
|
fdly$year=format(fdly$date,"%Y")
|
| 45 |
|
|
nrow(fdly)
|
| 46 |
|
|
|
| 47 |
|
|
## print some summaries
|
| 48 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Summary of available daily files:",tile))
|
| 49 |
35d59dc1
|
Adam M. Wilson @ pfe
|
print(table(fdly$year))
|
| 50 |
|
|
print(table(fdly$month))
|
| 51 |
|
|
#print(table(fdly$fvar))
|
| 52 |
|
|
|
| 53 |
|
|
#################################################################################
|
| 54 |
|
|
## Combine the year-by-year files into a single daily file in the summary directory (for archiving)
|
| 55 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Merging daily files into single file output:",tile))
|
| 56 |
35d59dc1
|
Adam M. Wilson @ pfe
|
|
| 57 |
|
|
## create temporary directory to put intermediate files (will be deleted when R quits)
|
| 58 |
|
|
tsdir=paste(tempdir(),"/summary",sep="")
|
| 59 |
|
|
if(!file.exists(tsdir)) dir.create(tsdir,recursive=T)
|
| 60 |
|
|
|
| 61 |
|
|
## merge all daily files to create a single file with all dates
|
| 62 |
|
|
system(paste(ncopath,"ncrcat -O ",outdir,"/*nc ",outdir2,"/MOD35_",tile,"_daily.nc",sep=""))
|
| 63 |
1523a1e7
|
Adam M. Wilson
|
|
| 64 |
35d59dc1
|
Adam M. Wilson @ pfe
|
## Update attributes
|
| 65 |
|
|
system(paste(ncopath,"ncatted ",
|
| 66 |
c24e32a8
|
Adam M. Wilson @ pfe
|
" -a valid_min,PClear,o,b,0 ",
|
| 67 |
|
|
" -a valid_max,PClear,o,b,100 ",
|
| 68 |
|
|
#" -a valid_range,PClear,o,b,\"0,255\" ",
|
| 69 |
|
|
#" -a missing_value,PClear,o,b,255 ",
|
| 70 |
|
|
#" -a _FillValue,PClear,d,b,255 ",
|
| 71 |
35d59dc1
|
Adam M. Wilson @ pfe
|
" -a units,time,o,c,\"days since 2000-1-1 0:0:0\" ",
|
| 72 |
b3344197
|
Adam M. Wilson @ pfe
|
" -a title,global,o,c,\"MODIS Cloud Product (MOD35) Summaries\" ",
|
| 73 |
35d59dc1
|
Adam M. Wilson @ pfe
|
" -a institution,global,o,c,\"Yale University\" ",
|
| 74 |
b3344197
|
Adam M. Wilson @ pfe
|
" -a source,global,o,c,\"MODIS Collection 6 Cloud Mask (MOD35)\" ",
|
| 75 |
35d59dc1
|
Adam M. Wilson @ pfe
|
" -a comment,global,o,c,\"Compiled by Adam M. Wilson (adam.wilson@yale.edu)\" ",
|
| 76 |
|
|
outdir2,"/MOD35_",tile,"_daily.nc",sep=""))
|
| 77 |
|
|
|
| 78 |
78f94710
|
Adam M. Wilson
|
## report on daily file:
|
| 79 |
|
|
#ncfile=paste(outdir2,"/MOD35_",tile,"_daily.nc",sep="")
|
| 80 |
|
|
system(paste("ncdump -h ",outdir2,"/MOD35_",tile,"_daily.nc | head -20 ",sep=""))
|
| 81 |
|
|
system(paste("cdo showyear ",outdir2,"/MOD35_",tile,"_daily.nc",sep=""))
|
| 82 |
|
|
system(paste("cdo showmon ",outdir2,"/MOD35_",tile,"_daily.nc",sep=""))
|
| 83 |
|
|
#system(paste("cdo showdate ",outdir2,"/MOD35_",tile,"_daily.nc",sep=""))
|
| 84 |
|
|
|
| 85 |
|
|
|
| 86 |
35d59dc1
|
Adam M. Wilson @ pfe
|
### produce a monthly timeseries?
|
| 87 |
|
|
#system(paste("cdo -O monmean ",outdir2,"/MOD35_",tile,"_daily.nc ",tsdir,"/MOD35_",tile,"_monmean.nc",sep=""))
|
| 88 |
|
|
|
| 89 |
|
|
#############################
|
| 90 |
|
|
## Generate the Climatologies
|
| 91 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Generate monthly climatologies: ",tile))
|
| 92 |
35d59dc1
|
Adam M. Wilson @ pfe
|
|
| 93 |
|
|
myear=as.integer(max(fdly$year)) #this year will be used in all dates of monthly climatologies (and day will = 15)
|
| 94 |
|
|
|
| 95 |
b3344197
|
Adam M. Wilson @ pfe
|
## Overall Means
|
| 96 |
|
|
if(verbose) print(paste("Calculating the overall mean:",tile))
|
| 97 |
|
|
system(paste("cdo -O -b I8 -v sorttimestamp -setyear,",myear," -setmon,1 -setday,1 -mulc,-1 -subc,100 -timmean -selyear,2009 ",outdir2,"/MOD35_",tile,"_daily.nc ",outdir2,"/MOD35_",tile,"_2009mean.nc",sep=""),wait=T)
|
| 98 |
|
|
system(paste(ncopath,"ncrename -v PClear,PCloud ",outdir2,"/MOD35_",tile,"_2009mean.nc",sep=""))
|
| 99 |
|
|
system(paste(ncopath,"ncatted ",
|
| 100 |
|
|
" -a long_name,PCloud,o,c,\"Mean Probability of Cloud\" ",
|
| 101 |
|
|
" -a missing_value,PCloud,o,b,255 ",
|
| 102 |
|
|
" -a _FillValue,PCloud,d,b,255 ",
|
| 103 |
|
|
outdir2,"/MOD35_",tile,"_2009mean.nc",sep=""))
|
| 104 |
|
|
|
| 105 |
35d59dc1
|
Adam M. Wilson @ pfe
|
## Monthly means
|
| 106 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Calculating the monthly means:",tile))
|
| 107 |
c24e32a8
|
Adam M. Wilson @ pfe
|
system(paste("cdo -O -b I8 -v sorttimestamp -setyear,",myear," -setday,15 -mulc,-1 -subc,100 -ymonmean ",outdir2,"/MOD35_",tile,"_daily.nc ",tsdir,"/MOD35_",tile,"_ymonmean.nc",sep=""),wait=T)
|
| 108 |
|
|
system(paste(ncopath,"ncrename -v PClear,PCloud ",tsdir,"/MOD35_",tile,"_ymonmean.nc",sep=""))
|
| 109 |
|
|
system(paste(ncopath,"ncatted ",
|
| 110 |
|
|
" -a long_name,PCloud,o,c,\"Mean Probability of Cloud\" ",
|
| 111 |
|
|
" -a missing_value,PCloud,o,b,255 ",
|
| 112 |
|
|
" -a _FillValue,PCloud,d,b,255 ",
|
| 113 |
|
|
tsdir,"/MOD35_",tile,"_ymonmean.nc",sep=""))
|
| 114 |
b83b17ae
|
Adam M. Wilson
|
|
| 115 |
|
|
|
| 116 |
c24e32a8
|
Adam M. Wilson @ pfe
|
## Monthly Mean
|
| 117 |
|
|
#months=c("01","02","03","04","05","06","07","08","09","10","11","12")
|
| 118 |
|
|
# month="02"
|
| 119 |
|
|
|
| 120 |
aba23d60
|
Adam M. Wilson @ pfe
|
#system(paste("cdo -O sorttimestamp -setyear,",myear," -mulc,-1 -subc,100 -ydrunmean,30 ",outdir2,"/MOD35_",tile,"_daily.nc ",outdir2,"/MOD35_",tile,"_ydrunmean30.nc &",sep=""),wait=T)
|
| 121 |
c24e32a8
|
Adam M. Wilson @ pfe
|
#system(paste("scp summary/MOD35_",tile,".nc adamw@acrobates.eeb.yale.edu:/data/personal/adamw/projects/interp/data/modis/mod35/",sep=""))
|
| 122 |
|
|
#system(paste("ncdump -h ",tsdir,"/MOD35_",tile,"_ymonmean.nc ",sep=""))
|
| 123 |
b83b17ae
|
Adam M. Wilson
|
|
| 124 |
35d59dc1
|
Adam M. Wilson @ pfe
|
## Monthly standard deviation
|
| 125 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Calculating the monthly SD:",tile))
|
| 126 |
|
|
system(paste("cdo -O -b I8 sorttimestamp -setyear,",myear," -setday,15 -ymonstd -mulc,-1 -subc,100 -monmean ",
|
| 127 |
aba23d60
|
Adam M. Wilson @ pfe
|
outdir2,"/MOD35_",tile,"_daily.nc ",
|
| 128 |
|
|
tsdir,"/MOD35_",tile,"_ymonstd.nc",sep=""))
|
| 129 |
1523a1e7
|
Adam M. Wilson
|
system(paste(ncopath,"ncrename -v PClear,PCloud_sd ",tsdir,"/MOD35_",tile,"_ymonstd.nc",sep=""))
|
| 130 |
35d59dc1
|
Adam M. Wilson @ pfe
|
system(paste(ncopath,"ncatted ",
|
| 131 |
1523a1e7
|
Adam M. Wilson
|
" -a long_name,PCloud_sd,o,c,\"Standard Deviation of p(cloud)\" ",
|
| 132 |
35d59dc1
|
Adam M. Wilson @ pfe
|
tsdir,"/MOD35_",tile,"_ymonstd.nc",sep=""))
|
| 133 |
|
|
|
| 134 |
1523a1e7
|
Adam M. Wilson
|
## frequency of cloud days p(clear<90%)
|
| 135 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Calculating the proportion of cloudy and probably cloudy days:",tile))
|
| 136 |
c24e32a8
|
Adam M. Wilson @ pfe
|
system(paste("cdo -O -b I8 sorttimestamp -setyear,",myear," -setday,15 -ymonmean -mulc,100 -lec,90 -selvar,PClear ",outdir2,"/MOD35_",tile,"_daily.nc ",tsdir,"/MOD35_",tile,"_ymoncld01.nc",sep=""))
|
| 137 |
1523a1e7
|
Adam M. Wilson
|
system(paste(ncopath,"ncrename -v PClear,CF ",tsdir,"/MOD35_",tile,"_ymoncld01.nc",sep=""))
|
| 138 |
35d59dc1
|
Adam M. Wilson @ pfe
|
system(paste(ncopath,"ncatted ",
|
| 139 |
1523a1e7
|
Adam M. Wilson
|
" -a long_name,CF,o,c,\"Cloud Frequency: Proportion of Days with probability of clear < 90%\" ",
|
| 140 |
|
|
" -a units,CF,o,c,\"Proportion (%)\" ",
|
| 141 |
35d59dc1
|
Adam M. Wilson @ pfe
|
tsdir,"/MOD35_",tile,"_ymoncld01.nc",sep=""))
|
| 142 |
|
|
|
| 143 |
|
|
## number of observations
|
| 144 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Calculating the number of missing variables:",tile))
|
| 145 |
c24e32a8
|
Adam M. Wilson @ pfe
|
system(paste("cdo -O -b I8 sorttimestamp -setyear,",myear," -setday,15 -ymonmean -mulc,100 -eqc,9999 -setmisstoc,9999 -selvar,PClear ",outdir2,"/MOD35_",tile,"_daily.nc ",tsdir,"/MOD35_",tile,"_ymonmiss.nc",sep=""))
|
| 146 |
78f94710
|
Adam M. Wilson
|
system(paste(ncopath,"ncrename -v PClear,Pmiss ",tsdir,"/MOD35_",tile,"_ymonmiss.nc",sep=""))
|
| 147 |
35d59dc1
|
Adam M. Wilson @ pfe
|
system(paste(ncopath,"ncatted ",
|
| 148 |
78f94710
|
Adam M. Wilson
|
" -a long_name,Pmiss,o,c,\"Proportion of Days with missing data\" ",
|
| 149 |
|
|
" -a units,Pmiss,o,c,\"Proportion (%)\" ",
|
| 150 |
|
|
tsdir,"/MOD35_",tile,"_ymonmiss.nc",sep=""))
|
| 151 |
35d59dc1
|
Adam M. Wilson @ pfe
|
|
| 152 |
|
|
## TODO: fix projection information so GDAL can read it correctly.
|
| 153 |
|
|
## clean up variables?
|
| 154 |
|
|
|
| 155 |
|
|
## append variables to a single file
|
| 156 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Append all monthly climatologies into a single file:",tile))
|
| 157 |
35d59dc1
|
Adam M. Wilson @ pfe
|
system(paste(ncopath,"ncks -O ",tsdir,"/MOD35_",tile,"_ymonmean.nc ",tsdir,"/MOD35_",tile,"_ymon.nc",sep=""))
|
| 158 |
|
|
system(paste(ncopath,"ncks -A ",tsdir,"/MOD35_",tile,"_ymonstd.nc ",tsdir,"/MOD35_",tile,"_ymon.nc",sep=""))
|
| 159 |
|
|
system(paste(ncopath,"ncks -A ",tsdir,"/MOD35_",tile,"_ymoncld01.nc ",tsdir,"/MOD35_",tile,"_ymon.nc",sep=""))
|
| 160 |
|
|
system(paste(ncopath,"ncks -A ",tsdir,"/MOD35_",tile,"_ymonmiss.nc ",tsdir,"/MOD35_",tile,"_ymon.nc",sep=""))
|
| 161 |
|
|
|
| 162 |
|
|
## append sinusoidal grid from one of input files as CDO doesn't transfer all attributes
|
| 163 |
be64daa8
|
Adam M. Wilson @ pfe
|
if(verbose) print(paste("Clean up file (update attributes, flip latitudes, add grid description:",tile))
|
| 164 |
35d59dc1
|
Adam M. Wilson @ pfe
|
|
| 165 |
|
|
#system(paste(ncopath,"ncea -d time,0,1 -v sinusoidal ",list.files(outdir,full=T,pattern="[.]nc$")[1]," ",tsdir,"/sinusoidal.nc",sep=""))
|
| 166 |
|
|
#system(paste(ncopath,"ncks -A -d time,0,1 -v sinusoidal ",list.files(outdir,full=T,pattern="[.]nc$")[1]," ",tsdir,"/MOD35_",tile,"_ymon.nc",sep=""))
|
| 167 |
|
|
|
| 168 |
|
|
## invert latitude so it plays nicely with gdal
|
| 169 |
|
|
system(paste(ncopath,"ncpdq -O -a -y ",tsdir,"/MOD35_",tile,"_ymon.nc ",outdir2,"/MOD35_",tile,".nc",sep=""))
|
| 170 |
|
|
|
| 171 |
b716a3f0
|
Adam M. Wilson @ pfe
|
## proj string taken from GDAL-written MODIS tile
|
| 172 |
|
|
projstring="PROJCS[\"Sinusoidal (Sanson-Flamsteed)\",GEOGCS[\"wgs84\",DATUM[\"WGS_1984\",SPHEROID[\"WGS_1984\",6378137,298.257223563],TOWGS84[0,0,0,0,0,0,0]],PRIMEM[\"Greenwich\",0],UNIT[\"degree\",0.0174532925199433]],PROJECTION[\"Sinusoidal\"],PARAMETER[\"longitude_of_center\",0],PARAMETER[\"false_easting\",0],PARAMETER[\"false_northing\",0],UNIT[\"Meter\",1]]"
|
| 173 |
|
|
|
| 174 |
35d59dc1
|
Adam M. Wilson @ pfe
|
## update attributes
|
| 175 |
|
|
system(paste(ncopath,"ncatted ",
|
| 176 |
b716a3f0
|
Adam M. Wilson @ pfe
|
" -a false_easting,sinusoidal,o,d,0. ",
|
| 177 |
|
|
" -a false_northing,sinusoidal,o,d,0. ",
|
| 178 |
|
|
" -a longitude_of_central_meridian,sinusoidal,o,d,0. ",
|
| 179 |
|
|
" -a longitude_of_prime_meridian,sinusoidal,o,d,0. ",
|
| 180 |
|
|
" -a semi_major_axis,sinusoidal,o,d,6378137. ",
|
| 181 |
|
|
" -a inverse_flattening,sinusoidal,o,d,298.257223563 ",
|
| 182 |
|
|
" -a spatial_ref,sinusoidal,o,c,",projstring,
|
| 183 |
|
|
" -a GeoTransform,sinusoidal,o,c,\"-7783653.638366 926.6254331391661 0 1111950.519767 0 -926.6254331391667\" ",
|
| 184 |
35d59dc1
|
Adam M. Wilson @ pfe
|
" -a units,time,o,c,\"days since 2000-1-1 0:0:0\" ",
|
| 185 |
|
|
" -a title,global,o,c,\"MODIS Cloud Product (MOD35) Climatology\" ",
|
| 186 |
b716a3f0
|
Adam M. Wilson @ pfe
|
" -a tile,global,o,c,\"",tile,"\" ",
|
| 187 |
35d59dc1
|
Adam M. Wilson @ pfe
|
" -a institution,global,o,c,\"Yale University\" ",
|
| 188 |
1523a1e7
|
Adam M. Wilson
|
" -a source,global,o,c,\"MODIS Cloud Product (MOD35) Collection 6\" ",
|
| 189 |
35d59dc1
|
Adam M. Wilson @ pfe
|
" -a comment,global,o,c,\"Compiled by Adam M. Wilson (adam.wilson@yale.edu)\" ",
|
| 190 |
|
|
outdir2,"/MOD35_",tile,".nc",sep=""))
|
| 191 |
|
|
|
| 192 |
|
|
|
| 193 |
|
|
print(paste("############################### Processed ",nrow(fdly),"days for tile:",tile," ###################################################"))
|
| 194 |
|
|
print("Years:")
|
| 195 |
|
|
print(table(fdly$fyear))
|
| 196 |
|
|
print("Months:")
|
| 197 |
|
|
print(table(fdly$fmonth))
|
| 198 |
1523a1e7
|
Adam M. Wilson
|
|
| 199 |
35d59dc1
|
Adam M. Wilson @ pfe
|
## quit R
|
| 200 |
|
|
q("no")
|
| 201 |
|
|
|
