Update fms_diag_reduction_methods.F90

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()