IOIPSL/Calendar/ju2ymds.f90

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