IOIPSL/Calendar/calendar.f

MODULE calendar

  IMPLICIT NONE

  REAL, PARAMETER:: un_jour = 86400. ! one day in seconds

  ! Description of calendar
  LOGICAL:: lock_unan = .FALSE.

END MODULE calendar
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