INTERFACE
subroutine onedvar_diagnostics (&
 & kstart, kend,&
 & kproma,&
 & p_sfc,&
 & pt,&
 & pq,&
 & prr,&
 & prs,&
 & prl,&
 & pri,&
 & ptcwv,&
 & prwp,&
 & pswp,&
 & pcwp,&
 & piwp,&
 & prr_sfc,&
 & prs_sfc) 
use yomdim , only: nflevg
use parkind1 , only: jprb, jpim
integer (kind=jpim), intent (in) :: kstart, kend, kproma
real (kind=jprb), intent (in), dimension (kproma) :: p_sfc
real (kind=jprb), intent (in), dimension (kproma, nflevg) ::&
 & pt, pq, prr, prs, prl, pri 
real (kind=jprb), intent (out), dimension (kproma) ::&
 & ptcwv, prwp, pswp, pcwp, piwp, prr_sfc, prs_sfc 
end subroutine onedvar_diagnostics
END INTERFACE
