2 SUBROUTINE
GPPREH(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH)
4 INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
5 INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
6 INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
7 INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
8 REAL(KIND=
JPRB) ,INTENT(IN) :: PVAH(0:KFLEV)
9 REAL(KIND=JPRB) ,INTENT(IN) :: PVBH(0:KFLEV)
10 REAL(KIND=JPRB) ,INTENT(INOUT) :: PRESH(KPROMA,0:KFLEV)
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
INTERFACE SUBROUTINE ONLY
INTERFACE SUBROUTINE GPPREH(KPROMA, KSTART, KPROF, KFLEV, PVAH, PVBH, PRESH) USE PARKIND1