Eliminate implicit kinds and typecasts

NOAA-GFDL · Aug 30, 2023 · da7da2c · da7da2c
1 parent d93c3cd
commit da7da2c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/data_override/include/data_override.inc b/data_override/include/data_override.inc
@@ -907,8 +907,8 @@ subroutine DATA_OVERRIDE_3D_(gridname,fieldname_code,data,time,override,data_ind
            call mpp_error(FATAL,'data_override: file '//trim(filename)//' is not opened in time_interp_external')
         end if
 ! convert lon_in and lat_in from deg to radian
-        override_array(curr_position)%lon_in = override_array(curr_position)%lon_in * DEG_TO_RAD
-        override_array(curr_position)%lat_in = override_array(curr_position)%lat_in * DEG_TO_RAD
+        override_array(curr_position)%lon_in = override_array(curr_position)%lon_in * real(DEG_TO_RAD, lkind)
+        override_array(curr_position)%lat_in = override_array(curr_position)%lat_in * real(DEG_TO_RAD, lkind)
 
         !--- find the region of the source grid that cover the local model grid.
         !--- currently we only find the index range for j-direction because

diff --git a/test_fms/data_override/test_get_grid_v1.F90 b/test_fms/data_override/test_get_grid_v1.F90
@@ -131,11 +131,11 @@ program test_get_grid_v1
                         min_lon, max_lon)
 
 !< Error checking:
-if (lon(1,1) .ne. sum(lon_vert_in)/4*real(DEG_TO_RAD, lkind) ) then
+if (lon(1,1) .ne. sum(lon_vert_in)/4._lkind * real(DEG_TO_RAD, lkind) ) then
      call mpp_error(FATAL,'test_get_grid_v1: ocn, new grid, lon is not the expected result')
 endif
 
-if (lat(1,1) .ne. sum(lat_vert_in)/4*real(DEG_TO_RAD, lkind) ) then
+if (lat(1,1) .ne. sum(lat_vert_in)/4._lkind * real(DEG_TO_RAD, lkind) ) then
      call mpp_error(FATAL,'test_get_grid_v1: ocn, new grid, lat is not the expected result')
 endif