INTERFACE
SUBROUTINE GWSETUPAD&
 & ( KIDIA,KFDIA, KLON , KLEV , LDGWD,&
 & KKCRITH,KCRIT,&
 & KKENVH, KKNU ,KKNU2,&
 & PAPHM15,PAPM15 ,PUM15 , PVM15, PTM15 ,PGEOM15, PHSTD,&
 & PRHO5 ,PRI5 ,PSTAB5 , PTAU5, PVPH5 ,PPSI5, PZDEP5,&
 & PULOW5 ,PVLOW5,&
 & PTHETA, PGAMMA, PNU5 , PD15 , PD25 ,PDMOD5,&
 & PAPHM1, PAPM1 , PUM1 , PVM1 , PTM1 ,PGEOM1,&
 & PRHO , PRI , PSTAB , PTAU , PVPH ,PPSI, PZDEP,&
 & PULOW , PVLOW,&
 & PD1 , PD2 ,PDMOD ) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
INTEGER(KIND=JPIM),INTENT(IN) :: KLON
INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
LOGICAL ,INTENT(IN) :: LDGWD(KLON)
INTEGER(KIND=JPIM),INTENT(OUT) :: KKCRITH(KLON)
INTEGER(KIND=JPIM),INTENT(OUT) :: KCRIT(KLON)
INTEGER(KIND=JPIM),INTENT(OUT) :: KKENVH(KLON)
INTEGER(KIND=JPIM),INTENT(OUT) :: KKNU(KLON)
INTEGER(KIND=JPIM),INTENT(OUT) :: KKNU2(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPHM15(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(IN) :: PAPM15(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PUM15(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PVM15(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PTM15(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PGEOM15(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(IN) :: PHSTD(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRHO5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PRI5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PSTAB5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTAU5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PVPH5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PPSI5(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PZDEP5(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(OUT) :: PULOW5(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PVLOW5(KLON)
REAL(KIND=JPRB) ,INTENT(IN) :: PTHETA(KLON)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PGAMMA(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PNU5(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PD15(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PD25(KLON)
REAL(KIND=JPRB) ,INTENT(OUT) :: PDMOD5(KLON)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PAPHM1(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PAPM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PUM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PVM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PTM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PGEOM1(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PRHO(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PRI(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PSTAB(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(OUT) :: PTAU(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PVPH(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PPSI(KLON,KLEV+1)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PZDEP(KLON,KLEV)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PULOW(KLON)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PVLOW(KLON)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PD1(KLON)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PD2(KLON)
REAL(KIND=JPRB) ,INTENT(INOUT) :: PDMOD(KLON)
END SUBROUTINE GWSETUPAD
END INTERFACE
