change arg names in routine check answers

mcallic2 · Sep 20, 2023 · 8413195 · 8413195
1 parent 75f1359
commit 8413195
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/test_fms/topography/test_topography.F90 b/test_fms/topography/test_topography.F90
@@ -291,15 +291,15 @@ subroutine test_get_water_mask
 
   end subroutine test_get_water_mask
 
-  subroutine check_answers(result, answer, what_error)
+  subroutine check_answers(calculated_answer, expected_answer, what_error)
 
     implicit none
-    real(kind=TEST_TOP_KIND_) :: result       ! value calculated from script
-    real(kind=TEST_TOP_KIND_) :: answer       ! expected answer
-    character(*)              :: what_error   ! error message to print
+    real(kind=TEST_TOP_KIND_) :: calculated_answer   ! value calculated from script
+    real(kind=TEST_TOP_KIND_) :: expected_answer     ! expected answer
+    character(*)              :: what_error          ! error message to print
 
-    if (result .ne. answer) then
-      write(*,*) 'Expected ', answer, ' but computed ', result
+    if (calculated_answer.ne. expected_answer) then
+      write(*,*) 'Expected ', expected_answer, ' but computed ', calculated_answer
       call mpp_error(FATAL, trim(what_error))
     end if