IOIPSL/Calendar/itau2date.f90

module itau2date_m

  implicit none

contains

  REAL FUNCTION itau2date (itau, date0, deltat)

    ! This function transforms itau into a date. The date whith which
    ! the time axis is going to be labeled

    use calendar

    ! INPUT
    !   itau: current time step
    !   date0: Date at which itau was equal to 0
    !   deltat: time step between itau s

    ! OUTPUT
    !   itau2date: Date for the given itau

    INTEGER:: itau
    REAL:: date0, deltat
    !--------------------------------------------------------------------
    itau2date = REAL(itau)*deltat/un_jour+date0

  END FUNCTION itau2date

end module itau2date_m
1	module itau2date_m
2
3	implicit none
4
5	contains
6
7	REAL FUNCTION itau2date (itau, date0, deltat)
8
9	! This function transforms itau into a date. The date whith which
10	! the time axis is going to be labeled
11
12	use calendar
13
14	! INPUT
15	! itau: current time step
16	! date0: Date at which itau was equal to 0
17	! deltat: time step between itau s
18
19	! OUTPUT
20	! itau2date: Date for the given itau
21
22	INTEGER:: itau
23	REAL:: date0, deltat
24	!--------------------------------------------------------------------
25	itau2date = REAL(itau)*deltat/un_jour+date0
26
27	END FUNCTION itau2date
28
29	end module itau2date_m