diff --git a/src/diagnose.F90 b/src/diagnose.F90
index 9f4bf8196b70e8f1d1a8c392bc6139950bf26592..4abfd09f714bbd32ff5647e2ee4062c0262a0a4d 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -1,7 +1,7 @@
 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