--- trunk/IOIPSL/Calendar/isittime.f	2014/03/26 18:16:05	92
+++ trunk/Sources/IOIPSL/Calendar/isittime.f	2016/03/11 18:47:26	178
@@ -4,8 +4,7 @@
 
 contains
 
-  SUBROUTINE isittime &
-       &  (itau, date0, dt, freq, last_action, last_check, do_action)
+  SUBROUTINE isittime(itau, date0, dt, freq, last_action, last_check, do_action)
 
     ! This subroutine checks the time has come for a given action.
     ! This is computed from the current time-step(itau).
@@ -29,10 +28,9 @@
     use ymds2ju_m
 
     INTEGER, INTENT(IN):: itau
+    REAL, INTENT(IN):: date0
     REAL, INTENT(IN):: dt, freq
     INTEGER, INTENT(IN):: last_action, last_check
-    REAL, INTENT(IN):: date0
-
     LOGICAL, INTENT(OUT):: do_action
 
     REAL:: dt_action, dt_check