IOIPSL/Calendar/calendar.f

MODULE calendar

  ! From IOIPSL/src/calendar.f90, version 2.0 2004/04/05 14:47:47

  ! This is the calendar used to do all calculations on time. Three
  ! types of calendars are possible:

  ! - Gregorian:
  ! The normal calendar. The time origin for the julian day in this
  ! case is 24 Nov -4713.

  ! - No leap:
  ! A 365 day year without leap years. The origin for the julian days
  ! is in this case 1 Jan 0.

  ! - xxxd:
  ! Year of xxx days with months of equal length. The origin for the
  ! julian days is then also 1 Jan 0.

  ! As one can see it is difficult to go from one calendar to the
  ! other. All operations involving julian days will be wrong. This
  ! calendar will lock as soon as possible the length of the year and
  ! forbid any further modification.

  ! For the non leap-year calendar the method is still brute force.
  ! We need to find an integer series which takes care of the length
  ! of the various month. (Jan)

  IMPLICIT NONE

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

  ! Description of calendar

  CHARACTER(LEN=20):: calendar_used = "gregorian"
  LOGICAL:: lock_unan = .FALSE.
  REAL:: un_an = 365.2425 ! one year in days
  INTEGER:: mon_len(12) = (/31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/)

  CHARACTER(LEN=3), PARAMETER:: cal(12) = (/'JAN', 'FEB', 'MAR', 'APR', &
       'MAY', 'JUN', 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC'/)

  REAL, SAVE:: start_day, start_sec

END MODULE calendar
1	guez	30	MODULE calendar
2	guez	36
3			! From IOIPSL/src/calendar.f90, version 2.0 2004/04/05 14:47:47
4
5	guez	62	! This is the calendar used to do all calculations on time. Three
6			! types of calendars are possible:
7	guez	36
8	guez	62	! - Gregorian:
9			! The normal calendar. The time origin for the julian day in this
10			! case is 24 Nov -4713.
11
12			! - No leap:
13			! A 365 day year without leap years. The origin for the julian days
14			! is in this case 1 Jan 0.
15
16			! - xxxd:
17			! Year of xxx days with months of equal length. The origin for the
18			! julian days is then also 1 Jan 0.
19
20			! As one can see it is difficult to go from one calendar to the
21			! other. All operations involving julian days will be wrong. This
22			! calendar will lock as soon as possible the length of the year and
23			! forbid any further modification.
24
25			! For the non leap-year calendar the method is still brute force.
26			! We need to find an integer series which takes care of the length
27			! of the various month. (Jan)
28
29			IMPLICIT NONE
30
31			REAL, PARAMETER:: un_jour = 86400. ! one day in seconds
32
33			! Description of calendar
34
35			CHARACTER(LEN=20):: calendar_used = "gregorian"
36			LOGICAL:: lock_unan = .FALSE.
37			REAL:: un_an = 365.2425 ! one year in days
38			INTEGER:: mon_len(12) = (/31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/)
39
40			CHARACTER(LEN=3), PARAMETER:: cal(12) = (/'JAN', 'FEB', 'MAR', 'APR', &
41			'MAY', 'JUN', 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC'/)
42
43			REAL, SAVE:: start_day, start_sec
44
45	guez	30	END MODULE calendar