Returned abi2km to original coding. There are indexing problems and a…

…rray out of bounds from abi2km with this commit
wx20jjung · Oct 13, 2023 · 099b90f · 099b90f
1 parent b04d004
commit 099b90f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/gsi/setuprad.f90 b/src/gsi/setuprad.f90
@@ -1215,9 +1215,9 @@ subroutine setuprad(obsLL,odiagLL,lunin,mype,aivals,stats,nchanl,nreal,nobs,&
 
         predbias=zero
         abi2km_bc = zero
-        abi2km_bc(1) = 233.5_r_kind
-        abi2km_bc(2) = 241.7_r_kind
-        abi2km_bc(3) = 250.5_r_kind
+        abi2km_bc(2) = 233.5_r_kind
+        abi2km_bc(3) = 241.7_r_kind
+        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