ground_read_data Subroutine

  subroutine ground_read_data(this,file_id,group_name,error)
    !* Author: Chris MacMackin
    !  Date: April 2017
    !
    ! Reads the state of the ground object from the specified group in
    ! an HDF file.
    !
    class(ground), intent(inout) :: this
    integer(hid_t), intent(in)   :: file_id
      !! The identifier for the HDF5 file/group from which this data is
      !! meant to be read.
    character(len=*), intent(in) :: group_name
      !! The name of the group in the HDF5 file storing the
      !! ground's data.
    integer, intent(out)         :: error
      !! Flag indicating whether routine ran without error. If no
      !! error occurs then has value 0.
    integer(hid_t) :: group_id
    error = 0
  end subroutine ground_read_data