Merge fixes for HRRR and WRF convention file compatibility

uataq · Apr 28, 2018 · 22bd5fb · 22bd5fb
1 parent 730834f
commit 22bd5fb
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/r/src/find_met_files.r b/r/src/find_met_files.r
@@ -18,10 +18,9 @@
 find_met_files <- function(t_start, met_file_format, n_hours, met_loc) {
   require(dplyr)
 
-  request <- c(t_start %>% as.POSIXct(tz='UTC')) %>%
-    c(. + n_hours * c(3600, 3601)) %>%
+  request <- as.POSIXct(t_start, tz='UTC') %>%
+    c(. + c(n_hours, n_hours - 5) * 3600) %>%
     range() %>%
-    round('hours') %>%
     (function(x) seq(x[1], x[2], by = 'hour')) %>%
     strftime(tz = 'UTC', format = met_file_format)