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 |