Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

GEFS download fixes #3349

Open
wants to merge 11 commits into
base: develop
Choose a base branch
from
Open

GEFS download fixes #3349

Changes from 1 commit
Commits
Show all changes
11 commits
Select commit Hold shift + click to select a range
a1328e1
get GEFS download working again
infotroph Jul 31, 2024
83db1ba
typo
infotroph Jul 31, 2024
1c63c21
Update modules/data.atmosphere/NEWS.md
infotroph Jul 31, 2024
bd267b4
Update modules/data.atmosphere/R/GEFS_helper_functions.R
infotroph Jul 31, 2024
ecf3d04
Update modules/data.atmosphere/R/GEFS_helper_functions.R
infotroph Aug 5, 2024
df252a0
clarify names
infotroph Aug 5, 2024
03fc213
clarify names
infotroph Aug 5, 2024
abcda0c
add myself to data.atm author list
infotroph Aug 9, 2024
a9e02d5
Merge branch 'develop' into GEFS-fix
mdietze Aug 22, 2024
84bf150
Merge branch 'develop' into GEFS-fix
mdietze Sep 9, 2024
8c161cd
Merge branch 'develop' into GEFS-fix
infotroph Sep 23, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
clarify names
  • Loading branch information
@infotroph
infotroph authored Aug 5, 2024
commit df252a071c02a2a492d8b1c4249859df3af1ae8c
6 changes: 3 additions & 3 deletions modules/data.atmosphere/R/GEFS_helper_functions.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,9 +17,9 @@ noaa_grid_download <- function(lat_list, lon_list, forecast_time, forecast_date,


download_grid <- function(ens_index, location, directory, hours_char, cycle, base_filename1, vars,working_directory){
ens_base <- if (ens_index == 1) { "gec" } else { "gep" }
ens_idx <- stringr::str_pad(ens_index - 1, width = 2, pad = "0")
base_filename2 <- paste0(ens_base,ens_idx,".t",cycle,"z.pgrb2a.0p50.f")
member_type <- if (ens_index == 1) { "gec" } else { "gep" } # "_c_ontrol", "_p_erturbed"
ens_idxname <- stringr::str_pad(ens_index - 1, width = 2, pad = "0")
base_filename2 <- paste0(member_type,ens_idxname,".t",cycle,"z.pgrb2a.0p50.f")
curr_hours <- hours_char

for(i in 1:length(curr_hours)){
Expand Down
Loading