2 SUBROUTINE SRTM_REFTRA&
21 END SUBROUTINE SRTM_REFTRA
INTERFACE SUBROUTINE SRTM_REFTRA PW
INTERFACE SUBROUTINE SRTM_REFTRA && PREF
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
INTERFACE SUBROUTINE SRTM_REFTRA PRMUZ
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
INTERFACE SUBROUTINE SRTM_REFTRA PTAU
INTERFACE SUBROUTINE SRTM_REFTRA && KLEV
INTERFACE SUBROUTINE SRTM_REFTRA PTRA
INTERFACE SUBROUTINE SRTM_REFTRA KMODTS
INTERFACE SUBROUTINE SRTM_REFTRA PREFD
INTERFACE SUBROUTINE SRTM_VRTQDR PTRAD
INTERFACE SUBROUTINE SRTM_REFTRA PTRAD &&USE ONLY
INTERFACE SUBROUTINE SRTM_REFTRA && PGG
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_IREFLECT USE JPRB USE JPLAY
INTERFACE SUBROUTINE SRTM_REFTRA && LDRTCHK