1 |
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 |