diff --git a/src/control.F90 b/src/control.F90
index e2d481ec18e950f6b9a2d179b70f48c8a846f54b..6ee07ac677f8df475292ed8db09a6fb13605616d 100644
--- a/src/control.F90
+++ b/src/control.F90
@@ -46,18 +46,18 @@ SUBROUTINE control
   
   !________________________________________________________________________________
   !              2.   Main loop
-  !DO
-  !   step = step+1
-  !   cstep = cstep+1
-  !   CALL stepon
-  !   time = time + dt
+  DO
+     step  = step  + 1
+     cstep = cstep + 1
+     CALL stepon
+     time  = time  + dt
 
-!     CALL tesend
-!     CALL diagnose(step)
-!     IF( nlend ) EXIT ! exit do loop
+     CALL tesend
+     CALL diagnose(step)
+     IF( nlend ) EXIT ! exit do loop
 
      ! CALL write_restart ! if want to write a restart file every so often (in case of crash)
-!  END DO
+  END DO
   !________________________________________________________________________________
   !              9.   Epilogue