From 28bfc365eb65364f1b4972a870837640cb7331a3 Mon Sep 17 00:00:00 2001
From: Dusan Jovic <48258889+DusanJovic-NOAA@users.noreply.github.com>
Date: Fri, 9 Feb 2024 16:27:07 -0500
Subject: [PATCH] Fix out of bound errors in block_atmos_copy routines (#778)

---
 cpl/module_block_data.F90 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/cpl/module_block_data.F90 b/cpl/module_block_data.F90
index 7bd0a71b3..b5dc6cc80 100644
--- a/cpl/module_block_data.F90
+++ b/cpl/module_block_data.F90
@@ -365,7 +365,7 @@ subroutine block_array_copy_2d_r8_to_2d_r8(destin_ptr, source_arr, block, block_
         jb = block%index(block_index)%jj(ix)
         i = ib - block%isc + 1
         j = jb - block%jsc + 1
-        destin_ptr(i,j) = factor * source_arr(ib,jb)
+        destin_ptr(i,j) = factor * source_arr(i,j)
       enddo
       localrc = ESMF_SUCCESS
     end if
@@ -440,7 +440,7 @@ subroutine block_array_copy_3d_r8_to_3d_r8(destin_ptr, source_arr, block, block_
           jb = block%index(block_index)%jj(ix)
           i = ib - block%isc + 1
           j = jb - block%jsc + 1
-          destin_ptr(i,j,k) = factor * source_arr(ib,jb,k)
+          destin_ptr(i,j,k) = factor * source_arr(i,j,k)
         enddo
       enddo
       localrc = ESMF_SUCCESS
@@ -523,7 +523,7 @@ subroutine block_array_copy_3dslice_r8_to_3d_r8(destin_ptr, source_arr, slice, b
             jb = block%index(block_index)%jj(ix)
             i = ib - block%isc + 1
             j = jb - block%jsc + 1
-            destin_ptr(i,j,k) = factor * source_arr(ib,jb,k,slice)
+            destin_ptr(i,j,k) = factor * source_arr(i,j,k,slice)
           enddo
         enddo
         localrc = ESMF_SUCCESS
@@ -1004,7 +1004,7 @@ subroutine block_array_copy_2d_r4_to_2d_r8(destin_ptr, source_arr, block, block_
         jb = block%index(block_index)%jj(ix)
         i = ib - block%isc + 1
         j = jb - block%jsc + 1
-        destin_ptr(i,j) = factor * source_arr(ib,jb)
+        destin_ptr(i,j) = factor * source_arr(i,j)
       enddo
       localrc = ESMF_SUCCESS
     end if
@@ -1079,7 +1079,7 @@ subroutine block_array_copy_3d_r4_to_3d_r8(destin_ptr, source_arr, block, block_
           jb = block%index(block_index)%jj(ix)
           i = ib - block%isc + 1
           j = jb - block%jsc + 1
-          destin_ptr(i,j,k) = factor * source_arr(ib,jb,k)
+          destin_ptr(i,j,k) = factor * source_arr(i,j,k)
         enddo
       enddo
       localrc = ESMF_SUCCESS
@@ -1162,7 +1162,7 @@ subroutine block_array_copy_3dslice_r4_to_3d_r8(destin_ptr, source_arr, slice, b
             jb = block%index(block_index)%jj(ix)
             i = ib - block%isc + 1
             j = jb - block%jsc + 1
-            destin_ptr(i,j,k) = factor * source_arr(ib,jb,k,slice)
+            destin_ptr(i,j,k) = factor * source_arr(i,j,k,slice)
           enddo
         enddo
         localrc = ESMF_SUCCESS