fix a bug in deter_sfc_gmi (#781)

NOAA-EMC · Aug 15, 2024 · 5ff4f3f · 5ff4f3f
1 parent c1eb61c
commit 5ff4f3f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/gsi/deter_sfc_mod.f90 b/src/gsi/deter_sfc_mod.f90
@@ -1410,7 +1410,7 @@ subroutine deter_sfc_gmi(dlat_earth,dlon_earth,isflg)
      n_grid=int(40000 / grid_dist) + 1
      klatn = max(klat1 - n_grid, 1)
      klonn = klon1 - n_grid
-     if (klonn < 0)  klonn = nlon_sfc - klonn
+     if (klonn < 1)  klonn = nlon_sfc - klonn
      klatpn = min((klat1 + n_grid), nlat_sfc)
      klonpn = klon1 + n_grid
      if (klonpn > nlon_sfc)  klonpn = klonpn - nlon_sfc