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 |