/[lmdze]/trunk/libf/IOIPSL/calendar.f90
ViewVC logotype

Diff of /trunk/libf/IOIPSL/calendar.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 34 by guez, Tue Apr 6 17:52:58 2010 UTC revision 35 by guez, Tue Jun 8 15:37:21 2010 UTC
# Line 333  CONTAINS Line 333  CONTAINS
333            date_now = itau2date (itau,date0,dt)            date_now = itau2date (itau,date0,dt)
334            date_last_act = itau2date (last_action,date0,dt)            date_last_act = itau2date (last_action,date0,dt)
335            CALL ju2ymds (date_last_act,year,month,day,sec)            CALL ju2ymds (date_last_act,year,month,day,sec)
336            monthp1 = month-freq            monthp1 = month - freq
337            yearp = year            yearp = year
338                
339            !---- Here we compute what logically should be the next month            !---- Here we compute what logically should be the next month
Legend:
Removed from v.34  
changed lines
  Added in v.35
  ViewVC Help
Powered by ViewVC 1.1.21