!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*     POINTEURS DES CHAMPS RELIES A L'OZONE CLIMATOLOGIQUE
      INTEGER NLACL,NPCL
      PARAMETER ( NLACL=19 , NPCL=37 )
      INTEGER NTOTOZ
      PARAMETER (NTOTOZ=NLACL*(NPCL+1)+2*NPCL)
      INTEGER FOZON,CLAT,PREF,CDZPOT
      COMMON /OZOPNT/ fozon,clat,pref,cdzpot
#if defined(DOC)
*COMMON BLOCK /OZOPNT/
*          contains pointers to ozone fields. They are all
*          initialized in PNTOZO routine
*
* FOZON    =1
* CLAT     FOZON + (parameter NLACL)*(parameter NPCL)
* PREF     CLAT + (parameter NLACL)
* CDZPOT   PREF + (parameter NPCL)
*
#endif