INTERFACE
SUBROUTINE SWCLRTL&
 & ( KIDIA , KFDIA , KLON , KLEV , KAER , KNU,&
 & PAER5 , PALBP5 , PDSIG5 , PRAYL5 , PSEC5,&
 & PCGAZ5 , PPIZAZ5, PRAY15 , PRAY25 , PREFZ5 , PRJ05,&
 & PRK05 , PRMU05 , PTAUAZ5, PTRA15 , PTRA25,&
 & PAER , PALBP , PDSIG , PRAYL , PSEC,&
 & PCGAZ , PPIZAZ , PRAY1 , PRAY2 , PREFZ , PRJ0,&
 & PRK0 , PRMU0 , PTAUAZ , PTRA1 , PTRA2&
 & ) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE YOERAD , ONLY : NOVLP ,NSW
INTEGER(KIND=JPIM),INTENT(IN) :: KLON
INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
INTEGER(KIND=JPIM),INTENT(IN) :: KAER
INTEGER(KIND=JPIM),INTENT(IN) :: KNU
REAL(KIND=JPRB) ,INTENT(IN) :: PAER5(KLON,6,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PALBP5(KLON,NSW)
REAL(KIND=JPRB) ,INTENT(IN) :: PDSIG5(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PRAYL5(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PSEC5(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PCGAZ5(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PPIZAZ5(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY15(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY25(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PREFZ5(KLON,2,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRJ05(KLON,6,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRK05(KLON,6,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRMU05(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTAUAZ5(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA15(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA25(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
REAL(KIND=JPRB) ,INTENT(IN) :: PDSIG(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PRAYL(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PCGAZ(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PPIZAZ(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY1(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY2(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PREFZ(KLON,2,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRJ0(KLON,6,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRK0(KLON,6,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRMU0(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTAUAZ(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA1(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA2(KLON,KLEV+1)
END SUBROUTINE SWCLRTL
END INTERFACE
