*IF DEF,FLUXPROC FPTIMUSE.2
C ******************************COPYRIGHT****************************** FPTIMUSE.3
C (c) CROWN COPYRIGHT 1998, METEOROLOGICAL OFFICE, All Rights Reserved. FPTIMUSE.4
C FPTIMUSE.5
C Use, duplication or disclosure of this code is subject to the FPTIMUSE.6
C restrictions as set forth in the contract. FPTIMUSE.7
C FPTIMUSE.8
C Meteorological Office FPTIMUSE.9
C London Road FPTIMUSE.10
C BRACKNELL FPTIMUSE.11
C Berkshire UK FPTIMUSE.12
C RG12 2SZ FPTIMUSE.13
C FPTIMUSE.14
C If no contract has been raised with this copy of the code, the use, FPTIMUSE.15
C duplication or disclosure of it is strictly prohibited. Permission FPTIMUSE.16
C to do so must first be obtained in writing from the Head of Numerical FPTIMUSE.17
C Modelling at the above address. FPTIMUSE.18
C ******************************COPYRIGHT****************************** FPTIMUSE.19
C FPTIMUSE.20
C Programming standard: Unified Model Documentation Paper No 3 FPTIMUSE.21
C Version No 1 15/1/90 FPTIMUSE.22
C History: FPTIMUSE.23
C version date change FPTIMUSE.24
C 4.5 03/09/98 New code FPTIMUSE.25
C FPTIMUSE.26
! Author: M. J. Bell FPTIMUSE.27
!---------------------------------------------------------------------- FPTIMUSE.28
! contains routines: time_to_use FPTIMUSE.29
! FPTIMUSE.30
! Purpose: Flux processing routine. FPTIMUSE.31
! Determines whether to use data time or validity time when FPTIMUSE.32
! searching in the lookup table FPTIMUSE.33
!---------------------------------------------------------------------- FPTIMUSE.34
subroutine time_to_use ( itemvalue, l_climate_field, l_data_time) 4FPTIMUSE.35
FPTIMUSE.36
implicit none FPTIMUSE.37
FPTIMUSE.38
! declaration of argument list FPTIMUSE.39
integer itemvalue ! IN (stash) item being looked for FPTIMUSE.40
logical l_climate_field ! IN T => trying to read climate field FPTIMUSE.41
! F => trying to read NWP field FPTIMUSE.42
logical l_data_time ! OUT T => use data time FPTIMUSE.43
! F => use validity time FPTIMUSE.44
! declarations of parameters FPTIMUSE.45
*CALL CFDCODES 
FPTIMUSE.46
! no globals, local arrays or scalars FPTIMUSE.47
FPTIMUSE.48
!---------------------------------------------------------------------- FPTIMUSE.49
FPTIMUSE.50
! 1. Set l_data_time FPTIMUSE.51
FPTIMUSE.52
if ( itemvalue .eq. StCAICE .or. FPTIMUSE.53
# itemvalue .eq. StCSST .or. FPTIMUSE.54
# itemvalue .eq. StCHICE .or. FPTIMUSE.55
# itemvalue .eq. StCSSS .or. FPTIMUSE.56
# itemvalue .eq. StCSSP .or. FPTIMUSE.57
# itemvalue .eq. StCWindSpeedU .or. FPTIMUSE.58
# itemvalue .eq. StCWindSpeedV .or. FPTIMUSE.59
# l_climate_field ) then FPTIMUSE.60
l_data_time = .false. FPTIMUSE.61
FPTIMUSE.62
else FPTIMUSE.63
l_data_time = .true. FPTIMUSE.64
FPTIMUSE.65
end if FPTIMUSE.66
FPTIMUSE.67
return FPTIMUSE.68
end FPTIMUSE.69
!---------------------------------------------------------------------- FPTIMUSE.70
*ENDIF FPTIMUSE.71