forgot these constants

NOAA-GFDL · Aug 14, 2023 · cf2c385 · cf2c385
1 parent 69f67a2
commit cf2c385
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/test_fms/exchange/test_xgrid.F90 b/test_fms/exchange/test_xgrid.F90
@@ -459,14 +459,14 @@ program xgrid_test
         xt = 0; yt = 0;
         do j = jsc_atm, jec_atm
            do i = isc_atm, iec_atm
-              xt(i,j) = tmpx(2*i, 2*j)*real(DEG_TO_RAD, r8_kind)
-              yt(i,j) = tmpy(2*i, 2*j)*real(DEG_TO_RAD, r8_kind)
+              xt(i,j) = tmpx(2*i, 2*j)*DEG_TO_RAD
+              yt(i,j) = tmpy(2*i, 2*j)*DEG_TO_RAD
            end do
         end do
         do j = jsc_atm, jed_atm
            do i = isc_atm, ied_atm
-              xc(i,j) = tmpx(2*i-1, 2*j-1)*real(DEG_TO_RAD, r8_kind)
-              yc(i,j) = tmpy(2*i-1, 2*j-1)*real(DEG_TO_RAD, r8_kind)
+              xc(i,j) = tmpx(2*i-1, 2*j-1)*DEG_TO_RAD
+              yc(i,j) = tmpy(2*i-1, 2*j-1)*DEG_TO_RAD
            end do
         end do
         call mpp_update_domains(xt, atm_domain)