("Canada" == (map.where(database="world",
                        proj.Models3.to.lonlat(grid.data$x.cell.ctr[col],
                                               grid.data$y.cell.ctr[row],file.name))))
row <- 1
col <- 1
("Canada" == (map.where(database="world",
                        proj.Models3.to.lonlat(grid.data$x.cell.ctr[col],
                                               grid.data$y.cell.ctr[row],file.name))))
((!(is.na(place))) & (place == "Canada"))
((!(is.na(place))) & (place == "Canada"))
row <- 250
col <- 150
                                               grid.data$y.cell.ctr[row],file.name)))
palce
place
((!(is.na(place))) & (place == "Canada"))
row <- 150
place
((!(is.na(place))) & (place == "Canada"))
quit()
n
file.Rscript <- "/project/pinder/lightningNOx/emissions/src/base/R-script"
file.Rscript <- "/project/pinder/lightningNOx/emissions/src/base/R-scripts"
file.name <- "/project/pinder/lightningNOx/emissions/src/base/output/LTNG_RATIO.2006.06.ioapi"
grid.data
names(grid.data)
grid.data$units.km
grid.data$x.cell.ctr[]
grid.data$x.cell.ctr[1] - grid.data$x.cell.ctr[2]
km.square
quit()
n
