Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

bug fixes: kchunk3d ignored, hailwat uninitialized in dycore, tile_num wrong for nests #806

Merged
merged 11 commits into from
Apr 14, 2024
Merged
2 changes: 1 addition & 1 deletion atmos_cubed_sphere
3 changes: 2 additions & 1 deletion atmos_model.F90
Original file line number Diff line number Diff line change
Expand Up @@ -582,7 +582,8 @@ subroutine atmos_model_init (Atmos, Time_init, Time, Time_step)
call atmosphere_diag_axes (Atmos%axes)
call atmosphere_etalvls (Atmos%ak, Atmos%bk, flip=flip_vc)

call atmosphere_control_data (isc, iec, jsc, jec, nlev, p_hydro, hydro, tile_num)
tile_num=-1
call atmosphere_control_data (isc, iec, jsc, jec, nlev, p_hydro, hydro, global_tile_num=tile_num)

allocate (Atmos%lon(nlon,nlat), Atmos%lat(nlon,nlat))
call atmosphere_grid_ctr (Atmos%lon, Atmos%lat)
Expand Down
2 changes: 1 addition & 1 deletion io/module_write_netcdf.F90
Original file line number Diff line number Diff line change
Expand Up @@ -407,7 +407,7 @@ end function nf_set_log_level
if (is_cubed_sphere) then
chunksizes = [im, jm, lm, tileCount, 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
Expand Down
Loading