From 6d7cb5a6b17910132ef860bfcc424dfb92bce232 Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Tue, 29 Oct 2024 17:04:16 -0400 Subject: [PATCH] revert changes to io/module_write_netcdf.F90 since changes in produciton/RRFS.v1 were already in develop --- io/module_write_netcdf.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/io/module_write_netcdf.F90 b/io/module_write_netcdf.F90 index 016d6416d..03a9d57dc 100644 --- a/io/module_write_netcdf.F90 +++ b/io/module_write_netcdf.F90 @@ -407,7 +407,7 @@ end function nf_set_log_level if (is_cubed_sphere) then chunksizes = [im, jm, 1, 1, 1] else - chunksizes = [ichunk3d(grid_id), jchunk3d(grid_id), fldlev(i), 1] + chunksizes = [ichunk3d(grid_id), jchunk3d(grid_id), min(kchunk3d(grid_id),fldlev(i)), 1] end if ncerr = nf90_def_var_chunking(ncid, varids(i), NF90_CHUNKED, chunksizes) ; NC_ERR_STOP(ncerr) end if