INTERFACE
SUBROUTINE EXCHCOTL(&
 & KPROMA,KIDIA,KFDIA,&
 & PQ5,PT5,PAPHI5,PAPHIH5,PR5,PTS5,&
 & PQ,PT,PAPHI,PAPHIH,PR,PTS,&
 & PUB5,PVB5,PAZO5,&
 & PUB,PVB,PAZO,&
 & PWET5,PQS5,&
 & PWET,PQS,&
 & PRI5,&
 & PBN,PBM,PBH) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
REAL(KIND=JPRB) ,INTENT(IN) :: PQ5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PT5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHI5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHIH5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PR5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PTS5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PT(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHI(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHIH(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PR(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PUB5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PVB5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PAZO5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PUB(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PVB(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PAZO(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PWET5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PQS5(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PWET(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KPROMA)
REAL(KIND=JPRB) ,INTENT(IN) :: PRI5(KPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PBN(KPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PBM(KPROMA)
REAL(KIND=JPRB) ,INTENT(OUT) :: PBH(KPROMA)
END SUBROUTINE EXCHCOTL
END INTERFACE
