shelf_set_time Subroutine

  subroutine shelf_set_time(this, time)
    !* Author: Christopher MacMackin
    !  Date: November 2016
    !
    ! Sets the time information held by the ice shelf object. This is
    ! the time at which the ice sheet is in its current state.
    !
    class(ice_shelf), intent(inout) :: this
    real(r8), intent(in)            :: time
      !! The time at which the glacier is in the present state.
    this%time = time
#ifdef DEBUG
    call logger%debug('ice_shelf%set_time','Updating time for ice shelf to '// &
                      trim(str(time)))
#endif
  end subroutine shelf_set_time