trunk/IOIPSL/ioget_calendar.f

MODULE ioget_calendar_m

  !- This subroutine returns the name of the calendar used here.
  !- Three options exist :
  !-  - gregorian : This is the gregorian calendar (default here)
  !-  - noleap    : A calendar without leap years = 365 days
  !-  - xxxd      : A calendar of xxx days (has to be a modulo of 12)
  !-                with 12 month of equal length

  !- This routine will lock the calendar.
  !- You do not want it to change after your inquiry.

  use calendar, only: lock_unan

  IMPLICIT NONE

  PRIVATE lock_unan

CONTAINS

  SUBROUTINE ioget_calendar_str (str)
    use ioconf_calendar_m, only: calendar_used

    CHARACTER(LEN=*),INTENT(OUT) :: str
    !---------------------------------------------------------------------
    lock_unan = .TRUE.

    str = calendar_used
  END SUBROUTINE ioget_calendar_str
  !-
  !===
  !-
  SUBROUTINE ioget_calendar_real(long_an,long_jour)
    use calendar, only: un_jour
    use ioconf_calendar_m, only: un_an

    REAL,INTENT(OUT) :: long_an
    REAL,INTENT(OUT), optional :: long_jour
    !---------------------------------------------------------------------
    lock_unan = .TRUE.

    long_an = un_an
    if (present(long_jour)) long_jour = un_jour
  END SUBROUTINE ioget_calendar_real

END MODULE ioget_calendar_m
1	guez	62	MODULE ioget_calendar_m
2
3	guez	93	!- This subroutine returns the name of the calendar used here.
4			!- Three options exist :
5			!- - gregorian : This is the gregorian calendar (default here)
6			!- - noleap : A calendar without leap years = 365 days
7			!- - xxxd : A calendar of xxx days (has to be a modulo of 12)
8			!- with 12 month of equal length
9
10			!- This routine will lock the calendar.
11			!- You do not want it to change after your inquiry.
12
13	guez	62	use calendar, only: lock_unan
14
15			IMPLICIT NONE
16
17	guez	93	PRIVATE lock_unan
18	guez	62
19			CONTAINS
20
21			SUBROUTINE ioget_calendar_str (str)
22	guez	93	use ioconf_calendar_m, only: calendar_used
23	guez	62
24			CHARACTER(LEN=*),INTENT(OUT) :: str
25			!---------------------------------------------------------------------
26			lock_unan = .TRUE.
27
28			str = calendar_used
29			END SUBROUTINE ioget_calendar_str
30			!-
31			!===
32			!-
33	guez	93	SUBROUTINE ioget_calendar_real(long_an,long_jour)
34			use calendar, only: un_jour
35			use ioconf_calendar_m, only: un_an
36	guez	62
37			REAL,INTENT(OUT) :: long_an
38	guez	93	REAL,INTENT(OUT), optional :: long_jour
39	guez	62	!---------------------------------------------------------------------
40			lock_unan = .TRUE.
41
42			long_an = un_an
43	guez	93	if (present(long_jour)) long_jour = un_jour
44			END SUBROUTINE ioget_calendar_real
45	guez	62
46			END MODULE ioget_calendar_m