!WRF:MODEL_LAYER:bc_time_utilities
!


MODULE module_bc_time_utilities 5

  INTEGER, PRIVATE, SAVE :: time_to_read_again

CONTAINS


  LOGICAL FUNCTION lbc_read_time ( xtime )
    IMPLICIT NONE
    REAL, 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 ( newtime ) 3
    IMPLICIT NONE
    REAL, INTENT(IN) :: newtime
    time_to_read_again = newtime
    RETURN
  END SUBROUTINE set_time_to_read_again


  SUBROUTINE get_time_to_read_again ( newtime ) 3
    IMPLICIT NONE
    REAL, INTENT(OUT) :: newtime
    newtime = time_to_read_again
    RETURN
  END SUBROUTINE get_time_to_read_again

END MODULE module_bc_time_utilities