cdifs_obj_Monitor Module Subroutine

    module subroutine cdifs_obj_Monitor(this)
      !> Analyzes data and posts to monitors.
      implicit none
      class(cdifs_obj), intent(inout) :: this                                  !! CDIFS solver
      ! Work variables
      real(wp) :: timing(5)

      ! Monitor flow quantities
      call cdifs_obj_FlowUpdateMonitor(this)

      ! Monitor RP quantites
      if (this%use_RP) call this%RP%UpdateMonitor

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

      timing(1) = this%timer%GetTiming('Advance/V' )
      timing(2) = this%timer%GetTiming('Advance/RP')
      timing(3) = this%timer%GetTiming('Output' )
      timing(4) = this%timer%GetTiming('Restart')
      timing(5) = this%timer%GetTiming('Monitor')

      call this%monitors%Set('timing',1,this%timer%iter )
      call this%monitors%Set('timing',2,this%timer%time )
      call this%monitors%Set('timing',3,sum(timing)     )
      call this%monitors%Set('timing',4,sum(timing(1:2)))
      call this%monitors%Set('timing',5,timing(1)       )
      call this%monitors%Set('timing',6,timing(2)       )
      call this%monitors%Set('timing',7,timing(3)       )
      call this%monitors%Set('timing',8,timing(4)       )
      call this%monitors%Set('timing',9,timing(5)       )

      ! Print monitor
      call this%monitors%print()

      return
    end subroutine cdifs_obj_Monitor