*IF DEF,CONTROL,AND,DEF,OCEAN                                              OSLAB2D1.2      
C ******************************COPYRIGHT******************************    OSLAB2D1.3      
C (c) CROWN COPYRIGHT 1996, METEOROLOGICAL OFFICE, All Rights Reserved.    OSLAB2D1.4      
C                                                                          OSLAB2D1.5      
C Use, duplication or disclosure of this code is subject to the            OSLAB2D1.6      
C restrictions as set forth in the contract.                               OSLAB2D1.7      
C                                                                          OSLAB2D1.8      
C                Meteorological Office                                     OSLAB2D1.9      
C                London Road                                               OSLAB2D1.10     
C                BRACKNELL                                                 OSLAB2D1.11     
C                Berkshire UK                                              OSLAB2D1.12     
C                RG12 2SZ                                                  OSLAB2D1.13     
C                                                                          OSLAB2D1.14     
C If no contract has been raised with this copy of the code, the use,      OSLAB2D1.15     
C duplication or disclosure of it is strictly prohibited.  Permission      OSLAB2D1.16     
C to do so must first be obtained in writing from the Head of Numerical    OSLAB2D1.17     
C Modelling at the above address.                                          OSLAB2D1.18     
C ******************************COPYRIGHT******************************    OSLAB2D1.19     
CLL SUBROUTINE OSLAB2D1                                                    OSLAB2D1.20     
CLL                                                                        OSLAB2D1.21     
CLL Purpose: To copy a slab of ocean data to D1                            OSLAB2D1.22     
CLL Author: S.Ineson  Version: 4.1                                         OSLAB2D1.23     
CLL                                                                        OSLAB2D1.24     

      SUBROUTINE OSLAB2D1(I1,I2,J1,J2,K1,K2,IOUT,JOUT,KOUT,                 3OSLAB2D1.25     
     &           MAX_COL,MAX_ROW,MAX_LEV,T,T_SLAB)                         OSLAB2D1.26     
                                                                           OSLAB2D1.27     
      IMPLICIT NONE                                                        OSLAB2D1.28     
                                                                           OSLAB2D1.29     
      INTEGER                                                              OSLAB2D1.33     
     & I1,I2                                                               OSLAB2D1.34     
     &,J1,J2                                                               OSLAB2D1.35     
     &,K1,K2                                                               OSLAB2D1.36     
     &,IOUT,JOUT,KOUT                                                      OSLAB2D1.37     
     &,MAX_COL,MAX_ROW,MAX_LEV                                             OSLAB2D1.38     
      REAL                                                                 PXORDER.37     
     & T(MAX_COL,MAX_ROW,MAX_LEV)                                          PXORDER.38     
     &,T_SLAB(IOUT,JOUT,KOUT)                                              PXORDER.39     
                                                                           OSLAB2D1.39     
      INTEGER                                                              OSLAB2D1.40     
     & I,J,K                                                               OSLAB2D1.41     
                                                                           OSLAB2D1.42     
      DO K = K1,K2                                                         OSLAB2D1.43     
        DO J = J1,J2                                                       OSLAB2D1.44     
           DO I = I1,I2                                                    OSLAB2D1.45     
             T(I,J,K) = T_SLAB(I-I1+1,J-J1+1,K-K1+1)                       OSLAB2D1.46     
           ENDDO                                                           OSLAB2D1.47     
        ENDDO                                                              OSLAB2D1.48     
      ENDDO                                                                OSLAB2D1.49     
                                                                           OSLAB2D1.50     
      RETURN                                                               OSLAB2D1.51     
      END                                                                  OSLAB2D1.52     
*ENDIF                                                                     OSLAB2D1.53