INTERFACE
SUBROUTINE CTCAB (KDUM,YD_PU,YD_PV)
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE CONTROL_VECTORS
INTEGER(KIND=JPIM) :: KDUM
TYPE(CONTROL_VECTOR),INTENT(IN) :: YD_PU
TYPE(CONTROL_VECTOR),INTENT(INOUT) :: YD_PV
END SUBROUTINE CTCAB
END INTERFACE
