diff --git a/src/control.F90 b/src/control.F90
index a3f0009d8963c28960583b4843bd93e91591cef2..273ce8ad693e38aa238eadcafd75ac93fc09581e 100644
--- a/src/control.F90
+++ b/src/control.F90
@@ -52,11 +52,11 @@ SUBROUTINE control
      CALL stepon
      time  = time  + dt
 
+     CALL diagnose(step)
+
      CALL tesend
      IF( nlend ) EXIT ! exit do loop
 
-     CALL diagnose(step)
-
      ! CALL write_restart ! if want to write a restart file every so often (in case of crash)
   END DO
   !________________________________________________________________________________