From 99091f9742670bdebd84bd13f17b9115457d64dd Mon Sep 17 00:00:00 2001 From: Dusan Jovic <48258889+DusanJovic-NOAA@users.noreply.github.com> Date: Wed, 23 Oct 2024 09:03:59 -0400 Subject: [PATCH] Update chunksizes for cubed sphere grid (#876) * Update chunksizes for cubed sphere grid * Update submodule pointer for ccpp-framework: bug fix for unit conversion error in ccpp_prebuild.py (PR-878) --------- Co-authored-by: Dom Heinzeller --- ccpp/framework | 2 +- io/module_write_netcdf.F90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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