From 000bb950d1aaf132f9ccac87e80d78d9ae86f12f Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Mon, 29 Sep 2025 10:44:33 -0600 Subject: [PATCH] fix bug found by Dusan --- src/flib/piolib_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/flib/piolib_mod.F90 b/src/flib/piolib_mod.F90 index 265a0e102..285de5475 100644 --- a/src/flib/piolib_mod.F90 +++ b/src/flib/piolib_mod.F90 @@ -564,7 +564,7 @@ end function PIOc_InitDecomp_bc do i=1,ndims cdims(i) = dims(ndims-i+1) cstart(i) = compstart(ndims-i+1)-1 - cstart(i) = compcount(ndims-i+1) + ccount(i) = compcount(ndims-i+1) end do ierr = PIOc_InitDecomp_bc(iosystem%iosysid, basepiotype, ndims, cdims, &