fix starting lat in test

mlee03 · Dec 10, 2024 · 08b564a · 08b564a
1 parent cb9aa6a
commit 08b564a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test_fms/horiz_interp/test_create_xgrid_order2.F90 b/test_fms/horiz_interp/test_create_xgrid_order2.F90
@@ -72,7 +72,7 @@ subroutine get_grid(nlon, nlat, lon, lat)
 
     integer :: ilon, ilat, igridpt
     real :: dlat=0.0_lkind, dlon=0.0_lkind
-    real :: lon_start=0.0_lkind, lat_start=-90.0_lkind
+    real :: lon_start=0.0_lkind, lat_start=-90.0_lkind*DEG_TO_RAD
 
     dlat = 180._lkind/real(nlat, HI_TEST_KIND_) * DEG_TO_RAD
     dlon = 360._lkind/real(nlon, HI_TEST_KIND_) * DEG_TO_RAD