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). |
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 |