From 4120c1e1cd3b2576d3b86f93173d03ee400f2c93 Mon Sep 17 00:00:00 2001 From: xincjin-NOAA Date: Tue, 13 Aug 2024 15:55:59 +0000 Subject: [PATCH 1/2] fix a bug in deter_sfc_gmi (#778) --- fix | 2 +- src/gsi/deter_sfc_mod.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/fix b/fix index 2a86d5b1a0..0be26971f8 160000 --- a/fix +++ b/fix @@ -1 +1 @@ -Subproject commit 2a86d5b1a09a8908618d1c8a376c68e8d9b3d02c +Subproject commit 0be26971f834fe9b1d5b118e1e0ffed53facf671 diff --git a/src/gsi/deter_sfc_mod.f90 b/src/gsi/deter_sfc_mod.f90 index 271e81c5d2..2fa85f8ba5 100644 --- 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 From 30ca72508b65f748758875e264b86d3406c910f2 Mon Sep 17 00:00:00 2001 From: xincjin-NOAA Date: Tue, 13 Aug 2024 21:20:10 +0000 Subject: [PATCH 2/2] update fix to 2a86d5b --- fix | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fix b/fix index 0be26971f8..2a86d5b1a0 160000 --- a/fix +++ b/fix @@ -1 +1 @@ -Subproject commit 0be26971f834fe9b1d5b118e1e0ffed53facf671 +Subproject commit 2a86d5b1a09a8908618d1c8a376c68e8d9b3d02c