From 0748e033b67c7bb70e4e2ca1ba7817e9169f2f34 Mon Sep 17 00:00:00 2001 From: peverwhee Date: Thu, 19 Dec 2024 15:52:41 -0700 Subject: [PATCH] cam_grid_write_dist_array expects array of dimension sizes --- src/history/cam_hist_file.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/history/cam_hist_file.F90 b/src/history/cam_hist_file.F90 index 6b3e984c..3c35015f 100644 --- a/src/history/cam_hist_file.F90 +++ b/src/history/cam_hist_file.F90 @@ -1574,11 +1574,11 @@ subroutine config_write_field(this, field, split_file_index, restart, & if (frank == 1) then if (trim(field_precision) == 'REAL32') then call hist_buffer_norm_value(buff_ptr, field_data_r4(:,1)) - call cam_grid_write_dist_array(this%hist_files(split_file_index), field_decomp, dim_sizes(1), & + call cam_grid_write_dist_array(this%hist_files(split_file_index), field_decomp, (/dim_sizes(1)/), & field_shape, field_data_r4(:,1), varid) else call hist_buffer_norm_value(buff_ptr, field_data_r8(:,1)) - call cam_grid_write_dist_array(this%hist_files(split_file_index), field_decomp, dim_sizes(1), & + call cam_grid_write_dist_array(this%hist_files(split_file_index), field_decomp, (/dim_sizes(1)/), & field_shape, field_data_r8(:,1), varid) end if else