particle_set_StoreOld Subroutine

    pure subroutine particle_set_StoreOld(this)
      !> Stores values from previous timestep.
      implicit none
      class(particle_set), intent(inout) :: this                               !! Lagrangian array to dump
      ! Work variables
      integer :: n

      select type (particle =>this%p)
      class is (particle_obj)
        do n=1,this%count_
          particle(n)%pold = particle(n)%p
          particle(n)%vold = particle(n)%v
          particle(n)%Fcold= particle(n)%Fc
          particle(n)%Tcold= particle(n)%Tc
          particle(n)%Fhold= particle(n)%Fh
          particle(n)%Thold= particle(n)%Th
        end do
      end select

      return
    end subroutine particle_set_StoreOld