INTERFACE
SUBROUTINE PRTSPNO(KULOUT,KFLEV,KLEV,KNSMAX,CDVAR,PX)
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
INTEGER(KIND=JPIM),INTENT(IN) :: KNSMAX
INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
CHARACTER(LEN=4) ,INTENT(IN) :: CDVAR
REAL(KIND=JPRB) ,INTENT(IN) :: PX(KFLEV,0:KNSMAX)
END SUBROUTINE PRTSPNO
END INTERFACE
