Merge pull request #1909 from GEOS-ESM/bugfix/wjiang/halo_index

fix typo in the range of halo in LatLonGridfactory
GEOS-ESM · Jan 9, 2023 · b1343dd · b1343dd
2 parents a08d1f0 + fb9e000
commit b1343dd
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -13,6 +13,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Fixed
 
+- Fixed range in halo of LatLonGridFactory
+
 ### Removed
 
 ### Deprecated

diff --git a/base/MAPL_LatLonGridFactory.F90 b/base/MAPL_LatLonGridFactory.F90
@@ -1718,8 +1718,8 @@ subroutine fill_east(array, rc)
 
          integer :: len, last
 
-         last = size(array,2)-1
-         len = size(array,1)
+         last = size(array,1)-1
+         len = size(array,2)
 
          call MAPL_CommsSendRecv(this%layout,      &
               array(2     , : ),  len,  pet_west,  &
@@ -1744,8 +1744,8 @@ subroutine fill_west(array, rc)
          len = size(array,2)
 
          call MAPL_CommsSendRecv(this%layout,   &
-              array(last  , : ),  len,  pet_west,  &
-              array(1     , : ),  len,  pet_east,  &
+              array(last  , : ),  len,  pet_east,  &
+              array(1     , : ),  len,  pet_west,  &
               rc=status)
          _VERIFY(status)