1 |
guez |
92 |
module ju2ymds_m |
2 |
|
|
|
3 |
|
|
implicit none |
4 |
|
|
|
5 |
|
|
contains |
6 |
|
|
|
7 |
|
|
SUBROUTINE ju2ymds (julian, year, month, day, sec) |
8 |
|
|
|
9 |
|
|
use calendar, only: un_jour |
10 |
|
|
USE ju2ymds_internal_m, ONLY: ju2ymds_internal |
11 |
|
|
|
12 |
|
|
REAL, INTENT(IN):: julian |
13 |
|
|
INTEGER, INTENT(OUT):: year, month, day |
14 |
|
|
REAL, INTENT(OUT):: sec |
15 |
|
|
|
16 |
|
|
INTEGER:: julian_day |
17 |
|
|
REAL:: julian_sec |
18 |
|
|
!-------------------------------------------------------------------- |
19 |
|
|
julian_day = INT(julian) |
20 |
|
|
julian_sec = (julian-julian_day)*un_jour |
21 |
|
|
|
22 |
|
|
CALL ju2ymds_internal(julian_day, julian_sec, year, month, day, sec) |
23 |
|
|
|
24 |
|
|
END SUBROUTINE ju2ymds |
25 |
|
|
|
26 |
|
|
end module ju2ymds_m |