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 |