Merge pull request #2014 from jedwards4b/fix_in_piolib_mod_initdecomp_bc

fix bug found by Dusan

Author: jedwards4b

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, &