Changes to make all regression tests to duplicate earlier results.

jderber-NOAA · Jan 18, 2024 · b7bdbc4 · b7bdbc4
1 parent 4c4008a
commit b7bdbc4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/gsi/mod_fv3_lola.f90 b/src/gsi/mod_fv3_lola.f90
@@ -980,11 +980,11 @@ subroutine definecoef_regular_grids(nxen,nyen,grid_lon,grid_lont,grid_lat,grid_l
      do i=1,nxen+1
         rlat=half*(grid_lat(i,j)+grid_lat(i,j+1))
 !        rlon=half*(grid_lon(i,j)+grid_lon(i,j+1))
-        diff=(grid_lon(i,j)-grid_lon(i,j+1))**2
+        diff=(grid_lon(i,j)-grid_lon(i+1,j))**2
         if(diff < sq180)then
-           rlon=half*(grid_lon(i,j)+grid_lon(i,j+1))
+           rlon=half*(grid_lon(i,j)+grid_lon(i+1,j))
         else
-           rlon=half*(grid_lon(i,j)+grid_lon(i,j+1)-360._r_kind)
+           rlon=half*(grid_lon(i,j)+grid_lon(i+1,j)-360._r_kind)
         endif
         xr=cos(rlat*deg2rad)*cos(rlon*deg2rad)
         yr=cos(rlat*deg2rad)*sin(rlon*deg2rad)