INTERFACE
SUBROUTINE SU_UVRAD ( KUV )
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KUV
END SUBROUTINE SU_UVRAD
END INTERFACE