Fix error in support_2dvar.f90

jderber-NOAA · Oct 2, 2023 · 1a719a3 · 1a719a3
1 parent c5c79d0
commit 1a719a3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/gsi/support_2dvar.f90 b/src/gsi/support_2dvar.f90
@@ -2466,7 +2466,7 @@ subroutine relocsfcob(rlon8,rlat8,cobtypein,cstationin,kxin)
      je=min((jstart+jneighbour),ny)
 
      ris=real(is,r_single)
-     rie=real(is,r_single)
+     rie=real(ie,r_single)
      rjs=real(js,r_single)
      rje=real(je,r_single)