2 SUBROUTINE SRTM_VRTQDR&
23 END SUBROUTINE SRTM_VRTQDR
INTERFACE SUBROUTINE SRTM_VRTQDR && PFD
INTERFACE SUBROUTINE SRTM_VRTQDR PRUPD
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
INTERFACE SUBROUTINE JPRB USE JPGPT
INTERFACE SUBROUTINE SRTM_VRTQDR && PDBT
INTERFACE SUBROUTINE SRTM_VRTQDR && PREF
INTERFACE SUBROUTINE SW1S PFU
INTERFACE SUBROUTINE SRTM_VRTQDR KW
INTERFACE SUBROUTINE SRTM_VRTQDR PREFD
INTERFACE SUBROUTINE SRTM_VRTQDR && KLEV
INTERFACE SUBROUTINE SRTM_VRTQDR PRDND
INTERFACE SUBROUTINE SRTM_VRTQDR PTRAD
INTERFACE SUBROUTINE SRTM_VRTQDR PFU &&USE ONLY
INTERFACE SUBROUTINE SRTM_VRTQDR PRUP
INTERFACE SUBROUTINE SRTM_VRTQDR PTDBT
INTERFACE SUBROUTINE SRTM_VRTQDR PTRA
INTERFACE SUBROUTINE SRTM_VRTQDR PFU &&USE JPRB USE JPGPT INTEGER(KIND=JPIM)
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_IREFLECT USE JPRB USE JPLAY