From c675326f1e1a6539c2ff6448ca7f27f1f4b4e396 Mon Sep 17 00:00:00 2001
From: Xiaoyan Zhang <xiaoyan.zhang@noaa.gov>
Date: Tue, 12 Dec 2023 17:56:15 +0000
Subject: [PATCH] restore the line to initilize  'raterr2' as zero

---
 src/gsi/setuprad.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/gsi/setuprad.f90 b/src/gsi/setuprad.f90
index 1ff2474e20..856715d4c2 100644
--- 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)