INTERFACE
SUBROUTINE gpscalc_nrTL(K_NLEV,P_ROC,P_LAT,P_ZG,P_ZG_PRIME,P_REFRAC,P_REFRAC_PRIME,&
 & PZ_COMP,PZ_COMP_PRIME,P_NR,P_NR_PRIME) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: K_NLEV
REAL(KIND=JPRB) ,INTENT(IN) :: P_ROC
REAL(KIND=JPRB) ,INTENT(IN) :: P_LAT
REAL(KIND=JPRB) ,INTENT(IN) :: P_ZG(K_NLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: P_ZG_PRIME(K_NLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: P_REFRAC(K_NLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: P_REFRAC_PRIME(K_NLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PZ_COMP(K_NLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PZ_COMP_PRIME(K_NLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: P_NR(K_NLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: P_NR_PRIME(K_NLEV)
END SUBROUTINE gpscalc_nrTL
END INTERFACE
