*IF DEF,OCEAN SETBCX.2
C ******************************COPYRIGHT****************************** SETBCX.3
C (c) CROWN COPYRIGHT 1998, METEOROLOGICAL OFFICE, All Rights Reserved. SETBCX.4
C SETBCX.5
C Use, duplication or disclosure of this code is subject to the SETBCX.6
C restrictions as set forth in the contract. SETBCX.7
C SETBCX.8
C Meteorological Office SETBCX.9
C London Road SETBCX.10
C BRACKNELL SETBCX.11
C Berkshire UK SETBCX.12
C RG12 2SZ SETBCX.13
C SETBCX.14
C If no contract has been raised with this copy of the code, the use, SETBCX.15
C duplication or disclosure of it is strictly prohibited. Permission SETBCX.16
C to do so must first be obtained in writing from the Head of Numerical SETBCX.17
C Modelling at the above address. SETBCX.18
C ******************************COPYRIGHT****************************** SETBCX.19
C SETBCX.20
CLL Subroutine SETBCX SETBCX.21
CLL SETBCX.22
CLL Author: M J Roberts SETBCX.23
CLL SETBCX.24
CLL Description: Set zonal boundary condition on the first index of SETBCX.25
CLL array "a" for every second index. the first index SETBCX.26
CLL corresponds to the "x" or longitude direction. SETBCX.27
CLL SETBCX.28
CLL External documentation: SETBCX.29
CLL Modular Ocean Model 2 manual and code SETBCX.30
CLL SETBCX.31
CLL Implemented at UM vn 4.5 26 June 1998 SETBCX.32
CLL SETBCX.33
CLL Modification History : SETBCX.34
CLL Version Date Comment & Name SETBCX.35
CLL ------- -------- -------------------------------------------- SETBCX.36
CLL SETBCX.37
CLL Subroutine dependencies. SETBCX.38
CLL SETBCX.39
CLLEND------------------------------------------------------------------ SETBCX.40
C SETBCX.41
SUBROUTINE SETBCX (a, imt, jmtorkm) 64SETBCX.42
c SETBCX.43
c======================================================================= SETBCX.44
c set zonal boundary condition on the first index of array "a" for SETBCX.45
c every second index. the first index corresponds to the "x" SETBCX.46
c or longitude direction. SETBCX.47
c SETBCX.48
c input: SETBCX.49
c a = array in need of setting the zonal b.c. SETBCX.50
c output SETBCX.51
c a = array with zonal b.c. set SETBCX.52
c======================================================================= SETBCX.53
c SETBCX.54
*CALL CNTLOCN 
SETBCX.55
SETBCX.56
real a(imt,jmtorkm) SETBCX.57
if (L_OCYCLIC) then SETBCX.58
do k=1,jmtorkm SETBCX.59
a(1,k) = a(imt-1,k) SETBCX.60
a(imt,k) = a(2,k) SETBCX.61
enddo SETBCX.62
else SETBCX.63
do k=1,jmtorkm SETBCX.64
a(1,k) = 0.0 SETBCX.65
a(imt,k) = 0.0 SETBCX.66
enddo SETBCX.67
endif SETBCX.68
SETBCX.69
RETURN SETBCX.70
END SETBCX.71
*ENDIF SETBCX.72
SETBCX.73