Incomplete reduction method time average

diag_manager/fms_diag_bbox.F90

@@ -57,6 +57,9 @@ MODULE fms_diag_bbox_mod
       procedure :: get_jmax
       procedure :: get_kmin
       procedure :: get_kmax
+      procedure :: set_ibounds
+      procedure :: set_jbounds
+      procedure :: set_kbounds
    END TYPE fmsDiagIbounds_type
 
    !> @brief Data structure holding starting and ending indices in the I, J, and
@@ -79,6 +82,7 @@ MODULE fms_diag_bbox_mod
       procedure :: get_fie
       procedure :: get_fjs
       procedure :: get_fje
+      procedure :: get_bounds3D
    end type fmsDiagBoundsHalos_type
 
    public :: recondition_indices
@@ -128,6 +132,36 @@ pure integer function get_kmax (this) result(rslt)
       rslt = this%kmax
    end function get_kmax
 
+   !> @brief Sets bounds in the I dimensions
+   subroutine set_ibounds(this, lower, upper)
+      class(fmsDiagIbounds_type), intent(inout) :: this !< The calling object
+      integer, intent(in) :: lower !< The lower bound
+      integer, intent(in) :: upper !< The upper bound
+
+      this%imin = lower
+      this%imax = upper
+   end subroutine set_ibounds
+
+   !> @brief Sets bounds in the J dimensions
+   subroutine set_jbounds(this, lower, upper)
+      class(fmsDiagIbounds_type), intent(inout) :: this !< The calling object
+      integer, intent(in) :: lower !< The lower bound
+      integer, intent(in) :: upper !< The upper bound
+
+      this%jmin = lower
+      this%jmax = upper
+   end subroutine set_jbounds
+
+   !> @brief Sets bounds in the K dimensions
+   subroutine set_kbounds(this, lower, upper)
+      class(fmsDiagIbounds_type), intent(inout) :: this !< The calling object
+      integer, intent(in) :: lower !< The lower bound
+      integer, intent(in) :: upper !< The upper bound
+
+      this%kmin = lower
+      this%kmax = upper
+   end subroutine set_kbounds
+
    !> @brief Gets the halo size of fmsDiagBoundsHalos_type in the I dimension
    !! @return copy of integer member hi
    pure integer function get_hi (this) result(rslt)
@@ -142,34 +176,42 @@ pure integer function get_hj (this) result(rslt)
       rslt = this%hj
    end function get_hj
 
-   !> @brief Gets the updated index `fis' of fmsDiagBoundsHalos_type in the I dimension
+   !> @brief Gets the updated starting index `fis' of fmsDiagBoundsHalos_type in the I dimension
    !! @return copy of integer member `fis'
    pure integer function get_fis (this) result(rslt)
       class (fmsDiagBoundsHalos_type), intent(in) :: this !< Calling object
       rslt = this%fis
    end function get_fis
 
-   !> @brief Gets the updated index `fie' of fmsDiagBoundsHalos_type in the I dimension
+   !> @brief Gets the updated ending index `fie' of fmsDiagBoundsHalos_type in the I dimension
    !! @return copy of integer member `fie'
    pure integer function get_fie (this) result(rslt)
       class (fmsDiagBoundsHalos_type), intent(in) :: this !< Calling object
       rslt = this%fie
    end function get_fie
 
-   !> @brief Gets the updated index `fjs' of fmsDiagBoundsHalos_type in the I dimension
+   !> @brief Gets the updated starting index `fjs' of fmsDiagBoundsHalos_type in the J dimension
    !! @return copy of integer member `fjs'
    pure integer function get_fjs (this) result(rslt)
       class (fmsDiagBoundsHalos_type), intent(in) :: this !< Calling object
       rslt = this%fjs
    end function get_fjs
 
-   !> @brief Gets the updated index `fje' of fmsDiagBoundsHalos_type in the I dimension
+   !> @brief Gets the updated ending index `fje' of fmsDiagBoundsHalos_type in the J dimension
    !! @return copy of integer member `fje'
    pure integer function get_fje (this) result(rslt)
       class (fmsDiagBoundsHalos_type), intent(in) :: this !< Calling object
       rslt = this%fje
    end function get_fje
 
+   !> @brief Gets a member of fmsDiagIbounds_type, `bounds3D`, of calling fmsDiagBoundsHalos_type object.
+   !! @return Returns a copy of fmsDiagIbounds_type member `bounds3D`
+   pure function get_bounds3D(this) result(bounds_obj)
+     class(fmsDiagBoundsHalos_type), intent(in) :: this !< Calling object
+     type(fmsDiagIbounds_type) :: bounds_obj !< Object copy to return
+     bounds_obj = this%bounds3D
+   end function
+
    !> @brief Reset the instance bounding lower and upper bounds to lower_val and upper_val, respectively.
    SUBROUTINE reset_bounds (this, lower_val, upper_val)
       class (fmsDiagIbounds_type), target, intent(inout) :: this   !< ibounds instance

diag_manager/fms_diag_file_object.F90

@@ -129,6 +129,10 @@ module fms_diag_file_object_mod
  procedure, public :: get_file_duration_units
  procedure, public :: get_file_varlist
  procedure, public :: get_file_global_meta
+ procedure, public :: get_last_output
+ procedure, public :: get_next_output
+ procedure, public :: get_next_next_output
+ procedure, public :: get_no_more_data
  procedure, public :: has_file_fname
  procedure, public :: has_file_frequnit
  procedure, public :: has_file_freq
@@ -559,6 +563,38 @@ pure function get_file_global_meta (this) result(res)
   res = this%diag_yaml_file%get_file_global_meta()
 end function get_file_global_meta
 
+!> \brief Gets last_output time
+!! \return Copy of last_output time
+pure function get_last_output (this) result(res)
+ class(fmsDiagFile_type), intent(in) :: this !< The file object
+  type(time_type) :: res
+  res = this%last_output
+end function get_last_output
+
+!> \brief Gets next_output time
+!! \return Copy of next_output time
+pure function get_next_output (this) result(res)
+ class(fmsDiagFile_type), intent(in) :: this !< The file object
+  type(time_type) :: res
+  res = this%next_output
+end function get_next_output
+
+!> \brief Gets next_next_output time
+!! \return Copy of next_next_output time
+pure function get_next_next_output (this) result(res)
+ class(fmsDiagFile_type), intent(in) :: this !< The file object
+  type(time_type) :: res
+  res = this%next_next_output
+end function get_next_next_output
+
+!> \brief Gets no_more_data time
+!! \return Copy of no_more_data time
+pure function get_no_more_data (this) result(res)
+ class(fmsDiagFile_type), intent(in) :: this !< The file object
+  type(time_type) :: res
+  res = this%no_more_data
+end function get_no_more_data
+
 !> \brief Checks if file_fname is allocated in the yaml object
 !! \return true if file_fname is allocated
 pure function has_file_fname (this) result(res)