diff --git a/diag_manager/fms_diag_reduction_methods.F90 b/diag_manager/fms_diag_reduction_methods.F90 index 916da5433f..2d04a51f11 100644 --- a/diag_manager/fms_diag_reduction_methods.F90 +++ b/diag_manager/fms_diag_reduction_methods.F90 @@ -238,12 +238,12 @@ subroutine fms_diag_update_extremum(flag, buffer_obj, field_data, recon_bounds, class(*), pointer :: ptr_buffer(:,:,:,:,:) !< Pointer to 5D buffer for remapping !> Unpack recon_bounds - is = recon_bounds%bounds3D%get_imin() - js = recon_bounds%bounds3D%get_jmin() - ks = recon_bounds%bounds3D%get_kmin() - ie = recon_bounds%bounds3D%get_imax() - je = recon_bounds%bounds3D%get_jmax() - ke = recon_bounds%bounds3D%get_kmax() + is = recon_bounds%get_bounds3D()%get_imin() + js = recon_bounds%get_bounds3D()%get_jmin() + ks = recon_bounds%get_bounds3D()%get_kmin() + ie = recon_bounds%get_bounds3D()%get_imax() + je = recon_bounds%get_bounds3D()%get_jmax() + ke = recon_bounds%get_bounds3D()%get_kmax() hi = recon_bounds%get_hi() f1 = recon_bounds%get_fis() f2 = recon_bounds%get_fie() @@ -437,12 +437,12 @@ subroutine update_scalar_extremum(flag, field_data, buffer, mask, sample, recon_ k1 = running_indx2(3) !> Unpack bounds (/is, js, ks, ie, je, ke, hi, f1, f2, hj, f3, f4/) - is = recon_bounds%bounds3D%get_imin() - js = recon_bounds%bounds3D%get_jmin() - ks = recon_bounds%bounds3D%get_kmin() - ie = recon_bounds%bounds3D%get_imax() - je = recon_bounds%bounds3D%get_jmax() - ke = recon_bounds%bounds3D%get_kmax() + is = recon_bounds%get_bounds3D()%get_imin() + js = recon_bounds%get_bounds3D()%get_jmin() + ks = recon_bounds%get_bounds3D()%get_kmin() + ie = recon_bounds%get_bounds3D()%get_imax() + je = recon_bounds%get_bounds3D()%get_jmax() + ke = recon_bounds%get_bounds3D()%get_kmax() hi = recon_bounds%get_hi() hj = recon_bounds%get_hj() @@ -548,12 +548,12 @@ subroutine update_array_extremum(flag, field_data, buffer, mask, sample, recon_b integer :: f3, f4 !< Updated starting and ending indices in the J dimension !> Unpack bounds (/is, js, ks, ie, je, ke, hi, f1, f2, hj, f3, f4/) - is = recon_bounds%bounds3D%get_imin() - js = recon_bounds%bounds3D%get_jmin() - ks = recon_bounds%bounds3D%get_kmin() - ie = recon_bounds%bounds3D%get_imax() - je = recon_bounds%bounds3D%get_jmax() - ke = recon_bounds%bounds3D%get_kmax() + is = recon_bounds%get_bounds3D()%get_imin() + js = recon_bounds%get_bounds3D()%get_jmin() + ks = recon_bounds%get_bounds3D()%get_kmin() + ie = recon_bounds%get_bounds3D()%get_imax() + je = recon_bounds%get_bounds3D()%get_jmax() + ke = recon_bounds%get_bounds3D()%get_kmax() hi = recon_bounds%get_hi() f1 = recon_bounds%get_fis() f2 = recon_bounds%get_fie()