--- trunk/libf/IOIPSL/calendar.f90	2010/06/02 11:01:12	34
+++ trunk/libf/IOIPSL/calendar.f90	2010/06/08 15:37:21	35
@@ -333,7 +333,7 @@
           date_now = itau2date (itau,date0,dt)
           date_last_act = itau2date (last_action,date0,dt)
           CALL ju2ymds (date_last_act,year,month,day,sec)
-          monthp1 = month-freq
+          monthp1 = month - freq
           yearp = year
       
           !---- Here we compute what logically should be the next month