fix indexing for unit tests

NOAA-GFDL · Dec 10, 2024 · cb9aa6a · cb9aa6a
1 parent 31c7247
commit cb9aa6a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/test_fms/horiz_interp/test_create_xgrid_order2.F90 b/test_fms/horiz_interp/test_create_xgrid_order2.F90
@@ -77,12 +77,12 @@ subroutine get_grid(nlon, nlat, lon, lat)
     dlat = 180._lkind/real(nlat, HI_TEST_KIND_) * DEG_TO_RAD
     dlon = 360._lkind/real(nlon, HI_TEST_KIND_) * DEG_TO_RAD
 
-    igridpt = 0
+    igridpt = 1
     do ilat=1, nlat+1
       do ilon=1, nlon+1
-        igridpt = igridpt + 1
         lon(igridpt) = lon_start + real(ilon-1, HI_TEST_KIND_)*dlon
         lat(igridpt) = lat_start + real(ilat-1, HI_TEST_KIND_)*dlat
+        igridpt = igridpt + 1
       end do
     end do
 

diff --git a/test_fms/horiz_interp/test_create_xgrid_order2.sh b/test_fms/horiz_interp/test_create_xgrid_order2.sh
@@ -29,7 +29,5 @@
 . ../test-lib.sh
 
 
-test_expect_success "create_xgrid order2" '
-  ./test_create_xgrid_order2_r8
-'
+test_expect_success "create_xgrid order2" './test_create_xgrid_order2_r8'
 test_done