New terminal output

src/diagnose.F90

 SUBROUTINE diagnose(kstep)
   !   Diagnostics, writing simulation state to disk
   USE basic,           ONLY: lu_in, chrono_runt, cstep, dt, time, tmax, display_h_min_s
-  USE diagnostics_par, ONLY: input_fname, diag_mode
+  USE diagnostics_par, ONLY: input_fname, diag_mode, nsave_0d
   USE processing,      ONLY: pflux_x, hflux_x
   USE parallel,        ONLY: my_id
   IMPLICIT NONE
@@ -25,8 +25,10 @@ SUBROUTINE diagnose(kstep)
   END SELECT
 
   ! Terminal info
-  IF ((kstep .GE. 0) .AND. (MOD(cstep, INT(1.0/dt)) == 0) .AND. (my_id .EQ. 0)) THEN
-    WRITE(*,"(A,F6.0,A1,F6.0,A8,G10.2,A8,G10.2,A)")'|t/tmax = ', time,"/",tmax,'| Gxi = ',pflux_x(1),'| Qxi = ',hflux_x(1),'|'
+  ! IF ((kstep .GE. 0) .AND. (MOD(cstep, INT(1.0/dt)) == 0) .AND. (my_id .EQ. 0)) &
+  !   WRITE(*,"(A,F6.0,A1,F6.0,A8,G10.2,A8,G10.2,A)")'|t/tmax = ', time,"/",tmax,'| Gxi = ',pflux_x(1),'| Qxi = ',hflux_x(1),'|'
+  IF ((kstep .GE. 0) .AND. (MOD(cstep, nsave_0d) == 0) .AND. (my_id .EQ. 0)) THEN
+    WRITE(*,"(A,F8.2,A8,G10.2,A8,G10.2,A)")'|t = ', time,'| Pxi = ',pflux_x(1),'| Qxi = ',hflux_x(1),'|'
   ENDIF
 END SUBROUTINE diagnose