IOIPSL/Calendar/ymds2ju.f90

module ymds2ju_m

  implicit none

contains

  SUBROUTINE ymds2ju (year, month, day, sec, julian)

    use calendar, only: un_jour
    use ymds2ju_internal_m

    INTEGER, INTENT(IN):: year, month, day
    REAL, INTENT(IN):: sec
    REAL, INTENT(OUT):: julian

    INTEGER:: julian_day
    REAL:: julian_sec

    !--------------------------------------------------------------------

    CALL ymds2ju_internal(year, month, day, sec, julian_day, julian_sec)
    julian = julian_day + julian_sec / un_jour

  END SUBROUTINE ymds2ju

end module ymds2ju_m
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