From 551d356bd42735b621f4235707b8b2260244cbd9 Mon Sep 17 00:00:00 2001 From: BlueGrisGris <26747788+BlueGrisGris@users.noreply.github.com> Date: Tue, 30 Apr 2024 22:28:19 -0400 Subject: [PATCH] Update find_met_files.r: forward simulation time bugfix Fix issue where find_met_files.r was not looking for the correct met files in forward simulations --- r/src/find_met_files.r | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/r/src/find_met_files.r b/r/src/find_met_files.r index 18aa5d7..0610335 100644 --- a/r/src/find_met_files.r +++ b/r/src/find_met_files.r @@ -18,6 +18,7 @@ find_met_files <- function(t_start, met_file_format, n_hours, met_path) { require(dplyr) + n_hours_per_met_file <- 6 is_backward <- n_hours < 0 # TODO: implement n_hours_per_met_file to better determine file names at @@ -27,7 +28,16 @@ find_met_files <- function(t_start, met_file_format, n_hours, met_path) { range() %>% (function(x) seq(x[1], x[2], by = 'hour')) %>% strftime(tz = 'UTC', format = met_file_format) - + # patch to retrieve correct met files for forward simulations + if(!is_backward){ + request <- seq( + as.POSIXct(t_start, tz='UTC')-as.difftime(n_hours_per_met_file,units="hours") + , as.POSIXct(t_start, tz='UTC')+as.difftime(n_hours,units="hours") + , by = 60*60 + ) %>% + strftime(tz = 'UTC', format = met_file_format) + }#end if(n_hours>0) + available <- dir(met_path, full.names = T, recursive = T) available <- available[!grepl('.lock', available)]