IOIPSL/Calendar/ymds2ju.f

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	guez	92	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