Parent Directory
| 
Revision Log
Julian dates be in double precision `ConfigureCompilerFlags.cmake` and `TAGS.cmake` are now copied into LMDZE, to avoid dependency on the environment. Julian dates must be in double precision, to get time step precision. Add optional attribute to argument sec of procedure ju2ymds. We do not need sec in procedure dynredem0. In procedure ju2ymds, by construction, sec cannot be > `un_jour`. Remove useless intermediary variables in procedure ymds2ju.
| 1 | module itau2date_m |
| 2 | |
| 3 | implicit none |
| 4 | |
| 5 | contains |
| 6 | |
| 7 | double precision 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, only: un_jour |
| 13 | |
| 14 | INTEGER, intent(in):: itau ! current time step |
| 15 | double precision, intent(in):: date0 ! Date at which itau was equal to 0 |
| 16 | real, intent(in):: deltat ! time step between itau s |
| 17 | |
| 18 | !-------------------------------------------------------------------- |
| 19 | |
| 20 | itau2date = REAL(itau) * deltat / un_jour + date0 |
| 21 | |
| 22 | END FUNCTION itau2date |
| 23 | |
| 24 | end module itau2date_m |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |