LMDZ
srtm_vrtqdr.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE SRTM_VRTQDR&
3  & ( KLEV , KW,&
4  & PREF , PREFD, PTRA , PTRAD,&
5  & PDBT , PRDND, PRUP , PRUPD , PTDBT,&
6  & PFD , PFU&
7  & )
8 USE PARKIND1 ,ONLY : JPIM ,JPRB
9 USE PARSRTM , ONLY : JPLAY, JPGPT
10 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
11 INTEGER(KIND=JPIM),INTENT(IN) :: KW
12 REAL(KIND=JPRB) ,INTENT(IN) :: PREF(JPLAY+1)
13 REAL(KIND=JPRB) ,INTENT(IN) :: PREFD(JPLAY+1)
14 REAL(KIND=JPRB) ,INTENT(IN) :: PTRA(JPLAY+1)
15 REAL(KIND=JPRB) ,INTENT(IN) :: PTRAD(JPLAY+1)
16 REAL(KIND=JPRB) ,INTENT(IN) :: PDBT(JPLAY+1)
17 REAL(KIND=JPRB) ,INTENT(OUT) :: PRDND(JPLAY+1)
18 REAL(KIND=JPRB) ,INTENT(INOUT) :: PRUP(JPLAY+1)
19 REAL(KIND=JPRB) ,INTENT(INOUT) :: PRUPD(JPLAY+1)
20 REAL(KIND=JPRB) ,INTENT(IN) :: PTDBT(JPLAY+1)
21 REAL(KIND=JPRB) ,INTENT(INOUT) :: PFD(JPLAY+1,JPGPT)
22 REAL(KIND=JPRB) ,INTENT(INOUT) :: PFU(JPLAY+1,JPGPT)
23 END SUBROUTINE SRTM_VRTQDR
24 END INTERFACE
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
ONLY JPIM
Definition: tsmbkind.h:5
INTERFACE SUBROUTINE SRTM_VRTQDR && PREF
INTERFACE SUBROUTINE SW1S PFU
Definition: sw1s.intfb.h:3
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
ONLY JPRB
Definition: tsmbkind.h:5
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