Last change
on this file since 3567 was
11,
checked in by aslmd, 14 years ago
|
spiga@svn-planeto:ajoute le modele meso-echelle martien
|
File size:
851 bytes
|
Line | |
---|
1 | !WRF:MODEL_LAYER:bc_time_utilities |
---|
2 | ! |
---|
3 | |
---|
4 | MODULE module_bc_time_utilities |
---|
5 | USE module_utility |
---|
6 | |
---|
7 | Type(WRFU_Time), PRIVATE, SAVE :: time_to_read_again |
---|
8 | |
---|
9 | CONTAINS |
---|
10 | |
---|
11 | LOGICAL FUNCTION lbc_read_time ( xtime ) |
---|
12 | IMPLICIT NONE |
---|
13 | Type (WRFU_Time), INTENT(IN) :: xtime |
---|
14 | IF ( xtime .LT. time_to_read_again ) THEN |
---|
15 | lbc_read_time = .false. |
---|
16 | ELSE |
---|
17 | lbc_read_time = .true. |
---|
18 | ENDIF |
---|
19 | RETURN |
---|
20 | END FUNCTION lbc_read_time |
---|
21 | |
---|
22 | SUBROUTINE set_time_to_read_again ( newtime ) |
---|
23 | IMPLICIT NONE |
---|
24 | Type(WRFU_Time), INTENT(IN) :: newtime |
---|
25 | time_to_read_again = newtime |
---|
26 | RETURN |
---|
27 | END SUBROUTINE set_time_to_read_again |
---|
28 | |
---|
29 | SUBROUTINE get_time_to_read_again ( newtime ) |
---|
30 | IMPLICIT NONE |
---|
31 | Type(WRFU_Time), INTENT(OUT) :: newtime |
---|
32 | newtime = time_to_read_again |
---|
33 | RETURN |
---|
34 | END SUBROUTINE get_time_to_read_again |
---|
35 | |
---|
36 | END MODULE module_bc_time_utilities |
---|
Note: See
TracBrowser
for help on using the repository browser.