4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
REAL FUNCTION itau2date (itau, date0, deltat) |
double precision FUNCTION itau2date (itau, date0, deltat) |
8 |
|
|
9 |
! This function transforms itau into a date. The date whith which |
! This function transforms itau into a date. The date whith which |
10 |
! the time axis is going to be labeled |
! the time axis is going to be labeled |
11 |
|
|
12 |
use calendar |
use calendar, only: un_jour |
13 |
|
|
14 |
! INPUT |
INTEGER, intent(in):: itau ! current time step |
15 |
! itau: current time step |
double precision, intent(in):: date0 ! Date at which itau was equal to 0 |
16 |
! date0: Date at which itau was equal to 0 |
real, intent(in):: deltat ! time step between itau s |
17 |
! deltat: time step between itau s |
|
|
|
|
|
! OUTPUT |
|
|
! itau2date: Date for the given itau |
|
|
|
|
|
INTEGER:: itau |
|
|
REAL:: date0, deltat |
|
18 |
!-------------------------------------------------------------------- |
!-------------------------------------------------------------------- |
19 |
itau2date = REAL(itau)*deltat/un_jour+date0 |
|
20 |
|
itau2date = REAL(itau) * deltat / un_jour + date0 |
21 |
|
|
22 |
END FUNCTION itau2date |
END FUNCTION itau2date |
23 |
|
|