!-----------------------------------------------------------------------
       real(4),pointer::cuppt(:,:),cfracl(:,:),cfracm(:,:),cfrach(:,:)
       COMMON/CNVCLD/CUPPT,CFRACL,CFRACM,CFRACH
!-----------------------------------------------------------------------