source: lmdz_wrf/trunk/WRFV3/share/module_bc_time_utilities.F @ 354

Last change on this file since 354 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 851 bytes
Line 
1!WRF:MODEL_LAYER:bc_time_utilities
2!
3
4MODULE module_bc_time_utilities
5  USE module_utility
6
7  Type(WRFU_Time), PRIVATE, SAVE :: time_to_read_again
8
9CONTAINS
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
36END MODULE module_bc_time_utilities
Note: See TracBrowser for help on using the repository browser.