Oneline minor change

modified: src/gsi/setupfed.f90
hongli-wang · Sep 29, 2023 · 9836c30 · 9836c30
1 parent dd2bb23
commit 9836c30
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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