*IF DEF,FLUXPROC FPRDSEL1.2
C ******************************COPYRIGHT****************************** FPRDSEL1.3
C (c) CROWN COPYRIGHT 1998, METEOROLOGICAL OFFICE, All Rights Reserved. FPRDSEL1.4
C FPRDSEL1.5
C Use, duplication or disclosure of this code is subject to the FPRDSEL1.6
C restrictions as set forth in the contract. FPRDSEL1.7
C FPRDSEL1.8
C Meteorological Office FPRDSEL1.9
C London Road FPRDSEL1.10
C BRACKNELL FPRDSEL1.11
C Berkshire UK FPRDSEL1.12
C RG12 2SZ FPRDSEL1.13
C FPRDSEL1.14
C If no contract has been raised with this copy of the code, the use, FPRDSEL1.15
C duplication or disclosure of it is strictly prohibited. Permission FPRDSEL1.16
C to do so must first be obtained in writing from the Head of Numerical FPRDSEL1.17
C Modelling at the above address. FPRDSEL1.18
C ******************************COPYRIGHT****************************** FPRDSEL1.19
C FPRDSEL1.20
C Programming standard: Unified Model Documentation Paper No 3 FPRDSEL1.21
C Version No 1 15/1/90 FPRDSEL1.22
C History: FPRDSEL1.23
C version date change FPRDSEL1.24
C 4.5 03/09/98 New code FPRDSEL1.25
C FPRDSEL1.26
! Author: S. A. Spall FPRDSEL1.27
!---------------------------------------------------------------------- FPRDSEL1.28
! contains routines: read_select_cntl FPRDSEL1.29
! FPRDSEL1.30
! Purpose: Flux processing routine. FPRDSEL1.31
! Reads files controlling which fluxes to process FPRDSEL1.32
!---------------------------------------------------------------------- FPRDSEL1.33
subroutine read_select_cntl ( icode ) 1FPRDSEL1.34
FPRDSEL1.35
implicit none FPRDSEL1.36
FPRDSEL1.37
! declaration of argument list FPRDSEL1.38
integer icode ! IN/OUT error code ; > 0 => fatal error detected FPRDSEL1.39
FPRDSEL1.40
! declaration of parameters FPRDSEL1.41
FPRDSEL1.42
! declaration of globals used FPRDSEL1.43
*CALL CUNITNOS 
FPRDSEL1.44
*CALL CMESS FPRDSEL1.45
*CALL CSELCT FPRDSEL1.46
FPRDSEL1.47
! No local arrays FPRDSEL1.48
FPRDSEL1.49
! No local scalars FPRDSEL1.50
FPRDSEL1.51
! namelist declaration FPRDSEL1.52
NAMELIST /NmLstSlt/ FPRDSEL1.53
# l_winds_slt, l_heat_slt, l_moisture_slt, FPRDSEL1.54
# l_sea_ice_slt, l_references_slt, l_pressure_slt, FPRDSEL1.55
# l_windspd_slt FPRDSEL1.56
FPRDSEL1.57
!---------------------------------------------------------------------- FPRDSEL1.58
! 0. Preliminaries FPRDSEL1.59
CSub = 'read_select_cntl' ! subroutine name for error messages FPRDSEL1.60
FPRDSEL1.61
! 1. set default values for variables in NmLstSlt FPRDSEL1.62
FPRDSEL1.63
l_winds_slt = .false. FPRDSEL1.64
l_heat_slt = .false. FPRDSEL1.65
l_moisture_slt = .false. FPRDSEL1.66
l_sea_ice_slt = .false. FPRDSEL1.67
l_references_slt = .false. FPRDSEL1.68
l_pressure_slt = .false. FPRDSEL1.69
l_windspd_slt = .false. FPRDSEL1.70
FPRDSEL1.71
! 2. read debug control namelist FPRDSEL1.72
read (UnitSlt, NmLstSlt, iostat = icode) FPRDSEL1.73
FPRDSEL1.74
if ( icode .ne. 0 ) then FPRDSEL1.75
write(UnErr,*)CErr,CSub, FPRDSEL1.76
# ' step 2. unable to read select control namelist' FPRDSEL1.77
icode = 4008 FPRDSEL1.78
go to 9999 FPRDSEL1.79
end if FPRDSEL1.80
FPRDSEL1.81
9999 continue FPRDSEL1.82
return FPRDSEL1.83
end FPRDSEL1.84
!---------------------------------------------------------------------- FPRDSEL1.85
*ENDIF FPRDSEL1.86