cdifs_obj_PrepareSolverMonitor Subroutine

    subroutine cdifs_obj_PrepareSolverMonitor(this)
      !> Prepares the monitors used by CDIFS.
      implicit none
      class(cdifs_obj), intent(inout) :: this                                  !! CDIFS solver

      ! Initialize step monitors
      call this%monitors%initialize(this%parallel)

      ! Initialize substep monitors
      call this%pmonitor%initialize(this%parallel)

      ! Timing monitor
      call this%timer%AddTiming('Advance/V' )
      call this%timer%AddTiming('Advance/RP')
      call this%timer%AddTiming('Output'    )
      call this%timer%AddTiming('Restart'   )
      call this%timer%AddTiming('Monitor'   )

      ! Timing monitor
      call this%monitors%Create('timing',9,stdout=.false.           )
      call this%monitors%Set   ('timing',1,label='Iteration'        )
      call this%monitors%Set   ('timing',2,label='Time'             )
      call this%monitors%Set   ('timing',3,label='Total (s)'        )
      call this%monitors%Set   ('timing',4,label='Advance (s)'      )
      call this%monitors%Set   ('timing',5,label='Advance/V  (s)'   )
      call this%monitors%Set   ('timing',6,label='Advance/RP (s)'   )
      call this%monitors%Set   ('timing',7,label='Output (s)'       )
      call this%monitors%Set   ('timing',8,label='Restart (s)'      )
      call this%monitors%Set   ('timing',9,label='Monitor (s)'      )

      ! Main monitor: writes to stdout
      call this%monitors%Create('stdout', 7, stdout=.true.          )
      call this%monitors%Set   ('stdout', 1, label ='Iteration'     )
      call this%monitors%Set   ('stdout', 2, label ='Time'          )
      call this%monitors%Set   ('stdout', 3, label ='max|V1|'       )
      call this%monitors%Set   ('stdout', 4, label ='max|V2|'       )
      call this%monitors%Set   ('stdout', 5, label ='max|V3|'       )
      call this%monitors%Set   ('stdout', 6, label ='CFL'           )
      call this%monitors%Set   ('stdout', 7, label ='max|div(V)|'   )

      ! Additional monitors: write to files
      call this%monitors%Create('Velocity', 7, stdout=.false.       )
      call this%monitors%Set   ('Velocity', 1, label ='Iteration'   )
      call this%monitors%Set   ('Velocity', 2, label ='Time'        )
      call this%monitors%Set   ('Velocity', 3, label ='max|V1|'     )
      call this%monitors%Set   ('Velocity', 4, label ='max|V2|'     )
      call this%monitors%Set   ('Velocity', 5, label ='max|V3|'     )
      call this%monitors%Set   ('Velocity', 6, label ='CFL'         )
      call this%monitors%Set   ('Velocity', 7, label ='max|div(V)|' )

      call this%pmonitor%Create('Pressure', 6, stdout=.false.       )
      call this%pmonitor%Set   ('Pressure', 1, label ='Iteration'   )
      call this%pmonitor%Set   ('Pressure', 2, label ='Time'        )
      call this%pmonitor%Set   ('Pressure', 3, label ='Subiteration')
      call this%pmonitor%Set   ('Pressure', 4, label ='Residual'    )
      call this%pmonitor%Set   ('Pressure', 5, label ='intRHS'      )
      call this%pmonitor%Set   ('Pressure', 6, label ='Nbr P iter'  )

      if (this%use_RP) call this%RP%CreateMonitor()

      ! Write headers
      call this%monitors%Print(print_labels=.true.)
      call this%pmonitor%Print(print_labels=.true.)

      return
    end subroutine cdifs_obj_PrepareSolverMonitor