/[lmdze]/trunk/Sources/IOIPSL/Calendar/isittime.f
ViewVC logotype

Diff of /trunk/Sources/IOIPSL/Calendar/isittime.f

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

revision 177 by guez, Wed Apr 29 15:47:56 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 4  module isittime_m Line 4  module isittime_m
4    
5  contains  contains
6    
7    SUBROUTINE isittime &    SUBROUTINE isittime(itau, date0, dt, freq, last_action, last_check, do_action)
        &  (itau, date0, dt, freq, last_action, last_check, do_action)  
8    
9      ! This subroutine checks the time has come for a given action.      ! This subroutine checks the time has come for a given action.
10      ! This is computed from the current time-step(itau).      ! This is computed from the current time-step(itau).
# Line 29  contains Line 28  contains
28      use ymds2ju_m      use ymds2ju_m
29    
30      INTEGER, INTENT(IN):: itau      INTEGER, INTENT(IN):: itau
31        REAL, INTENT(IN):: date0
32      REAL, INTENT(IN):: dt, freq      REAL, INTENT(IN):: dt, freq
33      INTEGER, INTENT(IN):: last_action, last_check      INTEGER, INTENT(IN):: last_action, last_check
     REAL, INTENT(IN):: date0  
   
34      LOGICAL, INTENT(OUT):: do_action      LOGICAL, INTENT(OUT):: do_action
35    
36      REAL:: dt_action, dt_check      REAL:: dt_action, dt_check
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21