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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 93 - (show annotations)
Tue Apr 1 15:50:48 2014 UTC (10 years, 2 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 MODULE calendar
2
3 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 END MODULE calendar

  ViewVC Help
Powered by ViewVC 1.1.21