*IF DEF,C70_1A,OR,DEF,UTILIO,OR,DEF,FLDOP                                  GAV0F405.5      
C ******************************COPYRIGHT******************************    GTS2F400.505    
C (c) CROWN COPYRIGHT 1995, METEOROLOGICAL OFFICE, All Rights Reserved.    GTS2F400.506    
C                                                                          GTS2F400.507    
C Use, duplication or disclosure of this code is subject to the            GTS2F400.508    
C restrictions as set forth in the contract.                               GTS2F400.509    
C                                                                          GTS2F400.510    
C                Meteorological Office                                     GTS2F400.511    
C                London Road                                               GTS2F400.512    
C                BRACKNELL                                                 GTS2F400.513    
C                Berkshire UK                                              GTS2F400.514    
C                RG12 2SZ                                                  GTS2F400.515    
C                                                                          GTS2F400.516    
C If no contract has been raised with this copy of the code, the use,      GTS2F400.517    
C duplication or disclosure of it is strictly prohibited.  Permission      GTS2F400.518    
C to do so must first be obtained in writing from the Head of Numerical    GTS2F400.519    
C Modelling at the above address.                                          GTS2F400.520    
C ******************************COPYRIGHT******************************    GTS2F400.521    
C                                                                          GTS2F400.522    
CLL Block Data Subprogram : BLKDATA                                        BLKDATA.3      
CLL                                                                        BLKDATA.4      
CLL Purpose : Holds DATA for any variables that are in common blocks,      BLKDATA.5      
CLL           so that they are initialised in only one place.              BLKDATA.6      
CLL                                                                        BLKDATA.7      
CLL Written by P.Burton                                                    BLKDATA.8      
CLL                                                                        BLKDATA.9      
CLL Model vn.  Date    Modification history from vn3.3                     BLKDATA.10     
CLL  3.4       1/8/94   Add C_VARCTL,C_VARCDT     Stuart Bell              GCJ1F404.1      
CLL  4.4      24/10/97  Add CNTL_IO and CNTLIODT C.P. Jones                GCJ1F404.2      
CLL  4.5      14/07/98  Add FLDOP to *IF DEF at top (A Van der Wal)        GAV0F405.4      
CLL                                                                        BLKDATA.12     
                                                                           BLKDATA.13     
      BLOCK DATA BLKDATA                                                   BLKDATA.14     
                                                                           BLKDATA.15     
*CALL CENVIR                                                               BLKDATA.16     
*CALL C_VARCTL                                                             VSB1F304.108    
*CALL CNTL_IO                                                              GCJ1F404.3      
*CALL PARVARS                                                              PXBLKDAT.1      
*CALL DECOMPTP                                                             PXBLKDAT.2      
*CALL DECOMPDB                                                             PXBLKDAT.3      
*CALL COASIS                                                               PXBLKDAT.4      
*CALL ACPARM                                                               PXBLKDAT.5      
*CALL COMOBS                                                               PXBLKDAT.6      
                                                                           VSB1F304.109    
*CALL CENVIRDT                                                             BLKDATA.17     
*CALL C_VARCDT                                                             VSB1F304.110    
*CALL CNTLIODT                                                             GCJ1F404.4      
*CALL PARVARDT                                                             PXBLKDAT.7      
*CALL DECOMPDT                                                             PXBLKDAT.8      
*CALL COASISDT                                                             PXBLKDAT.9      
*CALL COMOBSDT                                                             PXBLKDAT.10     
                                                                           BLKDATA.18     
      END                                                                  BLKDATA.19     
*ENDIF                                                                     BLKDATA.20