INTERFACE
SUBROUTINE SCAAS(KDUM,YD_PX,YD_PY,PSC)
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE CONTROL_VECTORS
INTEGER(KIND=JPIM) :: KDUM
TYPE(CONTROL_VECTOR),INTENT(IN) :: YD_PX
TYPE(CONTROL_VECTOR),INTENT(IN) :: YD_PY
REAL(KIND=JPRB) ,INTENT(OUT) :: PSC
END SUBROUTINE SCAAS
END INTERFACE
