grans_obj_WriteRestartData Module Subroutine

    module subroutine grans_obj_WriteRestartData(this)
      !> Writes restart data to disk.
      implicit none
      class(grans_obj), intent(inout) :: this                                  !! GRANS solver

      ! Write Lagrangian data
      if (this%use_IB) call this%IB%Write(this%timer%iter,this%timer%time)
      if (this%use_RP) call this%RP%Write(this%timer%iter,this%timer%time)
      if (this%use_PP) call this%PP%Write(this%timer%iter,this%timer%time)

      ! Write Eulerian data
      call this%fields%Write(this%timer%iter,this%timer%time)

      ! Update timing info
      call this%timer%UpdateTiming('Restart' )

      return
    end subroutine grans_obj_WriteRestartData