/[lmdze]/trunk/IOIPSL/Calendar/itau2date.f90
ViewVC logotype

Diff of /trunk/IOIPSL/Calendar/itau2date.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 334 by guez, Thu Jun 13 14:40:06 2019 UTC revision 335 by guez, Thu Sep 12 21:22:46 2019 UTC
# Line 4  module itau2date_m Line 4  module itau2date_m
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    
Legend:
Removed from v.334  
changed lines
  Added in v.335
  ViewVC Help
Powered by ViewVC 1.1.21