fix for floating point comparison in astronomy test

NOAA-GFDL · Dec 23, 2024 · 6fb53de · 6fb53de
1 parent 762bff4
commit 6fb53de
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/test_fms/astronomy/test_astronomy.F90 b/test_fms/astronomy/test_astronomy.F90
@@ -271,8 +271,9 @@ subroutine check_answers( results, answers, whoami )
     implicit none
     real(TEST_AST_KIND_) :: answers, results
     character(*) :: whoami
+    integer, parameter   :: lkind = TEST_AST_KIND_
 
-    if (results.ne.answers) then
+    if (abs(results - answers) .gt. 1.0e-10_lkind) then
        write(*,*) 'EXPECTED ', answers, ' but computed ', results
        call mpp_error(FATAL, trim(whoami))
     end if