revert changes to io/module_write_netcdf.F90 since changes in produci…

…ton/RRFS.v1 were already in develop
NOAA-EMC · Oct 29, 2024 · 6d7cb5a · 6d7cb5a
1 parent 1779f54
commit 6d7cb5a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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