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