2 SUBROUTINE
GPPREF(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PALPH,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
10 REAL(KIND=
JPRB) ,INTENT(IN) :: PALPH(KPROMA,KFLEV)
11 REAL(KIND=JPRB) ,INTENT(IN) :: PRESH(KPROMA,0:KFLEV)
12 REAL(KIND=JPRB) ,INTENT(OUT) :: PRESF(KPROMA,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 GPPREF(KPROMA, KSTART, KPROF, KFLEV, PVAH, PVBH, PALPH, PRESH, PRESF) USE PARKIND1