folder <- system.file("extdata",package="eva3dm")
wrf <- paste0(folder,"/wrfinput_d01")
A <- wrf_rast(wrf,'XLAT')
terra::units(A) <- 'degrees'
B <- wrf_rast(wrf,'XLONG')
plot_diff(A,B,int = 2)
Run the code above in your browser using DataLab