share/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 character*256 mess
  10
  11 CONTAINS
  12
  13   LOGICAL FUNCTION lbc_read_time ( xtime )
  14     IMPLICIT NONE
  15     Type (WRFU_Time), INTENT(IN) :: xtime
  16     IF ( xtime .LT. time_to_read_again ) THEN
  17       lbc_read_time = .false.
  18     ELSE
  19       lbc_read_time = .true.
  20     ENDIF
  21     RETURN
  22   END FUNCTION lbc_read_time
  23
  24   SUBROUTINE set_time_to_read_again ( newtime )
  25     IMPLICIT NONE
  26     Type(WRFU_Time), INTENT(IN) :: newtime
  27     time_to_read_again = newtime
  28     RETURN
  29   END SUBROUTINE set_time_to_read_again
  30
  31   SUBROUTINE get_time_to_read_again ( newtime )
  32     IMPLICIT NONE
  33     Type(WRFU_Time), INTENT(OUT) :: newtime
  34     newtime = time_to_read_again
  35     RETURN
  36   END SUBROUTINE get_time_to_read_again
  37
  38 END MODULE module_bc_time_utilities