C-----------------------------------------------------------------------
                             COMMON /CNVCLD/
     & CUPPT(IDIM1:IDIM2,JDIM1:JDIM2),CFRACL(IDIM1:IDIM2,JDIM1:JDIM2)
     &,CFRACM(IDIM1:IDIM2,JDIM1:JDIM2),CFRACH(IDIM1:IDIM2,JDIM1:JDIM2)
                             save /CNVCLD/
C-----------------------------------------------------------------------