cam_grid_write_dist_array expects array of dimension sizes

ESCOMP · Dec 19, 2024 · 0748e03 · 0748e03
1 parent 0bcfc85
commit 0748e03
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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