Commit a7caf404 authored by fbourgin's avatar fbourgin
Browse files

UPDATE: Add test to check that the Fortran version works

parent 33b716f4
Pipeline #16482 passed with stages
in 10 minutes and 34 seconds
context("Test evaporation")
test_that("PEdaily_Oudin works", {
skip_on_cran()
rm(list = ls())
data(L0123001)
PotEvap <- PEdaily_Oudin(JD = as.POSIXlt(BasinObs$DatesR)$yday + 1,
Temp = BasinObs$T,
Lat = 0.8, LatUnit = "rad")
PotEvapFor <- PEdaily_Oudin(JD = as.POSIXlt(BasinObs$DatesR)$yday + 1,
Temp = BasinObs$T,
Lat = 0.8, LatUnit = "rad", run_fortran = T)
expect_true(all(range(PotEvap - PotEvapFor) < 0.001))
})
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment