From 9836c30822f61415874db7334c23beaabf5e70d8 Mon Sep 17 00:00:00 2001 From: Hongli Wang Date: Fri, 29 Sep 2023 16:07:32 +0000 Subject: [PATCH] Oneline minor change modified: src/gsi/setupfed.f90 --- src/gsi/setupfed.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gsi/setupfed.f90 b/src/gsi/setupfed.f90 index c60a6dd5de..d25af45fad 100644 --- a/src/gsi/setupfed.f90 +++ b/src/gsi/setupfed.f90 @@ -580,7 +580,7 @@ subroutine setupfed(obsLL,odiagLL,lunin,mype,bwork,awork,nele,nobs,is,fed_diagsa write(6,*)"FED_ONEOB: Innov,Error= ",ddiff,magoberr else data(ifedob,i) = oneobvalue - ddiff = oneobvalue - FEDMdiag(i) + ddiff = data(ifedob,i) - FEDMdiag(i) end if end if !oneob