INTERFACE
SUBROUTINE gpscalc_refrac(K_NLEV,&
 & pres,&
 & P_TEMP,&
 & P_Q,&
 & PZ_DRY,&
 & PZ_WET,&
 & P_REFRAC) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: K_NLEV
REAL(KIND=JPRB) ,INTENT(IN) :: PRES(K_NLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: P_TEMP(K_NLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: P_Q(K_NLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PZ_DRY(K_NLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PZ_WET(K_NLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: P_REFRAC(K_NLEV)
END SUBROUTINE gpscalc_refrac
END INTERFACE
