Skip to content
6 changes: 3 additions & 3 deletions src/gsi/setuprad.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down