INTERFACE
SUBROUTINE ONEDVAR_RAINTB_RCV( kstart, kend, KCOPROC, KT,&
 & kid_dv ,&
 & kit_dv ,&
 & kis_dv ,&
 & pepsg ,&
 & kim_dv ,&
 & pu_10m_an ,&
 & pv_10m_an ,&
 & prst_fg ,&
 & prco_fg ,&
 & prst_an ,&
 & prco_an ,&
 & ptcwv_fg ,&
 & ptcwv_an ,&
 & ptcwv_fg_er,&
 & ptcwv_an_er,&
 & pco ,&
 & ptb_fg ,&
 & ptb_an ,&
 & ptb_er ,&
 & ptb_bi ,&
 & ptb_fg_3d ,&
 & p1ddiag ) 
USE PARKIND1 ,ONLY : JPIM ,JPRB
USE YOMDIM ,ONLY : NPROMA
USE PARONEDVAR, ONLY: NMAX_CHANNELS
USE YOM_PTR_SSMI,ONLY : MFLDS_1DDIAG
integer (kind=jpim), intent (in) :: kstart, kend, KCOPROC, KT
integer (kind=jpim), intent (inout), dimension (nproma) :: kid_dv
integer (kind=jpim), intent ( out), dimension (nproma) :: kit_dv, kis_dv, kim_dv
real (kind=jprb), intent ( out), dimension (nproma) :: pepsg
real (kind=jprb), intent (out), dimension (nproma) ::&
 & pu_10m_an ,&
 & pv_10m_an ,&
 & ptcwv_fg ,&
 & ptcwv_an ,&
 & ptcwv_fg_er,&
 & ptcwv_an_er,&
 & prst_fg ,&
 & prco_fg ,&
 & prst_an ,&
 & prco_an ,&
 & pco 
real (kind=jprb), intent (out), dimension (nproma,NMAX_CHANNELS) ::&
 & ptb_fg ,&
 & ptb_an ,&
 & ptb_er ,&
 & ptb_bi ,&
 & ptb_fg_3d 
real (kind=jprb), intent (out), dimension (nproma,MFLDS_1DDIAG) :: p1ddiag
END SUBROUTINE ONEDVAR_RAINTB_RCV
END INTERFACE
