lower precision used in check for astronomy test again

rem1776 · Jan 2, 2025 · 8a8e29b · 8a8e29b
1 parent 897b265
commit 8a8e29b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test_fms/astronomy/test_astronomy.F90 b/test_fms/astronomy/test_astronomy.F90
@@ -273,7 +273,7 @@ subroutine check_answers( results, answers, whoami )
     integer, parameter   :: lkind = TEST_AST_KIND_
     character(*) :: whoami
 
-    if (ABS(results-answers) .gt. 1.0e-7_lkind ) then
+    if (ABS(results-answers) .gt. 1.0e-5_lkind ) then
        write(*,*) 'EXPECTED ', answers, ' but computed ', results
        call mpp_error(FATAL, trim(whoami))
     end if