if (FALSE) {
# Do not run
# emissions for a 1 day forecast for domains 1 and 2
dir.create(file.path(tempdir(), "EMISS"))
# emissions on date_hour style
wrf_create(wrfinput_dir = system.file("extdata", package = "eixport"),
wrfchemi_dir = file.path(tempdir(), "EMISS"),
domains = 1:2,
frames_per_auxinput5 = 25,
auxinput5_interval_m = 60,
verbose = TRUE)
# emissions on 00z / 12z style, create the 00z
wrf_create(wrfinput_dir = system.file("extdata", package = "eixport"),
wrfchemi_dir = file.path(tempdir(), "EMISS"),
domains = 1:2,
io_style_emissions = 1,
day_offset = 0,
verbose = TRUE,
)
# emissions on 00z / 12z style, create the 12z
wrf_create(wrfinput_dir = system.file("extdata", package = "eixport"),
wrfchemi_dir = file.path(tempdir(), "EMISS"),
domains = 1:2,
io_style_emissions = 1,
day_offset = 0.5,
verbose = TRUE)
}
Run the code above in your browser using DataLab