R/formulae_raster.R

Defines functions ext_rad_raster

ext_rad_raster <- function(t0, t1, j, rst) {
  sc <- equation_of_time(j)
  tm <- (ifelse(t0 > t1, (24 + t1 + t0), (t0 + t1)) / 2) %% 24
  tdif <- ifelse(t0 > t1, 24 + t1 - t0, t1 - t0)
}
jvitorpinto/agmet documentation built on Jan. 30, 2023, 6:33 a.m.