fix kind name in constant

Author: rem1776

test_fms/horiz_interp/test_horiz_interp.F90

@@ -123,9 +123,9 @@ subroutine test_horiz_interp_spherical
     real(HI_TEST_KIND_) :: tolerance
 
     if(HI_TEST_KIND_ == r8_kind) then
-      tolerance = 1.0e-10_r8_kind
+      tolerance = 1.0e-10_lkind
     else
-      tolerance = 1.0e-5_r4_kind
+      tolerance = 1.0e-5_lkind
     endif
 
     ! set up longitude and latitude of source/destination grid.