From 70ed687f72e85f74fcf3092b3e12b04e71ff0644 Mon Sep 17 00:00:00 2001
From: TingLei-daprediction <leiting2002@gmail.com>
Date: Thu, 11 Jan 2024 12:08:24 +0000
Subject: [PATCH] Issue:A indexing out of bounds issue shown in the
 global_4denvar regression test in setuprad.f90 #676

---
 src/gsi/setuprad.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/gsi/setuprad.f90 b/src/gsi/setuprad.f90
index 856715d4c2..c00885aebf 100644
--- a/src/gsi/setuprad.f90
+++ b/src/gsi/setuprad.f90
@@ -1103,9 +1103,9 @@ subroutine setuprad(obsLL,odiagLL,lunin,mype,aivals,stats,nchanl,nreal,nobs,&
 
         predbias=zero
         abi2km_bc = zero
-        abi2km_bc(2) = 233.5_r_kind
-        abi2km_bc(3) = 241.7_r_kind
-        abi2km_bc(4) = 250.5_r_kind
+        if (2.le.size(abi2km_bc))  abi2km_bc(2) = 233.5_r_kind
+        if(3.le.size(abi2km_bc)) abi2km_bc(3) = 241.7_r_kind
+        if(4.le.size(abi2km_bc))  abi2km_bc(4) = 250.5_r_kind
 
 !$omp parallel do  schedule(dynamic,1) private(i,mm,j,k,tlap,node,bias)
         do i=1,nchanl