fill_reservoir_array Subroutine

  subroutine fill_reservoir_array(lhs, rhs)
    real(dp), dimension(:, :), intent(out) :: lhs
    real(dp), dimension(:), intent(in) :: rhs

    integer i, offset

    offset = 1
    do i = 1, rsv_nReservoirs
      lhs(i, 1:12) = rhs(offset:offset+11)
      offset = offset + 12
    end do
    ! lhs(:, 0) = lhs(:, 12)
  end subroutine fill_reservoir_array