!WRF:MODEL_LAYER:bc_time_utilities
!


MODULE  module_bc_time_utilities (docs)   48
  USE module_utility

  Type(WRFU_Time), PRIVATE, SAVE :: time_to_read_again

CONTAINS


  LOGICAL FUNCTION  lbc_read_time (docs)   ( xtime )
    IMPLICIT NONE
    Type (WRFU_Time), INTENT(IN) :: xtime
    IF ( xtime .LT. time_to_read_again ) THEN
      lbc_read_time = .false.
    ELSE
      lbc_read_time = .true.
    ENDIF
    RETURN
  END FUNCTION lbc_read_time


  SUBROUTINE  set_time_to_read_again (docs)   ( newtime )
    IMPLICIT NONE
    Type(WRFU_Time), INTENT(IN) :: newtime
    time_to_read_again = newtime
    RETURN
  END SUBROUTINE set_time_to_read_again


  SUBROUTINE  get_time_to_read_again (docs)   ( newtime )
    IMPLICIT NONE
    Type(WRFU_Time), INTENT(OUT) :: newtime
    newtime = time_to_read_again
    RETURN
  END SUBROUTINE get_time_to_read_again

END MODULE module_bc_time_utilities