1 |
module ymds2ju_m |
2 |
|
3 |
implicit none |
4 |
|
5 |
contains |
6 |
|
7 |
SUBROUTINE ymds2ju (year, month, day, sec, julian) |
8 |
|
9 |
use calendar, only: un_jour |
10 |
use ymds2ju_internal_m |
11 |
|
12 |
INTEGER, INTENT(IN):: year, month, day |
13 |
REAL, INTENT(IN):: sec |
14 |
REAL, INTENT(OUT):: julian |
15 |
|
16 |
INTEGER:: julian_day |
17 |
REAL:: julian_sec |
18 |
|
19 |
!-------------------------------------------------------------------- |
20 |
|
21 |
CALL ymds2ju_internal(year, month, day, sec, julian_day, julian_sec) |
22 |
julian = julian_day + julian_sec / un_jour |
23 |
|
24 |
END SUBROUTINE ymds2ju |
25 |
|
26 |
end module ymds2ju_m |