Fix out of bound errors in block_atmos_copy routines (#778)

NOAA-EMC · Feb 9, 2024 · 28bfc36 · 28bfc36
1 parent 9dec0fa
commit 28bfc36
Showing 1 changed file with 6 additions and 6 deletions.
diff --git 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