Skip to content

Commit

Permalink
Update chunksizes for cubed sphere grid (#876)
Browse files Browse the repository at this point in the history
* 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 <dom.heinzeller@icloud.com>
  • Loading branch information
DusanJovic-NOAA and climbfuji authored Oct 23, 2024
1 parent 1e10d62 commit 99091f9
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
4 changes: 2 additions & 2 deletions io/module_write_netcdf.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 99091f9

Please sign in to comment.