Issue:A indexing out of bounds issue shown in the global_4denvar regr…

…ession test in setuprad.f90 #676

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