INTERFACE
SUBROUTINE MCICA_CLD_GEN&
 & ( PNUAGE , PLIQWCIN, PICEWCIN, PSNOWCIN, PRLC_CF, PRLC_CW, PGLAT , PGLON ,&
 & PSIGMA_QCW, PT, PETA, PSUR, KLON, KIDIA, KFDIA, KLEV, KNX_LOC,&
 & LDPPH , LDMAXRAN ,&
 & KNCLDY , PLIQWCIN_S, PICEWCIN_S, PSNOWCIN_S) 
USE PARKIND1, ONLY : JPIM, JPRB
INTEGER(KIND=JPIM), INTENT(IN) :: KNX_LOC
LOGICAL, INTENT(IN) :: LDPPH, LDMAXRAN
REAL(KIND=JPRB), INTENT(IN) ::&
 & PNUAGE(KLON,KLEV),&
 & PICEWCIN(KLON,KLEV),&
 & PSNOWCIN(KLON,KLEV),&
 & PLIQWCIN(KLON,KLEV),&
 & PGLAT(KLON),&
 & PGLON(KLON) 
INTEGER(KIND=JPIM), INTENT(IN) ::&
 & KLON,&
 & KIDIA,&
 & KFDIA,&
 & KLEV 
REAL(KIND=JPRB), INTENT(IN) ::&
 & PRLC_CF(KLON,KLEV),&
 & PRLC_CW(KLON,KLEV),&
 & PSIGMA_QCW(KLON,KLEV),&
 & PT(KLON,KLEV),&
 & PSUR(KLON),&
 & PETA(KLON,KLEV) 
REAL(KIND=JPRB), INTENT(OUT) ::&
 & PICEWCIN_S(KLON,KLEV,KNX_LOC),&
 & PSNOWCIN_S(KLON,KLEV,KNX_LOC),&
 & PLIQWCIN_S(KLON,KLEV,KNX_LOC) 
INTEGER(KIND=JPIM),INTENT(OUT) ::&
 & KNCLDY(KLON) 
END SUBROUTINE MCICA_CLD_GEN
END INTERFACE
