diff --git a/ccpp/framework b/ccpp/framework index 0f8232724..b7d55fd07 160000 --- a/ccpp/framework +++ b/ccpp/framework @@ -1 +1 @@ -Subproject commit 0f8232724975c13289cad390c9a71fa2c6a9bff4 +Subproject commit b7d55fd07fa35c5de9b2292596d30784a800b276 diff --git a/io/module_write_netcdf.F90 b/io/module_write_netcdf.F90 index b0164151e..03a9d57dc 100644 --- a/io/module_write_netcdf.F90 +++ b/io/module_write_netcdf.F90 @@ -398,14 +398,14 @@ end function nf_set_log_level par_access = NF90_COLLECTIVE if (rank == 2 .and. ichunk2d(grid_id) > 0 .and. jchunk2d(grid_id) > 0) then if (is_cubed_sphere) then - chunksizes = [im, jm, tileCount, 1] + chunksizes = [im, jm, 1, 1] else chunksizes = [ichunk2d(grid_id), jchunk2d(grid_id), 1] end if ncerr = nf90_def_var_chunking(ncid, varids(i), NF90_CHUNKED, chunksizes) ; NC_ERR_STOP(ncerr) else if (rank == 3 .and. ichunk3d(grid_id) > 0 .and. jchunk3d(grid_id) > 0 .and. kchunk3d(grid_id) > 0) then if (is_cubed_sphere) then - chunksizes = [im, jm, lm, tileCount, 1] + chunksizes = [im, jm, 1, 1, 1] else chunksizes = [ichunk3d(grid_id), jchunk3d(grid_id), min(kchunk3d(grid_id),fldlev(i)), 1] end if