module_bc_time_utilities.F

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