restore the line to initialize 'raterr2' as zero (NOAA-EMC#668)

hafs-community · Dec 20, 2023 · 275ee0d · 275ee0d
1 parent 2353eaa
commit 275ee0d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/gsi/setuprad.f90 b/src/gsi/setuprad.f90
@@ -1801,6 +1801,7 @@ subroutine setuprad(obsLL,odiagLL,lunin,mype,aivals,stats,nchanl,nreal,nobs,&
         diagadd=zero
         account_for_corr_obs = .false.
         varinv0=zero
+        raterr2 = zero
 !$omp parallel do  schedule(dynamic,1) private(ii,m,k,asum)
         do ii=1,nchanl
            m=ich(ii)