2 SUBROUTINE
GPPRE(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH,PRESF)
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)
11 REAL(KIND=JPRB) ,INTENT(OUT) :: PRESF(KPROMA,KFLEV)
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
INTERFACE SUBROUTINE GPPRE(KPROMA, KSTART, KPROF, KFLEV, PVAH, PVBH, PRESH, PRESF) USE PARKIND1
INTERFACE SUBROUTINE ONLY