Update tolerance for checking rad. equil. (single precision was failing)

earth-system-radiation · Apr 19, 2024 · 5842bd2 · 5842bd2
1 parent 0cd245a
commit 5842bd2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/rte_lw_solver_unit_tests.F90 b/tests/rte_lw_solver_unit_tests.F90
@@ -316,7 +316,7 @@ function check_gray_rad_equil(sfc_T, lw_tau, top_at_1, up_flux, net_flux)
     !
     if(.not. allclose(net_flux(:,:), & 
                       spread(net_flux(:,1), dim=2, ncopies=size(net_flux,2)), &
-                      tol = 70._wp)) then 
+                      tol = 100._wp)) then 
       call report_err("Net flux not constant with tau in gray radiative equilibrium")
       check_gray_rad_equil = .false.
     end if