*IF DEF,CONTROL,OR,DEF,RECON,OR,DEF,FLDOP                                  GAV0F405.96     
C ******************************COPYRIGHT******************************    GTS2F400.12531  
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved.    GTS2F400.12532  
C                                                                          GTS2F400.12533  
C Use, duplication or disclosure of this code is subject to the            GTS2F400.12534  
C restrictions as set forth in the contract.                               GTS2F400.12535  
C                                                                          GTS2F400.12536  
C                Meteorological Office                                     GTS2F400.12537  
C                London Road                                               GTS2F400.12538  
C                BRACKNELL                                                 GTS2F400.12539  
C                Berkshire UK                                              GTS2F400.12540  
C                RG12 2SZ                                                  GTS2F400.12541  
C                                                                          GTS2F400.12542  
C If no contract has been raised with this copy of the code, the use,      GTS2F400.12543  
C duplication or disclosure of it is strictly prohibited.  Permission      GTS2F400.12544  
C to do so must first be obtained in writing from the Head of Numerical    GTS2F400.12545  
C Modelling at the above address.                                          GTS2F400.12546  
C                                                                          GTS2F400.12547  
!+                                                                         OCNVOL1.3      
! Subroutine Interface:                                                    OCNVOL1.4      
                                                                           OCNVOL1.5      

      SUBROUTINE OCNVOL(LEN,IL1,IL2)                                        3OCNVOL1.6      
      IMPLICIT NONE                                                        OCNVOL1.7      
                                                                           OCNVOL1.8      
! Description:                                                             OCNVOL1.9      
!                                                                          OCNVOL1.10     
! Method:                                                                  OCNVOL1.11     
!                                                                          OCNVOL1.12     
! Current code owner:  S.J.Swarbrick                                       OCNVOL1.13     
!                                                                          OCNVOL1.14     
! History:                                                                 OCNVOL1.15     
! Version   Date       Comment                                             OCNVOL1.16     
! =======   ====       =======                                             OCNVOL1.17     
!   3.5     Apr. 95    Original code.  S.J.Swarbrick                       OCNVOL1.18     
!   4.1     Jun. 96    *CALL TYPSIZE introduced  S.J.Swarbrick             GSS1F401.1      
!   4.5     18/08/98   Added DEF,FLDOP   (A Van der Wal)                   GAV0F405.97     
!                                                                          OCNVOL1.19     
!  Code description:                                                       OCNVOL1.20     
!    FORTRAN 77 + common Fortran 90 extensions.                            OCNVOL1.21     
!    Written to UM programming standards version 7.                        OCNVOL1.22     
!                                                                          OCNVOL1.23     
!  System component covered:                                               OCNVOL1.24     
!  System task:               Sub-Models Project                           OCNVOL1.25     
!                                                                          OCNVOL1.26     
! Global variables:                                                        OCNVOL1.27     
                                                                           OCNVOL1.28     
*CALL CSUBMODL                                                             OCNVOL1.29     
*CALL VERSION                                                              OCNVOL1.30     
*CALL TYPSIZE                                                              GSS1F401.2      
*CALL MODEL                                                                OCNVOL1.31     
*CALL PARVARS                                                              ORH6F402.15     
                                                                           OCNVOL1.32     
! Subroutine arguments:                                                    OCNVOL1.33     
                                                                           OCNVOL1.34     
!   Scalar arguments with intent(in):                                      OCNVOL1.35     
                                                                           OCNVOL1.36     
      INTEGER IL1                                                          OCNVOL1.37     
      INTEGER IL2                                                          OCNVOL1.38     
                                                                           OCNVOL1.39     
!   Scalar arguments with intent(out):                                     OCNVOL1.40     
                                                                           OCNVOL1.41     
      INTEGER LEN                                                          OCNVOL1.42     
                                                                           OCNVOL1.43     
! Local scalars                                                            OCNVOL1.44     
                                                                           OCNVOL1.45     
      INTEGER ILVS                                                         OCNVOL1.46     
                                                                           OCNVOL1.47     
! - End of Header ----------------------------------------------------     OCNVOL1.48     
                                                                           OCNVOL1.49     
      ILVS=IL2-IL1+1                                                       OCNVOL1.50     
      IF(ILVS.NE.NLEVSO) THEN                                              OCNVOL1.51     
        WRITE(6,*)'OCNVOL: ERROR. OCEAN COMPRESED FIELD NOT ON',           OCNVOL1.52     
     &  ' FULL MODEL LEVELS'                                               OCNVOL1.53     
      ELSE                                                                 OCNVOL1.54     
*IF DEF,MPP                                                                ORH6F402.16     
        LEN=lasize(1)*lasize(2)                                            ORH6F402.17     
*ELSE                                                                      ORH6F402.18     
        LEN=N_COMP_O                                                       OCNVOL1.55     
*ENDIF                                                                     ORH6F402.19     
      END IF                                                               OCNVOL1.56     
      RETURN                                                               OCNVOL1.57     
      END                                                                  OCNVOL1.58     
*ENDIF                                                                     OCNVOL1.59