INTERFACE
SUBROUTINE gpscalc_compresstl(KLEV,PRES,PRES_PRIME,PTEMP,PTEMP_PRIME,PQ,PQ_PRIME,&
& PZCOMP_MIX,PZCOMP_MIX_PRIME,PZCOMP_DRY_INV,PZCOMP_DRY_INV_PRIME,&
& PZCOMP_WET_INV,PZCOMP_WET_INV_PRIME) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM), INTENT(IN) :: KLEV
REAL(KIND=JPRB),INTENT(IN) :: PRES(KLEV)
REAL(KIND=JPRB),INTENT(IN) :: PRES_PRIME(KLEV)
REAL(KIND=JPRB),INTENT(IN) :: PTEMP(KLEV)
REAL(KIND=JPRB),INTENT(IN) :: PTEMP_PRIME(KLEV)
REAL(KIND=JPRB),INTENT(IN) :: PQ(KLEV)
REAL(KIND=JPRB),INTENT(IN) :: PQ_PRIME(KLEV)
REAL(KIND=JPRB),INTENT(OUT) :: PZCOMP_MIX(KLEV)
REAL(KIND=JPRB),INTENT(OUT) :: PZCOMP_MIX_PRIME(KLEV)
REAL(KIND=JPRB),INTENT(OUT) :: PZCOMP_DRY_INV(KLEV)
REAL(KIND=JPRB),INTENT(OUT) :: PZCOMP_DRY_INV_PRIME(KLEV)
REAL(KIND=JPRB),INTENT(OUT) :: PZCOMP_WET_INV(KLEV)
REAL(KIND=JPRB),INTENT(OUT) :: PZCOMP_WET_INV_PRIME(KLEV)
END SUBROUTINE GPSCALC_COMPRESSTL
END INTERFACE
