IOIPSL/Calendar/ju2ymds.f

module ju2ymds_m

  implicit none

contains

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

    use calendar, only: un_jour
    USE ju2ymds_internal_m, ONLY: ju2ymds_internal

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

    INTEGER:: julian_day
    REAL:: julian_sec
    !--------------------------------------------------------------------
    julian_day = INT(julian)
    julian_sec = (julian-julian_day)*un_jour

    CALL ju2ymds_internal(julian_day, julian_sec, year, month, day, sec)

  END SUBROUTINE ju2ymds

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