/[lmdze]/trunk/IOIPSL/Calendar/calendar.f
ViewVC logotype

Annotation of /trunk/IOIPSL/Calendar/calendar.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 93 - (hide annotations)
Tue Apr 1 15:50:48 2014 UTC (10 years, 3 months ago) by guez
File size: 174 byte(s)
Moved variable calendar_used, un_an and mon_len from module calendar
to module ioconf_calendar_m. Removed unused variables cal, start_day,
start_sec of module calendar.

Inlined procedure ju2ymds_internal into procedure ju2ymds. Inlined
procedure ymds2ju_internal into procedure ymds2ju.

Removed generic interface ioget_calendar. Merged ioget_calendar_real1
and ioget_calendar_real2 into ioget_calendar_real.

1 guez 30 MODULE calendar
2 guez 36
3 guez 62 IMPLICIT NONE
4    
5     REAL, PARAMETER:: un_jour = 86400. ! one day in seconds
6    
7     ! Description of calendar
8     LOGICAL:: lock_unan = .FALSE.
9    
10 guez 30 END MODULE calendar

  ViewVC Help
Powered by ViewVC 1.1.21