diff --git a/test_fms/horiz_interp/test_create_xgrid_order2.F90 b/test_fms/horiz_interp/test_create_xgrid_order2.F90 index cd780e40e..68b4e9faf 100644 --- 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 index c441d31a6..eb962ac42 100755 --- 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