INTERFACE
SUBROUTINE GPRH_2D(LDWMORH,KHORIZ,KPROMA,KSTART,KPROF,KFLEV,&
 & PRHMAX,PRHMIN,PQ,PT,PRESF,PES,PRH) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
LOGICAL ,INTENT(IN) :: LDWMORH
INTEGER(KIND=JPIM),INTENT(IN) :: KHORIZ
INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
REAL(KIND=JPRB) ,INTENT(IN) :: PRHMAX
REAL(KIND=JPRB) ,INTENT(IN) :: PRHMIN
REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KPROMA,KFLEV,KHORIZ)
REAL(KIND=JPRB) ,INTENT(IN) :: PT(KPROMA,KFLEV,KHORIZ)
REAL(KIND=JPRB) ,INTENT(IN) :: PRESF(KPROMA,KFLEV,KHORIZ)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PES(KPROMA,KFLEV,KHORIZ)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRH(KPROMA,KFLEV,KHORIZ)
END SUBROUTINE GPRH_2D
END INTERFACE
