1 |
MODULE ioget_calendar_m |
2 |
|
3 |
use calendar, only: lock_unan |
4 |
|
5 |
IMPLICIT NONE |
6 |
|
7 |
PRIVATE |
8 |
PUBLIC ioget_calendar |
9 |
|
10 |
INTERFACE ioget_calendar |
11 |
MODULE PROCEDURE ioget_calendar_real1, ioget_calendar_real2, & |
12 |
ioget_calendar_str |
13 |
END INTERFACE |
14 |
|
15 |
CONTAINS |
16 |
|
17 |
SUBROUTINE ioget_calendar_str (str) |
18 |
!--------------------------------------------------------------------- |
19 |
!- This subroutine returns the name of the calendar used here. |
20 |
!- Three options exist : |
21 |
!- - gregorian : This is the gregorian calendar (default here) |
22 |
!- - noleap : A calendar without leap years = 365 days |
23 |
!- - xxxd : A calendar of xxx days (has to be a modulo of 12) |
24 |
!- with 12 month of equal length |
25 |
|
26 |
!- This routine will lock the calendar. |
27 |
!- You do not want it to change after your inquiry. |
28 |
!--------------------------------------------------------------------- |
29 |
use calendar, only: calendar_used |
30 |
|
31 |
CHARACTER(LEN=*),INTENT(OUT) :: str |
32 |
!--------------------------------------------------------------------- |
33 |
lock_unan = .TRUE. |
34 |
|
35 |
str = calendar_used |
36 |
!-------------------------------- |
37 |
END SUBROUTINE ioget_calendar_str |
38 |
!- |
39 |
!=== |
40 |
!- |
41 |
SUBROUTINE ioget_calendar_real1 (long_an) |
42 |
!--------------------------------------------------------------------- |
43 |
!- This subroutine returns the name of the calendar used here. |
44 |
!- Three options exist : |
45 |
!- - gregorian : This is the gregorian calendar (default here) |
46 |
!- - noleap : A calendar without leap years = 365 days |
47 |
!- - xxxd : A calendar of xxx days (has to be a modulo of 12) |
48 |
!- with 12 month of equal length |
49 |
|
50 |
!- This routine will lock the calendar. |
51 |
!- You do not want it to change after your inquiry. |
52 |
!--------------------------------------------------------------------- |
53 |
use calendar, only: un_an |
54 |
|
55 |
REAL,INTENT(OUT) :: long_an |
56 |
!--------------------------------------------------------------------- |
57 |
lock_unan = .TRUE. |
58 |
|
59 |
long_an = un_an |
60 |
!---------------------------------- |
61 |
END SUBROUTINE ioget_calendar_real1 |
62 |
!- |
63 |
!=== |
64 |
!- |
65 |
SUBROUTINE ioget_calendar_real2 (long_an,long_jour) |
66 |
!--------------------------------------------------------------------- |
67 |
!- This subroutine returns the name of the calendar used here. |
68 |
!- Three options exist : |
69 |
!- - gregorian : This is the gregorian calendar (default here) |
70 |
!- - noleap : A calendar without leap years = 365 days |
71 |
!- - xxxd : A calendar of xxx days (has to be a modulo of 12) |
72 |
!- with 12 month of equal length |
73 |
|
74 |
!- This routine will lock the calendar. |
75 |
!- You do not want it to change after your inquiry. |
76 |
!--------------------------------------------------------------------- |
77 |
use calendar, only: un_an, un_jour |
78 |
|
79 |
REAL,INTENT(OUT) :: long_an,long_jour |
80 |
!--------------------------------------------------------------------- |
81 |
lock_unan = .TRUE. |
82 |
|
83 |
long_an = un_an |
84 |
long_jour = un_jour |
85 |
!---------------------------------- |
86 |
END SUBROUTINE ioget_calendar_real2 |
87 |
|
88 |
END MODULE ioget_calendar_m |