Which field(s)?

earth-system-radiation · Dec 20, 2024 · d814a4f · d814a4f
1 parent f9d9ca4
commit d814a4f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/tests/check_equivalence.F90 b/tests/check_equivalence.F90
@@ -430,8 +430,12 @@ program rte_check_equivalence
                             fluxes))
     if(.not. allclose(tst_flux_up, ref_flux_up, tol = 10._wp) .or. & 
        .not. allclose(tst_flux_dn, ref_flux_dn, tol = 10._wp) .or. & 
-       .not. allclose(tst_flux_dir,ref_flux_dir,tol = 10._wp)) &  
+       .not. allclose(tst_flux_dir,ref_flux_dir,tol = 10._wp)) then 
+       print *, allclose(tst_flux_up, ref_flux_up, tol = 10._wp), & 
+                allclose(tst_flux_dn, ref_flux_dn, tol = 10._wp), & 
+                allclose(tst_flux_dir,ref_flux_dir,tol = 10._wp)
       call report_err("  halving/doubling fails")
+    end if 
 
     !
     ! Incremement with 0 optical depth